diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-09 19:13:25 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-09 19:13:25 +0000 |
| commit | 3b050a92605e8ca176aeb951cf91db11faf40e0b (patch) | |
| tree | 430736984820e63d4beec37d218c0a8d526ae9fd /perlsfio.h | |
| parent | 18472fdc10bcc1a3c78876a91d6b805be2ca4e6c (diff) | |
| download | perl-3b050a92605e8ca176aeb951cf91db11faf40e0b.tar.gz | |
Make XS/Typemap compile (but fail) with sfio
p4raw-id: //depot/perlio@10489
Diffstat (limited to 'perlsfio.h')
| -rw-r--r-- | perlsfio.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perlsfio.h b/perlsfio.h index de7e9acc1f..0255876749 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") |