[svn:parrot] r33867 - trunk/compilers/imcc

[cotto]

Author: cotto
Date: Sat Dec 13 13:45:57 2008
New Revision: 33867

Modified:
   trunk/compilers/imcc/imcc.y
   trunk/compilers/imcc/imcparser.c

Log:
[imcc] lengthen a couple more arrays so all indexed elements exist
(CID #172, CID #173)


Modified: trunk/compilers/imcc/imcc.y
==============================================================================
--- trunk/compilers/imcc/imcc.y (original)
+++ trunk/compilers/imcc/imcc.y Sat Dec 13 13:45:57 2008
@@ -295,7 +295,7 @@
     const int type_enum = atoi(type);
     const int ascii = (*constant == '\'' || *constant == '"');
     SymReg *rhs;
-    SymReg *r[2];
+    SymReg *r[3];
     char   *name;
 
     if (left->type == VTADDRESS) {      /* IDENTIFIER */
@@ -347,7 +347,7 @@
     ARGIN(const char *name), ARGMOD(SymReg *left), ARGIN(const char *constant))
 {
     SymReg *rhs;
-    SymReg *r[2];
+    SymReg *r[3];
     char   *const_name;
     const int ascii       = (*constant == '\'' || *constant == '"');
     char   *unquoted_name = str_dup(name + 1);

Modified: trunk/compilers/imcc/imcparser.c
==============================================================================
--- trunk/compilers/imcc/imcparser.c    (original)
+++ trunk/compilers/imcc/imcparser.c    Sat Dec 13 13:45:57 2008
@@ -619,7 +619,7 @@
     const int type_enum = atoi(type);
     const int ascii = (*constant == '\'' || *constant == '"');
     SymReg *rhs;
-    SymReg *r[2];
+    SymReg *r[3];
     char   *name;
 
     if (left->type == VTADDRESS) {      /* IDENTIFIER */
@@ -671,7 +671,7 @@
     ARGIN(const char *name), ARGMOD(SymReg *left), ARGIN(const char *constant))
 {
     SymReg *rhs;
-    SymReg *r[2];
+    SymReg *r[3];
     char   *const_name;
     const int ascii       = (*constant == '\'' || *constant == '"');
     char   *unquoted_name = str_dup(name + 1);
@@ -3171,8 +3171,8 @@
 
   case 53:
 #line 996 "compilers/imcc/imcc.y"
-    { 
-          IMCC_INFO(interp)->cur_call->pcc_sub->pragma = (yyvsp[(5) - (6)].t); 
+    {
+          IMCC_INFO(interp)->cur_call->pcc_sub->pragma = (yyvsp[(5) - (6)].t);
           if (!IMCC_INFO(interp)->cur_unit->instructions->symregs[0]->subid) {
             IMCC_INFO(interp)->cur_unit->instructions->symregs[0]->subid = 
str_dup(
             IMCC_INFO(interp)->cur_unit->instructions->symregs[0]->name);