fix bytecode.pl with moved var names
Gurusamy Sarathy [Tue, 21 Jul 1998 07:12:00 +0000 (07:12 +0000)]
p4raw-id: //depot/perl@1611

bytecode.pl
ext/B/B/Asmdata.pm

index a7e3fa3..945b496 100644 (file)
@@ -68,14 +68,14 @@ print BYTERUN_C $c_header, <<'EOT';
 void *
 bset_obj_store(void *obj, I32 ix)
 {
-    if (ix > obj_list_fill) {
-       if (obj_list_fill == -1)
-           New(666, obj_list, ix + 1, void*);
+    if (ix > PL_obj_list_fill) {
+       if (PL_obj_list_fill == -1)
+           New(666, PL_obj_list, ix + 1, void*);
        else
-           Renew(obj_list, ix + 1, void*);
-       obj_list_fill = ix;
+           Renew(PL_obj_list, ix + 1, void*);
+       PL_obj_list_fill = ix;
     }
-    obj_list[ix] = obj;
+    PL_obj_list[ix] = obj;
     return obj;
 }
 
@@ -121,7 +121,7 @@ while (<DATA>) {
     if ($flags =~ /x/) {
        print BYTERUN_C "\t\tBSET_$insn($lvalue$optarg);\n";
     } elsif ($flags =~ /s/) {
-       # Store instructions store to obj_list[arg]. "lvalue" field is rvalue.
+       # Store instructions store to PL_obj_list[arg]. "lvalue" field is rvalue.
        print BYTERUN_C "\t\tBSET_OBJ_STORE($lvalue$optarg);\n";
     }
     elsif ($optarg && $lvalue ne "none") {
@@ -234,6 +234,26 @@ while (($insn_name, $insn_data) = each %insn_data) {
 @insn_name = map($_ || "unused", @insn_name);
 
 1;
+
+__END__
+
+=head1 NAME
+
+B::Asmdata - Autogenerated data about Perl ops, used to generate bytecode
+
+=head1 SYNOPSIS
+
+       use Asmdata;
+
+=head1 DESCRIPTION
+
+See F<ext/B/B/Asmdata.pm>.
+
+=head1 AUTHOR
+
+Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
+
+=cut
 EOT
 
 __END__
@@ -250,85 +270,85 @@ nop               none                    none
 #opcode                lvalue                  argtype         flags   
 #
 ret            none                    none            x
-ldsv           sv                      svindex
+ldsv           PL_sv                   svindex
 ldop           PL_op                   opindex
-stsv           sv                      U32             s
+stsv           PL_sv                   U32             s
 stop           PL_op                   U32             s
-ldspecsv       sv                      U8              x
-newsv          sv                      U8              x
+ldspecsv       PL_sv                   U8              x
+newsv          PL_sv                   U8              x
 newop          PL_op                   U8              x
 newopn         PL_op                   U8              x
 newpv          none                    PV
-pv_cur         pv.xpv_cur              STRLEN
-pv_free                pv                      none            x
-sv_upgrade     sv                      char            x
-sv_refcnt      SvREFCNT(sv)            U32
-sv_refcnt_add  SvREFCNT(sv)            I32             x
-sv_flags       SvFLAGS(sv)             U32
-xrv            SvRV(sv)                svindex
-xpv            sv                      none            x
-xiv32          SvIVX(sv)               I32
-xiv64          SvIVX(sv)               IV64
-xnv            SvNVX(sv)               double
-xlv_targoff    LvTARGOFF(sv)           STRLEN
-xlv_targlen    LvTARGLEN(sv)           STRLEN
-xlv_targ       LvTARG(sv)              svindex
-xlv_type       LvTYPE(sv)              char
-xbm_useful     BmUSEFUL(sv)            I32
-xbm_previous   BmPREVIOUS(sv)          U16
-xbm_rare       BmRARE(sv)              U8
-xfm_lines      FmLINES(sv)             I32
-xio_lines      IoLINES(sv)             long
-xio_page       IoPAGE(sv)              long
-xio_page_len   IoPAGE_LEN(sv)          long
-xio_lines_left IoLINES_LEFT(sv)        long
-xio_top_name   IoTOP_NAME(sv)          pvcontents
-xio_top_gv     *(SV**)&IoTOP_GV(sv)    svindex
-xio_fmt_name   IoFMT_NAME(sv)          pvcontents
-xio_fmt_gv     *(SV**)&IoFMT_GV(sv)    svindex
-xio_bottom_name        IoBOTTOM_NAME(sv)       pvcontents
-xio_bottom_gv  *(SV**)&IoBOTTOM_GV(sv) svindex
-xio_subprocess IoSUBPROCESS(sv)        short
-xio_type       IoTYPE(sv)              char
-xio_flags      IoFLAGS(sv)             char
-xcv_stash      *(SV**)&CvSTASH(sv)     svindex
-xcv_start      CvSTART(sv)             opindex
-xcv_root       CvROOT(sv)              opindex
-xcv_gv         *(SV**)&CvGV(sv)        svindex
-xcv_filegv     *(SV**)&CvFILEGV(sv)    svindex
-xcv_depth      CvDEPTH(sv)             long
-xcv_padlist    *(SV**)&CvPADLIST(sv)   svindex
-xcv_outside    *(SV**)&CvOUTSIDE(sv)   svindex
-xcv_flags      CvFLAGS(sv)             U8
-av_extend      sv                      SSize_t         x
-av_push                sv                      svindex         x
-xav_fill       AvFILLp(sv)             SSize_t
-xav_max                AvMAX(sv)               SSize_t
-xav_flags      AvFLAGS(sv)             U8
-xhv_riter      HvRITER(sv)             I32
-xhv_name       HvNAME(sv)              pvcontents
-hv_store       sv                      svindex         x
-sv_magic       sv                      char            x
-mg_obj         SvMAGIC(sv)->mg_obj     svindex
-mg_private     SvMAGIC(sv)->mg_private U16
-mg_flags       SvMAGIC(sv)->mg_flags   U8
-mg_pv          SvMAGIC(sv)             pvcontents      x
-xmg_stash      *(SV**)&SvSTASH(sv)     svindex
-gv_fetchpv     sv                      strconst        x
-gv_stashpv     sv                      strconst        x
-gp_sv          GvSV(sv)                svindex
-gp_refcnt      GvREFCNT(sv)            U32
-gp_refcnt_add  GvREFCNT(sv)            I32             x
-gp_av          *(SV**)&GvAV(sv)        svindex
-gp_hv          *(SV**)&GvHV(sv)        svindex
-gp_cv          *(SV**)&GvCV(sv)        svindex
-gp_filegv      *(SV**)&GvFILEGV(sv)    svindex
-gp_io          *(SV**)&GvIOp(sv)       svindex
-gp_form                *(SV**)&GvFORM(sv)      svindex
-gp_cvgen       GvCVGEN(sv)             U32
-gp_line                GvLINE(sv)              line_t
-gp_share       sv                      svindex         x
-xgv_flags      GvFLAGS(sv)             U8
+pv_cur         PL_pv.xpv_cur           STRLEN
+pv_free                PL_pv                   none            x
+sv_upgrade     PL_sv                   char            x
+sv_refcnt      SvREFCNT(PL_sv)         U32
+sv_refcnt_add  SvREFCNT(PL_sv)         I32             x
+sv_flags       SvFLAGS(PL_sv)          U32
+xrv            SvRV(PL_sv)             svindex
+xpv            PL_sv                   none            x
+xiv32          SvIVX(PL_sv)            I32
+xiv64          SvIVX(PL_sv)            IV64
+xnv            SvNVX(PL_sv)            double
+xlv_targoff    LvTARGOFF(PL_sv)                STRLEN
+xlv_targlen    LvTARGLEN(PL_sv)                STRLEN
+xlv_targ       LvTARG(PL_sv)           svindex
+xlv_type       LvTYPE(PL_sv)           char
+xbm_useful     BmUSEFUL(PL_sv)         I32
+xbm_previous   BmPREVIOUS(PL_sv)               U16
+xbm_rare       BmRARE(PL_sv)           U8
+xfm_lines      FmLINES(PL_sv)          I32
+xio_lines      IoLINES(PL_sv)          long
+xio_page       IoPAGE(PL_sv)           long
+xio_page_len   IoPAGE_LEN(PL_sv)               long
+xio_lines_left IoLINES_LEFT(PL_sv)     long
+xio_top_name   IoTOP_NAME(PL_sv)               pvcontents
+xio_top_gv     *(SV**)&IoTOP_GV(PL_sv) svindex
+xio_fmt_name   IoFMT_NAME(PL_sv)               pvcontents
+xio_fmt_gv     *(SV**)&IoFMT_GV(PL_sv) svindex
+xio_bottom_name        IoBOTTOM_NAME(PL_sv)    pvcontents
+xio_bottom_gv  *(SV**)&IoBOTTOM_GV(PL_sv)      svindex
+xio_subprocess IoSUBPROCESS(PL_sv)     short
+xio_type       IoTYPE(PL_sv)           char
+xio_flags      IoFLAGS(PL_sv)          char
+xcv_stash      *(SV**)&CvSTASH(PL_sv)  svindex
+xcv_start      CvSTART(PL_sv)          opindex
+xcv_root       CvROOT(PL_sv)           opindex
+xcv_gv         *(SV**)&CvGV(PL_sv)     svindex
+xcv_filegv     *(SV**)&CvFILEGV(PL_sv) svindex
+xcv_depth      CvDEPTH(PL_sv)          long
+xcv_padlist    *(SV**)&CvPADLIST(PL_sv)        svindex
+xcv_outside    *(SV**)&CvOUTSIDE(PL_sv)        svindex
+xcv_flags      CvFLAGS(PL_sv)          U8
+av_extend      PL_sv                   SSize_t         x
+av_push                PL_sv                   svindex         x
+xav_fill       AvFILLp(PL_sv)          SSize_t
+xav_max                AvMAX(PL_sv)            SSize_t
+xav_flags      AvFLAGS(PL_sv)          U8
+xhv_riter      HvRITER(PL_sv)          I32
+xhv_name       HvNAME(PL_sv)           pvcontents
+hv_store       PL_sv                   svindex         x
+sv_magic       PL_sv                   char            x
+mg_obj         SvMAGIC(PL_sv)->mg_obj  svindex
+mg_private     SvMAGIC(PL_sv)->mg_private      U16
+mg_flags       SvMAGIC(PL_sv)->mg_flags        U8
+mg_pv          SvMAGIC(PL_sv)          pvcontents      x
+xmg_stash      *(SV**)&SvSTASH(PL_sv)  svindex
+gv_fetchpv     PL_sv                   strconst        x
+gv_stashpv     PL_sv                   strconst        x
+gp_sv          GvSV(PL_sv)             svindex
+gp_refcnt      GvREFCNT(PL_sv)         U32
+gp_refcnt_add  GvREFCNT(PL_sv)         I32             x
+gp_av          *(SV**)&GvAV(PL_sv)     svindex
+gp_hv          *(SV**)&GvHV(PL_sv)     svindex
+gp_cv          *(SV**)&GvCV(PL_sv)     svindex
+gp_filegv      *(SV**)&GvFILEGV(PL_sv) svindex
+gp_io          *(SV**)&GvIOp(PL_sv)    svindex
+gp_form                *(SV**)&GvFORM(PL_sv)   svindex
+gp_cvgen       GvCVGEN(PL_sv)          U32
+gp_line                GvLINE(PL_sv)           line_t
+gp_share       PL_sv                   svindex         x
+xgv_flags      GvFLAGS(PL_sv)          U8
 op_next                PL_op->op_next          opindex
 op_sibling     PL_op->op_sibling       opindex
 op_ppaddr      PL_op->op_ppaddr        strconst        x
index 247c5ae..f3e57a1 100644 (file)
@@ -148,3 +148,23 @@ while (($insn_name, $insn_data) = each %insn_data) {
 @insn_name = map($_ || "unused", @insn_name);
 
 1;
+
+__END__
+
+=head1 NAME
+
+B::Asmdata - Autogenerated data about Perl ops, used to generate bytecode
+
+=head1 SYNOPSIS
+
+       use Asmdata;
+
+=head1 DESCRIPTION
+
+See F<ext/B/B/Asmdata.pm>.
+
+=head1 AUTHOR
+
+Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
+
+=cut