X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bytecode.pl;h=c3c3dc7864493522542d7fc053b47b9a0d2ca600;hb=a411aea0a3f8c0416fcb2b5bf9b69fb9ae7ff965;hp=e3104af7319c7ae575a9c6285aad54d118c8fe77;hpb=a0edd7f8266d86f8576becc8e4647dbf502c681d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/bytecode.pl b/bytecode.pl index e3104af..c3c3dc7 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -4,8 +4,8 @@ BEGIN { } use strict; my %alias_to = ( - U32 => [qw(PADOFFSET STRLEN line_t)], - I32 => [qw(SSize_t long)], + U32 => [qw(line_t)], + PADOFFSET => [qw(STRLEN SSize_t)], U16 => [qw(OPCODE short)], U8 => [qw(char)], ); @@ -452,7 +452,7 @@ op_pmreplroot cPMOP->op_pmreplroot opindex op_pmreplstart cPMOP->op_pmreplstart opindex op_pmnext *(OP**)&cPMOP->op_pmnext opindex #ifdef USE_ITHREADS -op_pmstashpv cPMOP->op_pmstashpv pvindex +op_pmstashpv cPMOP pvindex x op_pmreplrootpo cPMOP->op_pmreplroot OP*/PADOFFSET #else op_pmstash *(SV**)&cPMOP->op_pmstash svindex