[Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64

[Chicken Trac]

#64: "maze" benchmark produces incorrect result when compiled wirth -block on
x86-64
----------------------------+-----------------------------------------------
 Reporter:  felix           |       Owner:       
     Type:  defect          |      Status:  new  
 Priority:  critical        |   Milestone:  4.2.0
Component:  core libraries  |     Version:  4.1.x
 Keywords:                  |  
----------------------------+-----------------------------------------------

Comment(by felix):

 Adding this patch to `maze.scm`:

 {{{
 address@hidden diff -u benchmarks/maze.scm maze2.scm
 ~/chicken-4.1.0
 --- benchmarks/maze.scm 2009-08-04 10:03:07.000000000 +0200
 +++ maze2.scm   2009-08-06 10:11:48.000000000 +0200
 @@ -646,7 +646,9 @@
        (write-ch #\newline))))

  (define (bit-test j bit)
 -  (not (zero? (bitwise-and j bit))))
 +  (let ((n (not (zero? (bitwise-and j bit)))))
 +    (print "bit-test: " j " " bit " -> " n)
 +    n))

  ;;; Return a . if harr[r,c] is marked, otherwise a space.
  ;;; We use the dot to mark the solution path.
 }}}

 produces this diff:

 {{{
 address@hidden diff -u out1 out2|less
 ~/chicken-4.1.0
 --- out1        2009-08-06 10:12:21.000000000 +0200
 +++ out2        2009-08-06 10:12:26.000000000 +0200
 @@ -1196,9 +1196,9 @@
  bit-test: -1 1 -> #t
  bit-test: -1 2 -> #t
  bit-test: -1 4 -> #t
 -bit-test: 4611686018427387901 1 -> #t
 -bit-test: 4611686018427387901 2 -> #f
 -bit-test: 4611686018427387901 4 -> #t
 +bit-test: 0 1 -> #f
 +bit-test: 0 2 -> #f
 +bit-test: 0 4 -> #f
  bit-test: -1 1 -> #t
  bit-test: -1 2 -> #t
  bit-test: -1 4 -> #t
 @@ -2403,9 +2403,9 @@
  bit-test: -1 1 -> #t
  bit-test: -1 2 -> #t
  bit-test: -1 4 -> #t
 -bit-test: 4611686018427387901 1 -> #t
 -bit-test: 4611686018427387901 2 -> #f
 -bit-test: 4611686018427387901 4 -> #t
 +bit-test: 0 1 -> #f
 +bit-test: 0 2 -> #f
 +bit-test: 0 4 -> #f
  bit-test: -1 1 -> #t
  bit-test: -1 2 -> #t
  bit-test: -1 4 -> #t
 @@ -3610,9 +3610,9 @@
  bit-test: -1 1 -> #t
  bit-test: -1 2 -> #t
  bit-test: -1 4 -> #t
 -bit-test: 4611686018427387901 1 -> #t
 -bit-test: 4611686018427387901 2 -> #f
 -bit-test: 4611686018427387901 4 -> #t
 +bit-test: 0 1 -> #f
 +bit-test: 0 2 -> #f
 +bit-test: 0 4 -> #f
  bit-test: -1 1 -> #t
  bit-test: -1 2 -> #t
  bit-test: -1 4 -> #t
 @@ -4817,9 +4817,9 @@
  bit-test: -1 1 -> #t
  bit-test: -1 2 -> #t
  bit-test: -1 4 -> #t
 -bit-test: 4611686018427387901 1 -> #t
 -bit-test: 4611686018427387901 2 -> #f
 -bit-test: 4611686018427387901 4 -> #t
 +bit-test: 0 1 -> #f
 byte 1318
 }}}

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