[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 uninstalled, recompiled without OPTIMIZE_FOR_SPEED, removed all eggs,
 then
 reinstalled them. The same thing happened.

 What compiler did you use on other machines? I could try setting
 CC=gcc-4.3 to
 see if that helps...

 J.

 The error, after recompiling chicken:

 {{{
 $ csc -compiler "chicken -:d" -c++ crunch-example.scm
 [debug] application startup...
 [debug] heap resized to 500000 bytes
 [debug] stack bottom is 0x7fffffffd3d0.
 [debug] entering toplevel toplevel...
 [debug] [debug] stack resized to 262144 bytes
 [debug] entering toplevel library_toplevel...
 [debug] entering toplevel eval_toplevel...
 [debug] entering toplevel expand_toplevel...
 [debug] entering toplevel chicken_syntax_toplevel...
 [debug] entering toplevel srfi_1_toplevel...
 [debug] entering toplevel srfi_4_toplevel...
 [debug] entering toplevel utils_toplevel...
 [debug] entering toplevel extras_toplevel...
 [debug] entering toplevel data_structures_toplevel...
 [debug] entering toplevel ports_toplevel...
 [debug] entering toplevel srfi_13_toplevel...
 [debug] entering toplevel srfi_14_toplevel...
 [debug] entering toplevel posix_toplevel...
 [debug] resizing heap dynamically from 500k to 1026k ...
 [debug] entering toplevel scheduler_toplevel...
 [debug] entering toplevel regex_toplevel...
 [debug] entering toplevel files_toplevel...
 [debug] entering toplevel support_toplevel...
 [debug] entering toplevel compiler_toplevel...
 [debug] entering toplevel optimizer_toplevel...
 [debug] entering toplevel unboxing_toplevel...
 [debug] entering toplevel compiler_syntax_toplevel...
 [debug] entering toplevel scrutinizer_toplevel...
 [debug] entering toplevel driver_toplevel...
 [debug] entering toplevel platform_toplevel...
 [debug] entering toplevel backend_toplevel...
 [debug] entering toplevel srfi_69_toplevel...
 [debug] resizing heap dynamically from 1026k to 2053k ...
 ; loading /usr/local/lib/chicken/5/crunch.import.so ...
 [debug] loading compiled module
 `/usr/local/lib/chicken/5/crunch.import.so' (handle is 0x7f89b0)
 [debug] entering toplevel toplevel...
 ; loading /usr/local/lib/chicken/5/scheme.import.so ...
 [debug] loading compiled module
 `/usr/local/lib/chicken/5/scheme.import.so' (handle is 0x7f9300)
 [debug] entering toplevel toplevel...
 ; loading /usr/local/lib/chicken/5/chicken.import.so ...
 [debug] loading compiled module
 `/usr/local/lib/chicken/5/chicken.import.so' (handle is 0x7f99a0)
 [debug] entering toplevel toplevel...
 ; loading /usr/local/lib/chicken/5/foreign.import.so ...
 [debug] loading compiled module
 `/usr/local/lib/chicken/5/foreign.import.so' (handle is 0x7fa040)
 [debug] entering toplevel toplevel...
 ; loading /usr/local/lib/chicken/5/crunch-compiler.so ...
 [debug] loading compiled module `/usr/local/lib/chicken/5/crunch-
 compiler.so' (handle is 0x7fa6e0)
 [debug] entering toplevel toplevel...
 ; loading /usr/local/lib/chicken/5/defstruct.so ...
 [debug] loading compiled module `/usr/local/lib/chicken/5/defstruct.so'
 (handle is 0x7fec90)
 [debug] entering toplevel toplevel...
 ; loading /usr/local/lib/chicken/5/matchable.so ...
 [debug] loading compiled module `/usr/local/lib/chicken/5/matchable.so'
 (handle is 0x7ff2a0)
 [debug] entering toplevel toplevel...
 ; loading /usr/local/lib/chicken/5/crunch-expander.so ...
 [debug] loading compiled module `/usr/local/lib/chicken/5/crunch-
 expander.so' (handle is 0x7ff8c0)
 [debug] entering toplevel toplevel...

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

   context:

         (define string-reverse ...)
         (let () ...)
         (let ((n (string-length str))) ...)
         (let ((s2 (make-string n #\space))) ...)
         (let ((i 0)) ...)
         (if (>= i n) ...)
         (doloop (add1 i))


         Call history:

         <syntax>                (##core#begin (crunch (define (string-
 reverse str) (let* ((n (string-length str)) (s2 (make-string n...
         <syntax>                (crunch (define (string-reverse str) (let*
 ((n (string-length str)) (s2 (make-string n #\space))) (do...        <--

 Error: shell command terminated with non-zero exit status 17920: chicken
 -:d crunch-example.scm -output-file crunch-example.cpp
 }}}

 Output from chicken-bug:

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

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

 Date:   Tue Feb 16 11:35:24 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-16 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:

 /* GENERATED */
 #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
 #define C_BUILD_TAG "compiled 2010-02-16 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 -Os -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 -Os -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
 /* END OF FILE */

 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)
 }}}

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