[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives
From: |
Chicken Trac |
Subject: |
[Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback |
Date: |
Tue, 16 Feb 2010 08:53:36 -0000 |
#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.
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/15
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/15
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/15
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/15
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/15
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback,
Chicken Trac <=
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/16
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/17
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/17
- [Chicken-janitors] Re: #113: Crunch egg: bug in define-crunch-primitives / define-crunch-callback, Chicken Trac, 2010/02/17