steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More ARM changes

release
U-SLAVA-FB3999113\Slava 2007-10-15 19:59:35 -04:00
parent b4b4c599c6
commit bf82687051
7 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/cpu/arm/5/5.factor
View File

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

1
core/cpu/arm/5/authors.txt
View File

@ -1 +0,0 @@
Slava Pestov

1
core/cpu/arm/5/summary.txt
View File

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

2
vm/cpu-arm.S
View File

@ -114,7 +114,7 @@ DEF(void,set_callstack,(F_STACK_FRAME *to, F_STACK_FRAME *from, CELL length)):
ldr pc,LR_SAVE /* return */ ldr pc,LR_SAVE /* return */
DEF(void,throw_impl,(CELL quot, F_STACK_FRAME *rewind_to)): 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 */ ldr lr,LR_SAVE /* we have rewound the stack; load return address */
JUMP_QUOT /* call the quotation */ JUMP_QUOT /* call the quotation */

0
vm/data_gc.c Normal file → Executable file
View File

2
vm/factor.c
View File

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

2
vm/io.c Normal file → Executable file
View File

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