diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
| commit | 76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4 (patch) | |
| tree | 1d4e5f5653fd9def6bd71cc0cb536400223f4d3e /mg.h | |
| parent | 6ad3d225cec2692b410002582f5558652eea32c8 (diff) | |
| download | perl-76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4.tar.gz | |
[asperl] added AS patch#2
p4raw-id: //depot/asperl@443
Diffstat (limited to 'mg.h')
| -rw-r--r-- | mg.h | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -8,11 +8,11 @@ */ struct mgvtbl { - int (*svt_get) _((SV *sv, MAGIC* mg)); - int (*svt_set) _((SV *sv, MAGIC* mg)); - U32 (*svt_len) _((SV *sv, MAGIC* mg)); - int (*svt_clear) _((SV *sv, MAGIC* mg)); - int (*svt_free) _((SV *sv, MAGIC* mg)); + int (CPERLscope(*svt_get)) _((SV *sv, MAGIC* mg)); + int (CPERLscope(*svt_set)) _((SV *sv, MAGIC* mg)); + U32 (CPERLscope(*svt_len)) _((SV *sv, MAGIC* mg)); + int (CPERLscope(*svt_clear)) _((SV *sv, MAGIC* mg)); + int (CPERLscope(*svt_free)) _((SV *sv, MAGIC* mg)); }; struct magic { @@ -23,7 +23,7 @@ struct magic { U8 mg_flags; SV* mg_obj; char* mg_ptr; - I32 mg_len; + I32 mg_length; }; #define MGf_TAINTEDDIR 1 @@ -36,6 +36,6 @@ struct magic { #define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR) #define MgTAINTEDDIR_off(mg) (mg->mg_flags &= ~MGf_TAINTEDDIR) -#define MgPV(mg,lp) (((lp = (mg)->mg_len) == HEf_SVKEY) ? \ +#define MgPV(mg,lp) (((lp = (mg)->mg_length) == HEf_SVKEY) ? \ SvPV((SV*)((mg)->mg_ptr),lp) : \ (mg)->mg_ptr) |