dev-lang/polyml/files/polyml-5.5.2-r1952-check_for_negative_sized_array.patch


1
2
3
4
5
6
7
8
9
10
11
12
13

Index: polyml/basis/Array.sml
===================================================================
--- polyml/basis/Array.sml	(revision 1951)
+++ polyml/basis/Array.sml	(revision 1952)
@@ -129,7 +129,7 @@
      
     fun array(len, a) =
         let
-            val () = if len >= maxLen then raise General.Size else ()
+            val () = if len < 0 orelse len >= maxLen then raise General.Size else ()
             val vec = System_alloc(len+1, 0wx40, RunCall.unsafeCast a)
         in
             System_setw(vec, 0, RunCall.unsafeCast len);