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

compiler.codegen: cleanup

db4
Slava Pestov 2010-04-26 05:37:57 -04:00
parent db7403d697
commit 9c44dddf97
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/compiler/codegen/codegen.factor
View File

@ -202,6 +202,7 @@ CODEGEN: ##compare-float-unordered %compare-float-unordered
CODEGEN: ##save-context %save-context CODEGEN: ##save-context %save-context
CODEGEN: ##vm-field %vm-field CODEGEN: ##vm-field %vm-field
CODEGEN: ##set-vm-field %set-vm-field CODEGEN: ##set-vm-field %set-vm-field
CODEGEN: ##alien-global %alien-global
CODEGEN: _fixnum-add %fixnum-add CODEGEN: _fixnum-add %fixnum-add
CODEGEN: _fixnum-sub %fixnum-sub CODEGEN: _fixnum-sub %fixnum-sub
@ -216,6 +217,7 @@ CODEGEN: _test-vector-branch %test-vector-branch
CODEGEN: _dispatch %dispatch CODEGEN: _dispatch %dispatch
CODEGEN: _spill %spill CODEGEN: _spill %spill
CODEGEN: _reload %reload CODEGEN: _reload %reload
CODEGEN: _loop-entry %loop-entry
! ##gc ! ##gc
: wipe-locs ( locs temp -- ) : wipe-locs ( locs temp -- )
@ -263,12 +265,6 @@ M: ##gc generate-insn
} cleave } cleave
"no-gc" resolve-label ; "no-gc" resolve-label ;
M: _loop-entry generate-insn drop %loop-entry ;
M: ##alien-global generate-insn
[ dst>> ] [ symbol>> ] [ library>> ] tri
%alien-global ;
! ##alien-invoke ! ##alien-invoke
GENERIC: next-fastcall-param ( rep -- ) GENERIC: next-fastcall-param ( rep -- )