[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result w
From: |
Chicken Trac |
Subject: |
[Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64 |
Date: |
Thu, 06 Aug 2009 08:12:26 -0000 |
#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.
- [Chicken-janitors] #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64, Chicken Trac, 2009/08/06
- [Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64,
Chicken Trac <=
- [Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64, Chicken Trac, 2009/08/06
- [Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64, Chicken Trac, 2009/08/06
- [Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64, Chicken Trac, 2009/08/06
- [Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64, Chicken Trac, 2009/08/06
- [Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64, Chicken Trac, 2009/08/06
- [Chicken-janitors] Re: #64: "maze" benchmark produces incorrect result when compiled wirth -block on x86-64, Chicken Trac, 2009/08/11