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

Merge git://factorcode.org/git/factor

release
Slava Pestov 2007-10-29 01:31:58 -04:00
parent 976bfab6d7 042f6bf88e
commit d124669dc5
2 changed files with 7 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/cpu/arm/intrinsics/intrinsics.factor
View File

@ -55,10 +55,10 @@ IN: cpu.arm.intrinsics
: %write-barrier ( -- ) : %write-barrier ( -- )
"val" get operand-immediate? "obj" get fresh-object? or [ "val" get operand-immediate? "obj" get fresh-object? or [
"cards_offset" f R12 %alien-global "cards_offset" f R12 %alien-global
"scratch" operand R12 "scratch" operand card-bits <LSR> ADD "scratch" operand R12 "obj" operand card-bits <LSR> ADD
"val" operand "scratch" operand 0 LDRB "val" operand "scratch" operand 0 <+> LDRB
"val" operand dup card-mark ORR "val" operand dup card-mark ORR
"val" operand "scratch" operand 0 STRB "val" operand "scratch" operand 0 <+> STRB
] unless ; ] unless ;
\ set-slot { \ set-slot {
@ -315,12 +315,12 @@ IN: cpu.arm.intrinsics
! Store class ! Store class
"class" operand 2 %set-slot "class" operand 2 %set-slot
! Zero out the rest of the tuple ! Zero out the rest of the tuple
R12 f v>operand MOV "initial" operand f v>operand MOV
"n" get 1- [ 1+ R12 %fill-array ] each "n" get 1- [ 1+ "initial" operand %fill-array ] each
"out" get object %store-tagged "out" get tuple %store-tagged
] H{ ] H{
{ +input+ { { f "class" } { [ inline-array? ] "n" } } } { +input+ { { f "class" } { [ inline-array? ] "n" } } }
{ +scratch+ { { f "out" } } } { +scratch+ { { f "out" } { f "initial" } } }
{ +output+ { "out" } } { +output+ { "out" } }
} define-intrinsic } define-intrinsic

19
vm/os-windows-ce-arm.S
View File

@ -1,19 +0,0 @@
.text
.globl c_to_factor_toplevel
.word exception_handler
.word 0
c_to_factor_toplevel:
ldr pc, _Pc_to_factor
_Pc_to_factor:
.word c_to_factor
.section .pdata
.word c_to_factor_toplevel
.word 0xc0000002 | (0xFFFFF << 8)