[perl #17561] [PATCH] imcc: semicolons considered useful.

[via RT]

# New Ticket Created by  Simon Cozens 
# Please include the string:  [perl #17561]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17561 >


Makes things compile, you know.

--- imcc.y      22 Sep 2002 17:38:47 -0000      1.22
+++ imcc.y      24 Sep 2002 14:20:34 -0000
@@ -428,8 +428,8 @@
     ;
 
 emit:
-      EMIT   pasmcode                    { $$ = 0 }
-       EOM '\n'                                { emit_flush(); clear_tables();$$=0 }
+      EMIT   pasmcode                    { $$ = 0; }
+       EOM '\n'                                { emit_flush(); clear_tables();$$=0; }
     ;
 
 nls:
@@ -447,8 +447,8 @@
          emit_flush();
          clear_tables();
         }
-        | emit{ $$=0 }
-        | nls { $$=0 }
+        | emit{ $$=0; }
+        | nls { $$=0; }
     ;
 
 sub_start: SUB IDENTIFIER '\n'
@@ -586,26 +586,26 @@
     |  _var_or_i
     ;
 
-_var_or_i: var_or_i                     { regs[nargs++] = $1 }
+_var_or_i: var_or_i                     { regs[nargs++] = $1; }
     | lhs '[' keylist ']'               { regs[nargs++] = $1;
                                           regs[nargs++] = $3; $$= $1; }
     ;
 var_or_i:
        IDENTIFIER                      { $$ = mk_address($1, U_add_once); }
     |  var
-    | MACRO                             { $$ = macro($1+1); free($1)}
+    | MACRO                             { $$ = macro($1+1); free($1);}
     ;
 
 var:   VAR
     |  rc
     ;
 
-keylist:                                { nkeys=0 }
+keylist:                                { nkeys=0; }
        _keylist                         { $$ = link_keys(nkeys, keys); }
     ;
 
 _keylist: key                            { keys[nkeys++] = $1; }
-     | _keylist ';' key                  { keys[nkeys++] = $3; $$ =  keys[0] }
+     | _keylist ';' key                  { keys[nkeys++] = $3; $$ =  keys[0]; }
     ;
 
 key:  var

-- 
0x5: Thou shalt not decrease entropy 0x6: Thou shalt not connect PWR to GND
0x7: Thou shalt not sex toads        0x8: Thou shalt not exceed the speed of light
     - 0x10 Commandments, Our Lady Of The All-Night Tool