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

[jonathan]

Author: jonathan
Date: Fri Jul 18 06:24:35 2008
New Revision: 29581

Modified:
   trunk/compilers/imcc/imcc.y

Log:
[core] Correct imcc.y; I managed to make a proper mess there. Spotted by 
NordQ++.

Modified: trunk/compilers/imcc/imcc.y
==============================================================================
--- trunk/compilers/imcc/imcc.y (original)
+++ trunk/compilers/imcc/imcc.y Fri Jul 18 06:24:35 2008
@@ -996,8 +996,7 @@
      SUB_INSTANCE_OF '(' STRINGC ')'
          {
            $$ = 0;
-           IMCC_INFO(interp)->cur_unit->instance_of = mk_const(interp, $3, 
'S');
-           mem_sys_free($3);
+           IMCC_INFO(interp)->cur_unit->instance_of = $3;
          }
    ;
 
@@ -1005,7 +1004,8 @@
      SUB_LEXID '(' STRINGC ')'
          {
            $$ = 0;
-           IMCC_INFO(interp)->cur_unit->lexid = $3;
+           IMCC_INFO(interp)->cur_unit->lexid = mk_const(interp, $3);
+           mem_sys_free($3);
          }
    ;