     } cleave
     "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
 GENERIC: next-fastcall-param ( rep -- )
 

CODEGEN: ##save-context %save-context
CODEGEN: ##vm-field %vm-field
CODEGEN: ##set-vm-field %set-vm-field

CODEGEN: _fixnum-add %fixnum-add
CODEGEN: _fixnum-sub %fixnum-sub

CODEGEN: _dispatch %dispatch
CODEGEN: _spill %spill
CODEGEN: _reload %reload
CODEGEN: _loop-entry %loop-entry

! ##gc
: wipe-locs ( locs temp -- )
