From 5b54f415353cb889898fb25391f5dff73990f3f2 Mon Sep 17 00:00:00 2001 From: Chip Salzenberg Date: Fri, 4 Apr 1997 00:00:00 +0000 Subject: Use SSize_t for values of PerlIO_{read,write} --- perlsdio.h | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'perlsdio.h') diff --git a/perlsdio.h b/perlsdio.h index 97add0f991..8bb50515bd 100644 --- a/perlsdio.h +++ b/perlsdio.h @@ -39,12 +39,14 @@ * VAXCRTL which causes read from a pipe after EOF has been returned * once to hang. */ -# define PerlIO_getc(f) (feof(f) ? EOF : getc(f)) -# define PerlIO_read(f,buf,count) (feof(f) ? 0 : fread(buf,1,count,f)) +# define PerlIO_getc(f) \ + (feof(f) ? EOF : getc(f)) +# define PerlIO_read(f,buf,count) \ + (feof(f) ? 0 : (SSize_t)fread(buf,1,count,f)) #else # define PerlIO_ungetc(f,c) ungetc(c,f) # define PerlIO_getc(f) getc(f) -# define PerlIO_read(f,buf,count) fread(buf,1,count,f) +# define PerlIO_read(f,buf,count) (SSize_t)fread(buf,1,count,f) #endif #define PerlIO_eof(f) feof(f) #define PerlIO_getname(f,b) fgetname(f,b) -- cgit v1.2.1