added new op.genarray.z for zeroing arrays

--HG--
extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%40128

sourcepawn/compiler/sc.h

@@ -590,7 +590,7 @@ SC_FUNC void moveto1(void);
 SC_FUNC void pushreg(regid reg);
 SC_FUNC void pushval(cell val);
 SC_FUNC void popreg(regid reg);
-SC_FUNC void genarray(int dims);
+SC_FUNC void genarray(int dims, int _autozero);
 SC_FUNC void swap1(void);
 SC_FUNC void ffswitch(int label);
 SC_FUNC void ffcase(cell value,char *labelname,int newtable);

sourcepawn/compiler/sc1.c

@@ -1961,7 +1961,7 @@ static int declloc(int fstatic)
         needtoken(')');
         numdim++;
       } while (matchtoken('('));
-      genarray(numdim);
+      genarray(numdim, autozero);
     }
     if (getstates(name))
       error(88,name);           /* local variables may not have states */

sourcepawn/compiler/sc4.c

@@ -675,9 +675,13 @@ SC_FUNC void popreg(regid reg)
 /*
  * Generate an array
  */
-SC_FUNC void genarray(int dims)
+SC_FUNC void genarray(int dims, int _autozero)
 {
-  stgwrite("\tgenarray ");
+  if (_autozero) {
+    stgwrite("\tgenarray.z ");
+  } else {
+    stgwrite("\tgenarray ");
+  }
   outval(dims, TRUE);
   code_idx+=opcodes(1)+opargs(1);
 }

sourcepawn/compiler/sc6.c

@@ -490,6 +490,7 @@ static OPCODEC opcodelist[] = {
 /*{124, "file",       sIN_CSEG, do_file }, */
   {119, "fill",       sIN_CSEG, parm1 },
   {162, "genarray",   sIN_CSEG, parm1 },
+  {163, "genarray.z", sIN_CSEG, parm1 },
   {100, "geq",        sIN_CSEG, parm0 },
   { 99, "grtr",       sIN_CSEG, parm0 },
   {120, "halt",       sIN_CSEG, parm1 },