From 94f09d6b4079723b2116914a6e0300fe6e483d97 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sun, 18 Jan 1998 21:02:04 +0100 Subject: [PATCH] f_back (f/runtime/libI77/backspace.c): use type `uiolen' to determine size of record length specifier. * f_back (f/runtime/libI77/backspace.c): use type `uiolen' to determine size of record length specifier. From-SVN: r17414 --- gcc/f/runtime/ChangeLog.egcs | 5 +++++ gcc/f/runtime/libI77/backspace.c | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/gcc/f/runtime/ChangeLog.egcs b/gcc/f/runtime/ChangeLog.egcs index e052c2dfd76..86cafcc8af1 100644 --- a/gcc/f/runtime/ChangeLog.egcs +++ b/gcc/f/runtime/ChangeLog.egcs @@ -1,3 +1,8 @@ +Sun Jan 18 20:01:37 1998 Toon Moene + + * f_back (f/runtime/libI77/backspace.c): use type `uiolen' + to determine size of record length specifier. + Sat Jan 17 22:40:31 1998 Mumit Khan * libU77/configure.in (sys/param.h,sys/times.h): Check. diff --git a/gcc/f/runtime/libI77/backspace.c b/gcc/f/runtime/libI77/backspace.c index 8413d5f6821..d12c5ac7ba8 100644 --- a/gcc/f/runtime/libI77/backspace.c +++ b/gcc/f/runtime/libI77/backspace.c @@ -7,7 +7,8 @@ integer f_back(a) alist *a; integer f_back(alist *a) #endif { unit *b; - int i, n, ndec; + int i, ndec; + uiolen n; #if defined (MSDOS) && !defined (GO32) int j, k; long w, z; @@ -45,9 +46,9 @@ integer f_back(alist *a) } if(b->ufmt==0) - { (void) fseek(b->ufd,-(long)sizeof(int),SEEK_CUR); + { (void) fseek(b->ufd,-(long)sizeof(uiolen),SEEK_CUR); (void) fread((char *)&n,sizeof(int),1,b->ufd); - (void) fseek(b->ufd,-(long)n-2*sizeof(int),SEEK_CUR); + (void) fseek(b->ufd,-(long)n-2*sizeof(uiolen),SEEK_CUR); return(0); } #if defined (MSDOS) && !defined (GO32) -- 2.30.2