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 --- perlsfio.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perlsfio.h') diff --git a/perlsfio.h b/perlsfio.h index 8c9387fbd0..d6731e46ac 100644 --- a/perlsfio.h +++ b/perlsfio.h @@ -34,10 +34,10 @@ extern int _stdprintf _ARG_((const char*, ...)); #define PerlIO_rewind(f) (void) sfseek((f),0L,0) #define PerlIO_tmpfile() sftmp(0) -#define PerlIO_importFILE(f,fl) croak("Import from FILE * unimplemeted") -#define PerlIO_exportFILE(f,fl) croak("Export to FILE * unimplemeted") +#define PerlIO_importFILE(f,fl) Perl_croak(aTHX_ "Import from FILE * unimplemeted") +#define PerlIO_exportFILE(f,fl) Perl_croak(aTHX_ "Export to FILE * unimplemeted") #define PerlIO_findFILE(f) NULL -#define PerlIO_releaseFILE(p,f) croak("Release of FILE * unimplemeted") +#define PerlIO_releaseFILE(p,f) Perl_croak(aTHX_ "Release of FILE * unimplemeted") #define PerlIO_setlinebuf(f) sfset(f,SF_LINE,1) -- cgit v1.2.1