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

Fix hi-tag-or-tuple PICs

db4
Slava Pestov 2009-04-29 03:00:09 -05:00
parent a26947ba2e
commit 38a38a57a9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/cpu/x86/bootstrap.factor
View File

@ -210,12 +210,12 @@ big-endian off
! Set temp1 to 0 for objects, and 4 or 8 for tuples ! Set temp1 to 0 for objects, and 4 or 8 for tuples
temp1 1 tag-fixnum AND temp1 1 tag-fixnum AND
bootstrap-cell { bootstrap-cell {
{ 4 [ temp1 2 SHL ] } { 4 [ temp1 1 SHR ] }
{ 8 [ temp1 3 SHL ] } { 8 [ ] }
} case } case
! Load header cell or tuple layout cell ! Load header cell or tuple layout cell
temp1 temp0 temp1 [+] MOV temp1 temp0 temp1 [+] MOV
] [ ] make [ length JNE ] [ % ] bi ] [ ] make [ length JL ] [ % ] bi
] pic-hi-tag-tuple jit-define ] pic-hi-tag-tuple jit-define
[ [