Remove dead code

slava 2006-11-03 05:48:43 +00:00
parent 726710a949
commit 6099e4d7ed
5 changed files with 4 additions and 5 deletions

View File

@ -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:

View File

@ -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 ;

View File

@ -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

View File

@ -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

View File

@ -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 , ;