diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-11 19:48:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-11 19:48:21 +0000 |
| commit | 8a12f161a3a8b8cc9c866a9f342b9476fb0b9b95 (patch) | |
| tree | f7d97a5034e7bcae78537a54f77a0067f572f6aa /ext/B/B.xs | |
| parent | 887d29384f0bc4b6197573ce19ff42abfe67fa51 (diff) | |
| parent | 11faa288e292c27cb2ddc4ccdc483b523d26ce19 (diff) | |
| download | perl-8a12f161a3a8b8cc9c866a9f342b9476fb0b9b95.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4549
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 731ae950dd..7d0fc742fc 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -746,11 +746,12 @@ LOOP_lastop(o) B::LOOP o #define COP_label(o) o->cop_label -#define COP_stash(o) o->cop_stash -#define COP_filegv(o) o->cop_filegv +#define COP_stashpv(o) CopSTASHPV(o) +#define COP_stash(o) CopSTASH(o) +#define COP_file(o) CopFILE(o) #define COP_cop_seq(o) o->cop_seq #define COP_arybase(o) o->cop_arybase -#define COP_line(o) o->cop_line +#define COP_line(o) CopLINE(o) #define COP_warnings(o) o->cop_warnings MODULE = B PACKAGE = B::COP PREFIX = COP_ @@ -759,12 +760,16 @@ char * COP_label(o) B::COP o +char * +COP_stashpv(o) + B::COP o + B::HV COP_stash(o) B::COP o -B::GV -COP_filegv(o) +char * +COP_file(o) B::COP o U32 @@ -1153,6 +1158,10 @@ B::GV CvGV(cv) B::CV cv +char * +CvFILE(cv) + B::CV cv + long CvDEPTH(cv) B::CV cv |