[perl #54182] [PATCH] languages/PIR build failures

[via RT]

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


Attached patch fixes the syntax errors that prevent languages/PIR to
build in r27508.

Still the tests don't work, it seems partly because 'make' generates a
file pirc.pbc while the test harness expects a file pir.pbc.


-- 
Moritz Lenz
http://moritz.faui2k3.org/ |  http://perl-6.de/

Index: languages/PIR/src/pir.pg
===================================================================
--- languages/PIR/src/pir.pg	(revision 27508)
+++ languages/PIR/src/pir.pg	(working copy)
@@ -624,11 +624,11 @@
 }
 
 token stringsingle {
-    \' <string_literal: '> \'
+    \' <string_literal: '\''> \'
 }
 
 token stringdouble {
-    '"' <string_literal: "> '"'
+    '"' <string_literal: '"'> '"'
 }
 
 token type {
Index: languages/PIR/src/pasm/pasm_args.pg
===================================================================
--- languages/PIR/src/pasm/pasm_args.pg	(revision 27508)
+++ languages/PIR/src/pasm/pasm_args.pg	(working copy)
@@ -34,18 +34,18 @@
 
 rule arg_exp_exp_lab {
   <simple_expr> 
-  [ \, | <syntax_error: ',' expected> ]
+  [ \, | <syntax_error: '\',\' expected'> ]
   <simple_expr> 
-  [ \, | <syntax_error: ',' expected> ]
+  [ \, | <syntax_error: '\',\' expected'> ]
   <id> 
 }
 
 rule isXX_args {
-  [ <int_reg> | <id> ] 
-  [ \, | <syntax_error: ',' expected> ]
-  [ <simple_expr> | <syntax_error: simple expr expected> ]
-  [ \,            | <syntax_error: ',' expected> ]
-  [ <simple_expr> | <syntax_error: simple expr expected> ]
+  [ <int_reg> | <id> ]
+  [ ','           | <syntax_error: '\',\' expected'> ]
+  [ <simple_expr> | <syntax_error: 'simple expr expected'> ]
+  [ ','           | <syntax_error: '\',\' expected'> ]
+  [ <simple_expr> | <syntax_error: 'simple expr expected'> ]
 }
 
 rule arg_get_params { 
@@ -53,12 +53,12 @@
 }
 
 rule param_flag_list {
-  [ \" | \' | <syntax_error: '"' expected> ]
-  [ \(      | <syntax_error: '(' expected> ]
+  [ \" | \' | <syntax_error: '\'"\' expected'> ]
+  [ \(      | <syntax_error: '\'(\' expected'> ]
   <pasm_param_flags>?
-  [ \)      | <syntax_error: ')' expected> ]  
-  [ \" | \' | <syntax_error: closing quote expected> ]
-  [ \, | <syntax_error: ',' expected> ]   
+  [ \)      | <syntax_error: '\')\' expected'> ]  
+  [ \" | \' | <syntax_error: 'closing quote expected'> ]
+  [ \, | <syntax_error: '\',\' expected'> ]   
 }
 
 rule arg_pmc_var_list {