Make XS/Typemap compile (but fail) with sfio
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 9 Jun 2001 19:13:25 +0000 (19:13 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sat, 9 Jun 2001 19:13:25 +0000 (19:13 +0000)
p4raw-id: //depot/perlio@10489

perlsfio.h

index de7e9ac..0255876 100644 (file)
@@ -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")