diff options
Diffstat (limited to 'contrib/perl5/mg.h')
-rw-r--r-- | contrib/perl5/mg.h | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/contrib/perl5/mg.h b/contrib/perl5/mg.h index ccd3acc..ad50f5a 100644 --- a/contrib/perl5/mg.h +++ b/contrib/perl5/mg.h @@ -1,6 +1,6 @@ /* mg.h * - * Copyright (c) 1991-1999, Larry Wall + * Copyright (c) 1991-2000, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -11,11 +11,11 @@ STRUCT_MGVTBL_DEFINITION; #else struct mgvtbl { - 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)); + int (CPERLscope(*svt_get)) (pTHX_ SV *sv, MAGIC* mg); + int (CPERLscope(*svt_set)) (pTHX_ SV *sv, MAGIC* mg); + U32 (CPERLscope(*svt_len)) (pTHX_ SV *sv, MAGIC* mg); + int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg); + int (CPERLscope(*svt_free)) (pTHX_ SV *sv, MAGIC* mg); }; #endif @@ -40,7 +40,7 @@ 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) ((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \ SvPV((SV*)((mg)->mg_ptr),lp) : \ (mg)->mg_ptr) |