| Newsgroups |
gmane.lisp.scheme.bigloo |
| Organization |
Inria |
| Message-ID |
<[email protected]> |
Hi Sven,
> Hi Manuel.
>
> The attached file reports 305 incorrect sha256sum if run in the
> unpacked directory of bigloo4.3b-alpha26Aug17.tar.gz.
>
> Compile with (options do not matter probably):
> bigloo -O3 -static-bigloo -o bugz6 bugz6.scm
>
> The results are identical for i686, x86_64, and x32.
>
> Ciao
> Sven
>
>
> ; DEV: bigloo32 -O3 -static-bigloo -o bugz6 bugz6.scm
> ; -unsafe
> (module
> bugz6
> (main top-level))
>
> (define (directory-files dir) (directory->list dir))
>
> (define (shell-command-output-strings prog . args)
> (let ((process (apply run-process prog (append args (list output: pipe: wait: #f)))))
> (cond ((process? process)
> (let* ((port (process-output-port process))
> (result (read-lines port)))
> (close-input-port port)
> (process-wait process) ; matches \fal in run-process call above
> result))
> (else
> #f))))
>
> (define (string-take s n)
> (substring s 0 n))
>
> (define (top-level args)
> (check-directory "."))
>
> (define (check-directory dir)
> (let ((files (directory-files dir)))
> (for-each
> (lambda (f0)
> (let ((f (make-file-name dir f0)))
> ;(display f)
> (cond ((directory? f)
> (check-directory f))
> (else
> (let* ((hash-bgl (sha256sum-file f))
> (hash-ext (string-take (car (shell-command-output-strings "sha256sum" f)) 64)))
> (unless (string=? hash-bgl hash-ext)
> (display "incorrect sha256sum-file for ") (display f) (newline)
> (display " bigloo: ") (display hash-bgl) (newline)
> (display " linux: ") (display hash-ext) (newline)
> ))))))
> files)))
Indeed, the sha256 was wrong, but only for the a certain input size
intervals. I have fixed the problem. I'm preparing a new version that
will be available within a couple of minutes.
Thanks for your report.
--
Manuel