Allocation should be minimum 4 words for 128 bit quads

modula3 · Nov 16, 2016 · ea3e197 · ea3e197
1 parent f7036fd
commit ea3e197
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/m3-libs/m3core/src/float/Common/DragonInt.m3 b/m3-libs/m3core/src/float/Common/DragonInt.m3
@@ -502,8 +502,8 @@ PROCEDURE ToArr32(s : Session; a : T; VAR out : RefInt32; VAR len : INTEGER) =
     yp,zp : Ptr := ADR (s.w[a.w]);
     ep : Ptr;
   BEGIN
-    (* assume the allocator zeros this array *)
-    out := NEW(RefInt32,MAX(a.s, 1));
+    (* assume the allocator zeros this array, min size 128 bytes for quads *)
+    out := NEW(RefInt32,MAX(a.s, 4));
     IF a.s = 0 THEN
       len := 0;
       RETURN;