diff options
| author | Stephen McCamant <smcc@mit.edu> | 1998-06-24 16:10:32 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-28 19:55:11 +0000 |
| commit | 5d11ae5e5fc47938f54836457b96550ad1d9d787 (patch) | |
| tree | 518543495b16e3616ce117013316a4960e8580bc /opcode.h | |
| parent | fdb41d65d2165593b3288a1175c6d1bb79774d63 (diff) | |
| download | perl-5d11ae5e5fc47938f54836457b96550ad1d9d787.tar.gz | |
applied patch, tweaked opcode.pl for PERL_OBJECT, and regen opcode.h
Message-Id: <m0yp1Ue-000EP2C@alias-2.pr.mcs.net>
Subject: [PATCH REPOST] refgen in opcode.pl
p4raw-id: //depot/perl@1241
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1445,7 +1445,7 @@ OP * pp_lock _((ARGSproto)); OP * pp_threadsv _((ARGSproto)); END_EXTERN_C -#endif /* PERL_OBJECT */ +#endif /* PERL_OBJECT */ #ifndef DOINIT EXT OP * (CPERLscope(*ppaddr)[])(ARGSproto); @@ -1799,10 +1799,10 @@ EXT OP * (CPERLscope(*ppaddr)[])(ARGSproto) = { pp_lock, pp_threadsv, }; -#endif /* PERL_OBJECT */ +#endif /* PERL_OBJECT */ #endif -#ifndef DOINIT +#ifndef DOINIT EXT OP * (CPERLscope(*check)[]) _((OP *op)); #else #ifndef PERL_OBJECT @@ -2154,7 +2154,7 @@ EXT OP * (CPERLscope(*check)[]) _((OP *op)) = { ck_rfun, /* lock */ ck_null, /* threadsv */ }; -#endif /* PERL_OBJECT */ +#endif /* PERL_OBJECT */ #endif #ifndef DOINIT @@ -2181,8 +2181,8 @@ EXT U32 opargs[] = { 0x00000140, /* rv2cv */ 0x00000700, /* anoncode */ 0x00001c04, /* prototype */ - 0x00002001, /* refgen */ - 0x00001006, /* srefgen */ + 0x00002101, /* refgen */ + 0x00001106, /* srefgen */ 0x00009c8c, /* ref */ 0x00091504, /* bless */ 0x00000c08, /* backtick */ |