From: Ludovic Courtès <l...@gnu.org> This bug would cause the test suite to hang and fully use one CPU core and slowly consume all the memory.
Signed-off-by: Maxim Cournoyer <maxim.courno...@gmail.com> --- src/md5.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/md5.scm b/src/md5.scm index c30ef2c..48dfa63 100644 --- a/src/md5.scm +++ b/src/md5.scm @@ -68,8 +68,10 @@ referenced C implementation into Scheme. ;; Some math basics. -(define f-add +) -(define f-ash ash) +;; Work around miscompilation on Guile 3 at -O2: +;; <https://bugs.gnu.org/39251>. +(define f-add (@ (guile) +)) ;(define f-add +) +(define f-ash (@ (guile) ash)) ;(define f-ash ash) (define (+ . args) (modulo (apply f-add args) #x100000000)) -- 2.30.1