[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-janitors] #916: lolevel-tests.scm failure on Linux/PPC (ass
From: |
Chicken Trac |
Subject: |
Re: [Chicken-janitors] #916: lolevel-tests.scm failure on Linux/PPC (assertion failed: (pair? some-foo)) |
Date: |
Sat, 08 Sep 2012 23:25:27 -0000 |
#916: lolevel-tests.scm failure on Linux/PPC (assertion failed: (pair?
some-foo))
----------------------+-----------------------------------------------------
Reporter: mario | Owner:
Type: defect | Status: new
Priority: major | Milestone: 4.8.0
Component: unknown | Version: 4.8.x
Resolution: | Keywords: lolevel tests
----------------------+-----------------------------------------------------
Comment(by mario):
Weird stuff. Observe:
{{{
$ cat lolevel-ppc.scm
(use lolevel)
(define tstvec (vector #f))
(define ev-tstvec (object-evict tstvec))
(object-release ev-tstvec)
(define some-foo '#(1 2 3))
(define some-bar '(1 2 3))
(object-become! (list (cons some-foo '(1 2 3)) (cons some-bar '#(1 2 3))))
(assert (pair? some-foo))
$ ./csc lolevel-ppc.scm -compiler ./chicken -v -I. -L. -include-path . -o
lolevel-ppc
./chicken lolevel-ppc.scm -output-file lolevel-ppc.c -verbose -include-
path .
gcc lolevel-ppc.c -o lolevel-ppc.o -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer -I.
-I"/home/mario/local/chicken-2012-09-08/include/chicken"
rm lolevel-ppc.c
gcc lolevel-ppc.o -o lolevel-ppc -L.
-L"/home/mario/local/chicken-2012-09-08/lib"
-Wl,-R"/home/mario/local/chicken-2012-09-08/lib" -lchicken -lm -ldl
rm lolevel-ppc.o
$ ./lolevel-ppc
Error: (lolevel-ppc.scm:10) assertion failed: (pair? some-foo)
Call history:
lolevel-ppc.scm:4: object-evict
lolevel-ppc.scm:5: object-release
lolevel-ppc.scm:9: object-become!
lolevel-ppc.scm:10: ##sys#error <--
}}}
Now if I comment the tstvec stuff:
{{{
$ cat lolevel-ppc.scm
(use lolevel)
; (define tstvec (vector #f))
; (define ev-tstvec (object-evict tstvec))
; (object-release ev-tstvec)
(define some-foo '#(1 2 3))
(define some-bar '(1 2 3))
(object-become! (list (cons some-foo '(1 2 3)) (cons some-bar '#(1 2 3))))
(assert (pair? some-foo))
$ ./csc lolevel-ppc.scm -compiler ./chicken -v -I. -L. -include-path . -o
lolevel-ppc
./chicken lolevel-ppc.scm -output-file lolevel-ppc.c -verbose -include-
path .
gcc lolevel-ppc.c -o lolevel-ppc.o -c -fno-strict-aliasing -fwrapv
-DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer -I.
-I"/home/mario/local/chicken-2012-09-08/include/chicken"
rm lolevel-ppc.c
gcc lolevel-ppc.o -o lolevel-ppc -L.
-L"/home/mario/local/chicken-2012-09-08/lib"
-Wl,-R"/home/mario/local/chicken-2012-09-08/lib" -lchicken -lm -ldl
rm lolevel-ppc.o
$ ./lolevel-ppc
$ echo $?
0
}}}
--
Ticket URL: <http://bugs.call-cc.org/ticket/916#comment:4>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.