On Mon, Sep 10, 2001 at 04:04:20PM -0700, Damien Neil wrote:
> The following quick-and-dirty patch appears to work. This prefixes
> all opcode functions with "Parrot_op_". I'd have made the prefix
> configurable, but the opcode generation is spread across three
> different files.
Oops--that breaks the assembler. This patch fixes the assembler to
work with the prior patch.
- Damien
Index: assemble.pl
===================================================================
RCS file: /home/perlcvs/parrot/assemble.pl,v
retrieving revision 1.6
diff -u -u -r1.6 assemble.pl
--- assemble.pl 2001/09/10 21:26:08 1.6
+++ assemble.pl 2001/09/10 23:43:30
@@ -15,7 +15,7 @@
open GUTS, "interp_guts.h";
my $opcode;
while (<GUTS>) {
- next unless /\tx\[(\d+)\] = ([a-z_]+);/;
+ next unless /\tx\[(\d+)\] = Parrot_op_([a-z_]+);/;
$opcodes{$2}{CODE} = $1;
}
