From cea2e8a9dd23747fd2b66edc86c58c64e9970321 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 9 Jun 1999 18:03:01 +0000 Subject: more complete support for implicit thread/interpreter pointer, enabled via -DPERL_IMPLICIT_CONTEXT (all changes are noops without that enabled): - USE_THREADS now enables PERL_IMPLICIT_CONTEXT, so dTHR is a noop; tests pass on Solaris; should be faster now! - MULTIPLICITY has been tested with and without PERL_IMPLICIT_CONTEXT on Solaris - improved function database now merged with embed.pl - everything except the varargs functions have foo(a,b,c) macros to provide compatibility - varargs functions default to compatibility variants that get the context pointer using dTHX - there should be almost no source compatibility issues as a result of all this - dl_foo.xs changes other than dl_dlopen.xs untested - still needs documentation, fixups for win32 etc Next step: migrate most non-mutex variables from perlvars.h to intrpvar.h p4raw-id: //depot/perl@3524 --- mg.h | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'mg.h') diff --git a/mg.h b/mg.h index ebd47c3a9b..6a8afdc13b 100644 --- a/mg.h +++ b/mg.h @@ -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 -- cgit v1.2.1