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

Add testcase for recent bug

db4
Slava Pestov 2009-07-23 18:03:14 -05:00
parent b1afd4c491
commit ff7f0e2f3b
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -321,4 +321,16 @@ cell 4 = [
] when ] when
! Regression from Slava's value numbering changes ! Regression from Slava's value numbering changes
[ 1 ] [ 31337 [ dup fixnum<= [ 1 ] [ 2 ] if ] compile-call ] unit-test [ 1 ] [ 31337 [ dup fixnum<= [ 1 ] [ 2 ] if ] compile-call ] unit-test
! Bug with ##return node construction
: return-recursive-bug ( nodes -- ? )
{ fixnum } declare [
dup 3 bitand 1 = [ drop t ] [
dup 3 bitand 2 = [
return-recursive-bug
] [ drop f ] if
] if
] any? ; inline recursive
[ t ] [ 3 [ return-recursive-bug ] compile-call ] unit-test