Chez Scheme: fix flvector-copy for 32-bit platforms

Closes #3490
2020-11-09 05:55:09 -07:00 · 2020-11-09 05:55:09 -07:00 · a0375111a3
commit a0375111a3
parent 4892d2ad80
1 changed files with 2 additions and 2 deletions
--- a/racket/src/ChezScheme/s/5_6.ss
+++ b/racket/src/ChezScheme/s/5_6.ss
@ -161,8 +161,8 @@
                 (let ([i (fx- i 1)]) (flvector-set! flv2 i (flvector-ref flv1 i)))
                 (loop (fx- i 2))]
                [(fx= i 0) (flvector-set! flv2 i (flvector-ref flv1 i))]))
-            ($ptr-copy! flv1 (constant flvector-data-disp) flv2
-              (constant flvector-data-disp) n))
+            ($byte-copy! flv1 (constant flvector-data-disp) flv2
+              (constant flvector-data-disp) (fx* n (constant flonum-bytes))))
        flv2))))

 (set! vector-map