# 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 {
