diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 19:33:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 19:33:36 +0000 |
| commit | 810b8aa5436a934d1a2016588cbacf9b55463c40 (patch) | |
| tree | eabed90b74c878cc77d9ec21c13c0263fcc798a1 /perl.h | |
| parent | 885f9e59968d66740b5c621739ead374e8e37a2b (diff) | |
| download | perl-810b8aa5436a934d1a2016588cbacf9b55463c40.tar.gz | |
"weak" references internals, still needs perlguts documentation
(somewhat modified version of patch suggested by Tuomas J. Lukka
<lukka@fas.harvard.edu>)
p4raw-id: //depot/perl@3385
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -2218,7 +2218,8 @@ enum { /* pass one of these to get_vtbl */ want_vtbl_mutex, #endif want_vtbl_regdata, - want_vtbl_regdatum + want_vtbl_regdatum, + want_vtbl_backref }; /* Note: the lowest 8 bits are reserved for @@ -2512,6 +2513,9 @@ EXT MGVTBL PL_vtbl_amagic = {0, magic_setamagic, EXT MGVTBL PL_vtbl_amagicelem = {0, magic_setamagic, 0, 0, magic_setamagic}; +EXT MGVTBL PL_vtbl_backref = {0, 0, + 0, 0, magic_killbackrefs}; + #else /* !DOINIT */ EXT MGVTBL PL_vtbl_sv; @@ -2552,6 +2556,8 @@ EXT MGVTBL PL_vtbl_collxfrm; EXT MGVTBL PL_vtbl_amagic; EXT MGVTBL PL_vtbl_amagicelem; +EXT MGVTBL PL_vtbl_backref; + #endif /* !DOINIT */ enum { |