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