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
