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

Fixing more codegen bugs

db4
Slava Pestov 2008-10-13 12:49:20 -05:00
parent ae3c4ae1b6
commit d8d3645d72
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/tree/finalization/finalization.factor
View File

@ -107,13 +107,13 @@ MEMO: <byte-array>-expansion ( n -- quot )
first-literal <byte-array>-expansion ; first-literal <byte-array>-expansion ;
MEMO: <ratio>-expansion ( -- quot ) MEMO: <ratio>-expansion ( -- quot )
[ (ratio) [ 1 set-slot ] keep [ 2 set-slot ] keep ] splice-final ; [ (ratio) [ 2 set-slot ] keep [ 1 set-slot ] keep ] splice-final ;
: expand-<ratio> ( #call -- nodes ) : expand-<ratio> ( #call -- nodes )
drop <ratio>-expansion ; drop <ratio>-expansion ;
MEMO: <complex>-expansion ( -- quot ) MEMO: <complex>-expansion ( -- quot )
[ (complex) [ 1 set-slot ] keep [ 2 set-slot ] keep ] splice-final ; [ (complex) [ 2 set-slot ] keep [ 1 set-slot ] keep ] splice-final ;
: expand-<complex> ( #call -- nodes ) : expand-<complex> ( #call -- nodes )
drop <complex>-expansion ; drop <complex>-expansion ;

2
basis/cpu/architecture/architecture.factor
View File

@ -188,7 +188,7 @@ HOOK: %unbox-f cpu ( dst src -- )
HOOK: %unbox-any-c-ptr cpu ( dst src -- ) HOOK: %unbox-any-c-ptr cpu ( dst src -- )
HOOK: %box-alien cpu ( dst src temp1 temp2 -- ) HOOK: %box-alien cpu ( dst src temp -- )
! Allocation ! Allocation
HOOK: %allot cpu ( dst size type tag temp -- ) HOOK: %allot cpu ( dst size type tag temp -- )