More ARM changes

core/cpu/arm/5/5.factor

@@ -1,3 +0,0 @@
-USING: cpu.arm.assembler cpu.arm4 namespaces ;
-
-t have-BLX? set-global

core/cpu/arm/5/authors.txt

@@ -1 +0,0 @@
-Slava Pestov

core/cpu/arm/5/summary.txt

@@ -1 +0,0 @@
-Additional compiler intrinsics for ARM5

vm/cpu-arm.S

@@ -114,7 +114,7 @@ DEF(void,set_callstack,(F_STACK_FRAME *to, F_STACK_FRAME *from, CELL length)):
         ldr pc,LR_SAVE       /* return */
 
 DEF(void,throw_impl,(CELL quot, F_STACK_FRAME *rewind_to)):
-	mov sp,r1            /* compute new stack pointer */
+	add sp,r1,#4         /* compute new stack pointer */
 	ldr lr,LR_SAVE       /* we have rewound the stack; load return address */
 	JUMP_QUOT            /* call the quotation */
 

vm/factor.c

@@ -140,7 +140,7 @@ void init_factor_from_args(F_CHAR *image, int argc, F_CHAR **argv, bool embedded
 	if(p.fep)
 		factorbug();
 
-	c_to_factor_toplevel(userenv[BOOT_ENV]);
+	c_to_factor(userenv[BOOT_ENV]);
 	unnest_stacks();
 
 	for(i = 0; i < argc; i++)

vm/io.c

@@ -19,8 +19,10 @@ void init_c_io(void)
 
 void io_error(void)
 {
+#ifndef WINCE
 	if(errno == EINTR)
 		return;
+#endif
 
 	CELL error = tag_object(from_char_string(strerror(errno)));
 	general_error(ERROR_IO,error,F,NULL);