[Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback

[Chicken Trac]

#113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback
------------------------+---------------------------------------------------
 Reporter:  jeronimo    |       Owner:       
     Type:  defect      |      Status:  new  
 Priority:  minor       |   Milestone:       
Component:  extensions  |     Version:  4.2.x
 Keywords:  crunch      |  
------------------------+---------------------------------------------------

Comment(by jeronimo):

 Hi Felix!

 I installed testeez and run the test.sh script in 4/crunch/trunk:

 {{{
 sh tests.sh
 [crunch] compiling *TOPLEVEL* ...
 [crunch] compiling fac ...
 [crunch] global: fac    = ((number) -> int)
 [crunch]  references: (* sub1 zero?)
 [crunch] compiling *TOPLEVEL* ...
 [crunch] compiling tak ...
 [crunch] global: tak    = ((int int int) -> int)
 [crunch]  references: (- not <)
 [crunch] compiling *TOPLEVEL* ...
 [crunch] compiling loop ...

 Error: during expansion of (crunch ...) - [crunch] (in loop) call to loop
 variable not in tail position: doloop

   context:

         (define loop ...)
         (let () ...)
         (let ((count 0)) ...)
         (let ((n m)) ...)
         (if (zero? n) ...)
         (doloop (sub1 n))


         Call history:

         <syntax>                (begin197 (testeez#%testeez:start-test
 data21 "simple loop" (quote198 (let () (crunch (define (loop m...
         <syntax>                (testeez#%testeez:start-test data21
 "simple loop" (quote198 (let () (crunch (define (loop m) (let ((......
         <syntax>                (quote198 (let () (crunch (define (loop m)
 (let ((count 0)) (do ((n m (sub1 n))) ((zero? n) (newline......
         <syntax>                (let199 ((result-list200 (#%call-with-
 values (lambda201 () (let () (crunch (define (loop m) (let ((c......
         <syntax>                (#%call-with-values (lambda201 () (let ()
 (crunch (define (loop m) (let ((count 0)) (do ((n m (sub1 n...
         <syntax>                (lambda201 () (let () (crunch (define
 (loop m) (let ((count 0)) (do ((n m (sub1 n))) ((zero? n) (new......
         <syntax>                (##core#begin (let () (crunch (define
 (loop m) (let ((count 0)) (do ((n m (sub1 n))) ((zero? n) (new......
         <syntax>                (let () (crunch (define (loop m) (let
 ((count 0)) (do ((n m (sub1 n))) ((zero? n) (newline)) (write-......
 <--

 Error: shell command terminated with non-zero exit status 17920:
 /usr/local/bin/chicken tests.sh -output-file a.cpp -feature DBGALLOC
 -feature crunch-debug
 }}}

 The output from chicken-bug is:

 {{{
 --------------------------------------------------

 This is a bug report generated by chicken-bug(1).

 Date:   Tue Feb 16 06:45:58 2010


 User information:       ("jeronimo" "x" 1001 1001 "Jeronimo Pellegrini"
 "/home/jeronimo" "/bin/bash")

 Host information:

         machine type:   x86-64
         software type:  unix
         software version:       linux
         build platform: gnu

 CHICKEN version is:
 Version 4.3.5 (experimental)
 linux-unix-gnu-x86-64 [ 64bit manyargs ptables ]
 compiled 2010-02-15 on newton (Linux)

 Home directory: /usr/local/share/chicken

 Include path:   ("/usr/local/share/chicken")

 Features:

   chicken         chicken-4       data-structures extras          files
   gnu             hygienic-macros irregex         linux           little-
 endian
   manyargs        ports           posix           ptables         regex
   srfi-0          srfi-10         srfi-12         srfi-13         srfi-14
   srfi-17         srfi-2          srfi-23         srfi-28         srfi-30
   srfi-39         srfi-55         srfi-6          srfi-61         srfi-62
   srfi-8          srfi-88         srfi-9          srfi-98         syntax-
 rules
   tcp             unix            utils           x86-64

 chicken-config.h:

 #define HAVE_DIRENT_H 1
 #define HAVE_DLFCN_H 1
 #define HAVE_INTTYPES_H 1
 #define HAVE_LIMITS_H 1
 #define HAVE_LONG_LONG 1
 #define HAVE_MEMMOVE 1
 #define HAVE_MEMORY_H 1
 #define HAVE_STDINT_H 1
 #define HAVE_STDLIB_H 1
 #define HAVE_STRERROR 1
 #define HAVE_STRINGS_H 1
 #define HAVE_STRING_H 1
 #define HAVE_STRTOLL 1
 #define HAVE_STRTOQ 1
 #define HAVE_SYS_STAT_H 1
 #define HAVE_SYS_TYPES_H 1
 #define HAVE_UNISTD_H 1
 #define HAVE_UNSIGNED_LONG_LONG 1
 #define STDC_HEADERS 1
 #define HAVE_ALLOCA 1
 #define HAVE_ALLOCA_H 1
 #define HAVE_GRP_H 1
 #define HAVE_ERRNO_H 1
 #define HAVE_GCVT 1
 #define HAVE_SYSEXITS_H 1
 #define HAVE_MEMMOVE 1
 #define C_STACK_GROWS_DOWNWARD 1
 #define C_HACKED_APPLY
 /* generated */
 #define C_BUILD_TAG "compiled 2010-02-15 on newton (Linux)"
 #define C_CHICKEN_PROGRAM "chicken"
 #ifndef C_INSTALL_CC
 # define C_INSTALL_CC "gcc"
 #endif
 #ifndef C_INSTALL_CXX
 # define C_INSTALL_CXX "g++"
 #endif
 #ifndef C_INSTALL_CFLAGS
 # define C_INSTALL_CFLAGS "-fno-strict-aliasing -DHAVE_CHICKEN_CONFIG_H
 -DC_ENABLE_PTABLES -O3 -fomit-frame-pointer"
 #endif
 #ifndef C_INSTALL_LDFLAGS
 # define C_INSTALL_LDFLAGS " "
 #endif
 #ifndef C_INSTALL_PREFIX
 # define C_INSTALL_PREFIX "/usr/local"
 #endif
 #ifndef C_INSTALL_SHARE_HOME
 # define C_INSTALL_SHARE_HOME "/usr/local/share/chicken"
 #endif
 #ifndef C_INSTALL_BIN_HOME
 # define C_INSTALL_BIN_HOME "/usr/local/bin"
 #endif
 #ifndef C_INSTALL_EGG_HOME
 # define C_INSTALL_EGG_HOME "/usr/local/lib/chicken/5"
 #endif
 #ifndef C_INSTALL_LIB_HOME
 # define C_INSTALL_LIB_HOME "/usr/local/lib"
 #endif
 #ifndef C_INSTALL_STATIC_LIB_HOME
 # define C_INSTALL_STATIC_LIB_HOME "/usr/local/lib"
 #endif
 #ifndef C_INSTALL_INCLUDE_HOME
 # define C_INSTALL_INCLUDE_HOME "/usr/local/include"
 #endif
 #ifndef C_INSTALL_MORE_LIBS
 # define C_INSTALL_MORE_LIBS "-lm -ldl"
 #endif
 #ifndef C_INSTALL_MORE_STATIC_LIBS
 # define C_INSTALL_MORE_STATIC_LIBS "-lm -ldl"
 #endif
 #ifndef C_DEFAULT_TARGET_STACK_SIZE
 # define C_DEFAULT_TARGET_STACK_SIZE (256*1024)
 #endif
 #ifndef C_DEFAULT_TARGET_HEAP_SIZE
 # define C_DEFAULT_TARGET_HEAP_SIZE 0
 #endif
 #ifndef C_STACK_GROWS_DOWNWARD
 # define C_STACK_GROWS_DOWNWARD 1
 #endif
 #ifndef C_TARGET_MORE_LIBS
 # define C_TARGET_MORE_LIBS "-lm -ldl"
 #endif
 #ifndef C_TARGET_MORE_STATIC_LIBS
 # define C_TARGET_MORE_STATIC_LIBS "-lm -ldl"
 #endif
 #ifndef C_TARGET_CC
 # define C_TARGET_CC "gcc"
 #endif
 #ifndef C_TARGET_CXX
 # define C_TARGET_CXX "g++"
 #endif
 #ifndef C_TARGET_CFLAGS
 # define C_TARGET_CFLAGS "-fno-strict-aliasing -DHAVE_CHICKEN_CONFIG_H
 -DC_ENABLE_PTABLES -O3 -fomit-frame-pointer"
 #endif
 #ifndef C_TARGET_LDFLAGS
 # define C_TARGET_LDFLAGS " "
 #endif
 #ifndef C_CROSS_CHICKEN
 # define C_CROSS_CHICKEN 0
 #endif
 #ifndef C_TARGET_BIN_HOME
 # define C_TARGET_BIN_HOME "/usr/local/bin"
 #endif
 #ifndef C_TARGET_LIB_HOME
 # define C_TARGET_LIB_HOME "/usr/local/lib"
 #endif
 #ifndef C_TARGET_RUN_LIB_HOME
 # define C_TARGET_RUN_LIB_HOME "/usr/local/lib"
 #endif
 #ifndef C_TARGET_SHARE_HOME
 # define C_TARGET_SHARE_HOME "/usr/local/share"
 #endif
 #ifndef C_TARGET_INCLUDE_HOME
 # define C_TARGET_INCLUDE_HOME "/usr/local/include"
 #endif
 #ifndef C_TARGET_STATIC_LIB_HOME
 # define C_TARGET_STATIC_LIB_HOME "/usr/local/lib"
 #endif
 #ifndef C_CHICKEN_PROGRAM
 # define C_CHICKEN_PROGRAM "chicken"
 #endif
 #ifndef C_CSC_PROGRAM
 # define C_CSC_PROGRAM "csc"
 #endif
 #ifndef C_CSI_PROGRAM
 # define C_CSI_PROGRAM "csi"
 #endif
 #ifndef C_CHICKEN_BUG_PROGRAM
 # define C_CHICKEN_BUG_PROGRAM "chicken-bug"
 #endif
 #ifndef C_WINDOWS_SHELL
 # define C_WINDOWS_SHELL 0
 #endif
 #ifndef C_BINARY_VERSION
 # define C_BINARY_VERSION 5
 #endif
 #ifndef C_BRANCH_NAME
 # define C_BRANCH_NAME "(experimental)"
 #endif

 CC seems to be gcc, trying to obtain version...

 Using built-in specs.
 Target: x86_64-linux-gnu
 Configured with: ../src/configure -v --with-pkgversion='Debian 4.4.3-2'
 --with-bugurl=file:///usr/share/doc/gcc-4.4/README.Bugs --enable-
 languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-
 shared --enable-multiarch --enable-linker-build-id --with-system-zlib
 --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix
 --with-gxx-include-dir=/usr/include/c++/4.4 --program-s
 uffix=-4.4 --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug
 --enable-objc-gc --with-arch-32=i486 --with-tune=generic --enable-
 checking=release --build=x86_64-linux-gnu --host=x86_64-linux
 -gnu --target=x86_64-linux-gnu
 Thread model: posix
 gcc version 4.4.3 (Debian 4.4.3-2)
 }}}

 Is there anything else I could do to help find what's going on?

-- 
Ticket URL: <http://www.irp.oist.jp/trac/chicken/ticket/113#comment:14>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.