Re: [Chicken-janitors] #916: lolevel-tests.scm failure on Linux/PPC (assertion failed: (pair? some-foo))

[Chicken Trac]

#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.