cs: fix memset address handling

2019-11-23 20:19:43 -05:00 · 2019-11-23 20:19:43 -05:00 · ebbf578b6c
commit ebbf578b6c
parent e0851e6753
1 changed files with 2 additions and 2 deletions
--- a/racket/src/cs/rumble/foreign.ss
+++ b/racket/src/cs/rumble/foreign.ss
@ -1276,11 +1276,11 @@
                             "destination" to)]
     [else
      (with-interrupts-disabled*
-       (let ([to (fx+ (cpointer*-address to) to-offset)])
+       (let ([to (+ (cpointer*-address to) to-offset)])
         (let loop ([to to] [len len])
           (unless (fx= len 0)
             (foreign-set! 'unsigned-8 to 0 byte)
-             (loop (fx+ to 1) (fx- len 1))))))])))
+             (loop (+ to 1) (fx- len 1))))))])))

 (define/who memset
  (case-lambda