atg. green 1993. zero() arrays with typ() instead of typ.zero(). fixes #47

Author: glycerine

pkg/compiler/prelude/prelude.lua

@@ -19,7 +19,7 @@ function __gi_GetRangeCheck(x, i)
 end;
 
 function __gi_SetRangeCheck(x, i, val)
-  --print("SetRangeCheck. x=", __st(x), " i=", i, " val=", val)
+  --print("SetRangeCheck. x=".. __st(x) .." i="..tostring(i).." val=", val)
   if x == nil or i < 0 or i >= #x then
      error("index out of range; i="..tostring(i)..". #x is "..tostring(#x))
   end

pkg/compiler/prelude/tsys.lua

@@ -1939,7 +1939,12 @@ __newType = function(size, kind, str, named, pkg, exported, constructor)
 
       typ.zero = function()
          --print("in zero() for array...")
-         return __newAnyArrayValue(typ.elem, typ.len)
+
+         local array = {}
+         for i =0, typ.len -1 do
+            array[i]= typ.elem();
+         end
+         return array;
       end;
 
    elseif kind == __kindStruct then