Pointer arithmetic not quite right in the generated code.  Also patches
pbc2c.pl to work with rx.ops.

-- 
Jason
Index: pbc2c.pl
===================================================================
RCS file: /home/perlcvs/parrot/pbc2c.pl,v
retrieving revision 1.12
diff -r1.12 pbc2c.pl
30c30
< my $ops = new Parrot::OpsFile ('core.ops', 'vtable.ops');
---
> my $ops = new Parrot::OpsFile ('core.ops', 'rx.ops', 'vtable.ops');
92c92
<     print $ops->preamble;
---
>     print $ops->preamble($trans);
238c238
<     switch((ptrcast_t)cur_opcode - (ptrcast_t)start_code) {
---
>     switch(((ptrcast_t)cur_opcode - (ptrcast_t)start_code) / sizeof(opcode_t)) {

Reply via email to