diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-11 06:04:20 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-11 06:04:20 +0000 |
| commit | 57843af05bc7863df9b9bfb6b37e3a29d08532a9 (patch) | |
| tree | afce7f3f9e5ac7d38a7578c9d040f161c686fe6b /ext/B/B.xs | |
| parent | 743e66e61aecff1c9998bd0ff719a1d679b03e9f (diff) | |
| download | perl-57843af05bc7863df9b9bfb6b37e3a29d08532a9.tar.gz | |
another change towards a shareable optree: avoid pointer to filegv
in COP; revert parts of change#4485 and s/xcv_filegv/xcv_file/
(CvFILE() may yet come in handy somewhere); adjust compiler doodads
to suit
p4raw-link: @4485 on //depot/perl: b195d4879f55e1610299cb9b1b55356940c2a577
p4raw-id: //depot/perl@4545
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 224354c850..cef9ecbf6a 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -747,10 +747,10 @@ LOOP_lastop(o) #define COP_label(o) o->cop_label #define COP_stash(o) o->cop_stash -#define COP_filegv(o) o->cop_filegv +#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_ @@ -763,8 +763,8 @@ B::HV COP_stash(o) B::COP o -B::GV -COP_filegv(o) +char * +COP_file(o) B::COP o U32 @@ -1153,6 +1153,10 @@ B::GV CvGV(cv) B::CV cv +char * +CvFILE(cv) + B::CV cv + long CvDEPTH(cv) B::CV cv |