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.pl | |
| 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.pl')
| -rwxr-xr-x | opcode.pl | 18 |
1 files changed, 12 insertions, 6 deletions
@@ -77,6 +77,7 @@ print <<END; }; #endif +#ifndef PERL_OBJECT START_EXTERN_C END @@ -98,11 +99,13 @@ for (@ops) { print <<END; END_EXTERN_C +#endif /* PERL_OBJECT */ #ifndef DOINIT -EXT OP * (*ppaddr[])(ARGSproto); +EXT OP * (CPERLscope(*ppaddr)[])(ARGSproto); #else -EXT OP * (*ppaddr[])(ARGSproto) = { +#ifndef PERL_OBJECT +EXT OP * (CPERLscope(*ppaddr)[])(ARGSproto) = { END for (@ops) { @@ -111,6 +114,7 @@ for (@ops) { print <<END; }; +#endif /* PERL_OBJECT */ #endif END @@ -119,9 +123,10 @@ END print <<END; #ifndef DOINIT -EXT OP * (*check[]) _((OP *op)); +EXT OP * (CPERLscope(*check)[]) _((OP *op)); #else -EXT OP * (*check[]) _((OP *op)) = { +#ifndef PERL_OBJECT +EXT OP * (CPERLscope(*check)[]) _((OP *op)) = { END for (@ops) { @@ -130,6 +135,7 @@ for (@ops) { print <<END; }; +#endif /* PERL_OBJECT */ #endif END @@ -241,8 +247,8 @@ av2arylen array length ck_null is1 rv2cv subroutine deref ck_rvconst d1 anoncode anonymous subroutine ck_anoncode $ prototype subroutine prototype ck_null s% S -refgen reference constructor ck_spair m0 L -srefgen scalar ref constructor ck_null fs0 S +refgen reference constructor ck_spair m1 L +srefgen scalar ref constructor ck_null fs1 S ref reference-type operator ck_fun stu% S? bless bless ck_fun s@ S S? |