X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.h;h=6a8afdc13bc6e11e87b76c4663f5dcbda357f00b;hb=3e0057efe0ecfa8a2ce5cf80276af07d2b2bc856;hp=702699fa71beecae53ac75485891d6a96890ced9;hpb=33c2748902d07b7ec367f87ad66e61e89f2aa994;p=p5sagit%2Fp5-mst-13.2.git diff --git a/mg.h b/mg.h index 702699f..6a8afdc 100644 --- a/mg.h +++ b/mg.h @@ -1,6 +1,6 @@ /* mg.h * - * Copyright (c) 1991-1997, Larry Wall + * Copyright (c) 1991-1999, 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