From: Nick Ing-Simmons Date: Sat, 9 Jun 2001 19:13:25 +0000 (+0000) Subject: Make XS/Typemap compile (but fail) with sfio X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b050a92605e8ca176aeb951cf91db11faf40e0b;p=p5sagit%2Fp5-mst-13.2.git Make XS/Typemap compile (but fail) with sfio p4raw-id: //depot/perlio@10489 --- diff --git a/perlsfio.h b/perlsfio.h index de7e9ac..0255876 100644 --- a/perlsfio.h +++ b/perlsfio.h @@ -47,7 +47,7 @@ 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) Perl_croak(aTHX_ "Import from FILE * unimplemeted") +#define PerlIO_importFILE(f,fl) ((void) Perl_croak(aTHX_ "Import from FILE * unimplemeted"), NULL) #define PerlIO_exportFILE(f,fl) Perl_croak(aTHX_ "Export to FILE * unimplemeted") #define PerlIO_findFILE(f) NULL #define PerlIO_releaseFILE(p,f) Perl_croak(aTHX_ "Release of FILE * unimplemeted")