cs: reject overlarge _array type

x
2019-01-19 15:07:43 -07:00 · 2019-01-19 15:07:43 -07:00 · e93088dd2c
commit e93088dd2c
parent c55c922e44
1 changed files with 3 additions and 0 deletions
--- a/racket/src/cs/rumble/foreign.ss
+++ b/racket/src/cs/rumble/foreign.ss
@ -579,6 +579,9 @@
                           (array ,count ,(car reps))))))))]
        [size (* count (ctype-sizeof type))]
        [alignment (ctype-alignof type)])
+    (unless (fixnum? size)
+      (raise-arguments-error who "arithmetic overflow for overlarge array type"
+                             "size" size))
    (create-compound-ctype 'array
                           'array
                           (vector type count)