From ff7f0e2f3b58b9872287e20b6b538175f9a86f92 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 23 Jul 2009 18:03:14 -0500 Subject: [PATCH] Add testcase for recent bug --- basis/compiler/tests/codegen.factor | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/basis/compiler/tests/codegen.factor b/basis/compiler/tests/codegen.factor index 4494df1705..c93e20294e 100644 --- a/basis/compiler/tests/codegen.factor +++ b/basis/compiler/tests/codegen.factor @@ -321,4 +321,16 @@ cell 4 = [ ] when ! Regression from Slava's value numbering changes -[ 1 ] [ 31337 [ dup fixnum<= [ 1 ] [ 2 ] if ] compile-call ] unit-test \ No newline at end of file +[ 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 \ No newline at end of file