develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
kjs
Date:
December 10, 2008 02:30
Subject:
[svn:parrot] r33756 - trunk/compilers/imcc
Message ID:
20081210102958.4385BCBA89@x12.develooper.com
Author: kjs
Date: Wed Dec 10 02:29:57 2008
New Revision: 33756

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

Log:
[imcc] remove unused rule 'string'. bison gave warnings it's an unused rule.

Modified: trunk/compilers/imcc/imcc.y
==============================================================================
--- trunk/compilers/imcc/imcc.y	(original)
+++ trunk/compilers/imcc/imcc.y	Wed Dec 10 02:29:57 2008
@@ -742,7 +742,7 @@
 %type <i> if_statement unless_statement
 %type <i> func_assign get_results
 %type <i> opt_invocant
-%type <sr> target targetlist reg const var string result pcc_set_yield
+%type <sr> target targetlist reg const var result pcc_set_yield
 %type <sr> keylist keylist_force _keylist key maybe_ns
 %type <sr> vars _vars var_or_i _var_or_i label_op sub_label_op sub_label_op_c
 %type <i> pasmcode pasmline pasm_inst
@@ -2059,10 +2059,6 @@
    | USTRINGC                  { $$ = mk_const(interp, $1, 'U'); mem_sys_free($1); }
    ;
 
-string:
-     SREG                      { $$ = mk_symreg(interp, $1, 'S'); mem_sys_free($1); }
-   | STRINGC                   { $$ = mk_const(interp, $1, 'S');  mem_sys_free($1); }
-   ;
 
 
 /* The End */

Modified: trunk/compilers/imcc/imcparser.c
==============================================================================
--- trunk/compilers/imcc/imcparser.c	(original)
+++ trunk/compilers/imcc/imcparser.c	Wed Dec 10 02:29:57 2008
@@ -5078,7 +5078,7 @@
 }
 
 
-#line 2069 "compilers/imcc/imcc.y"
+#line 2065 "compilers/imcc/imcc.y"
 
 
 /* I need this prototype somewhere... */



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About