f_back (f/runtime/libI77/backspace.c): use type `uiolen' to determine size of…

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

+Sun Jan 18 20:01:37 1998  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	* 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 <khan@xraylith.wisc.edu>
 
 	* libU77/configure.in (sys/param.h,sys/times.h): Check.

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)