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

Didn't generate ##branch after ##alien-invoke and ##alien-indirect

db4
Slava Pestov 2008-11-29 03:46:57 -06:00
parent 02a2752fa5
commit 1c0789e616
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/builder/builder.factor
View File

@ -260,7 +260,7 @@ M: #terminate emit-node drop stop-iterating ;
: emit-alien-node ( node quot -- next ) : emit-alien-node ( node quot -- next )
[ params>> ] dip [ drop alien-stack-frame ] [ call ] 2bi [ params>> ] dip [ drop alien-stack-frame ] [ call ] 2bi
begin-basic-block iterate-next ; inline ##branch begin-basic-block iterate-next ; inline
M: #alien-invoke emit-node M: #alien-invoke emit-node
[ ##alien-invoke ] emit-alien-node ; [ ##alien-invoke ] emit-alien-node ;

12
basis/compiler/tests/codegen.factor
View File

@ -261,3 +261,15 @@ TUPLE: id obj ;
[ 3 ] [ 1 t fixnum-overflow-control-flow-test ] unit-test [ 3 ] [ 1 t fixnum-overflow-control-flow-test ] unit-test
[ 2 ] [ 1 f fixnum-overflow-control-flow-test ] unit-test [ 2 ] [ 1 f fixnum-overflow-control-flow-test ] unit-test
! LOL
: blah ( a -- b )
{ float } declare dup 0 =
[ drop 1 ] [
dup 0 >=
[ 2 "double" "libm" "pow" { "double" "double" } alien-invoke ]
[ -0.5 "double" "libm" "pow" { "double" "double" } alien-invoke ]
if
] if ;
[ 4.0 ] [ 2.0 blah ] unit-test