Remove dead code
parent
726710a949
commit
6099e4d7ed
|
@ -3,6 +3,7 @@
|
|||
- inline float allocation needs a gc check
|
||||
- fix alien invoke as required
|
||||
- we can just convert strings to aliens beforehand
|
||||
- >float first too
|
||||
- fix alien callback as required
|
||||
|
||||
+ ui:
|
||||
|
|
|
@ -66,7 +66,7 @@ M: alien-callback-error summary
|
|||
] generate-1 ;
|
||||
|
||||
M: alien-callback generate-node
|
||||
end-basic-block compile-gc generate-callback iterate-next ;
|
||||
end-basic-block generate-callback iterate-next ;
|
||||
|
||||
M: alien-callback stack-reserve*
|
||||
alien-callback-parameters stack-space ;
|
||||
|
|
|
@ -33,7 +33,7 @@ M: alien-indirect-error summary
|
|||
] if ;
|
||||
|
||||
M: alien-indirect generate-node
|
||||
end-basic-block compile-gc
|
||||
end-basic-block
|
||||
%prepare-alien-indirect
|
||||
dup alien-indirect-parameters objects>registers
|
||||
%alien-indirect
|
||||
|
|
|
@ -67,7 +67,7 @@ M: alien-invoke-error summary
|
|||
] if ;
|
||||
|
||||
M: alien-invoke generate-node
|
||||
end-basic-block compile-gc
|
||||
end-basic-block
|
||||
dup alien-invoke-parameters objects>registers
|
||||
dup alien-invoke-dlsym %alien-invoke
|
||||
dup generate-invoke-cleanup
|
||||
|
|
|
@ -60,5 +60,3 @@ kernel-internals math namespaces sequences words ;
|
|||
|
||||
: if-void ( type true false -- )
|
||||
pick "void" = [ drop nip call ] [ nip call ] if ; inline
|
||||
|
||||
: compile-gc ; ! "simple_gc" f %alien-invoke , ;
|
||||
|
|
Loading…
Reference in New Issue