This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

libI77 backspace fix for i386-mingw32


The following fixes a problem with f77 backspacing on i386-mingw32.
Basically, be like MSDOS.

Sun Jun 14 23:07:22 1998  Mumit Khan  <khan@xraylith.wisc.edu>

	* libI77/backspace.c (f_back): Fix backspace for mingw32.

Index: gcc/f/runtime/libI77/backspace.c
===================================================================
RCS file: /mounts/sda7/src/gnu/CVSROOT/egcs-release/gcc/f/runtime/libI77/backspace.c,v
retrieving revision 1.1.1.1
diff -u -3 -p -r1.1.1.1 backspace.c
--- backspace.c	1998/06/13 22:20:24	1.1.1.1
+++ backspace.c	1998/06/14 01:08:20
@@ -9,7 +9,7 @@ integer f_back(alist *a)
 {	unit *b;
 	int i, ndec;
 	uiolen n;
-#if defined (MSDOS) && !defined (GO32)
+#if (defined (MSDOS) && !defined (GO32)) || defined (__MINGW32__)
 	int j, k;
 	long w, z;
 #endif
@@ -51,7 +51,7 @@ integer f_back(alist *a)
 		(void) fseek(b->ufd,-(long)n-2*sizeof(uiolen),SEEK_CUR);
 		return(0);
 	}
-#if defined (MSDOS) && !defined (GO32)
+#if (defined (MSDOS) && !defined (GO32)) || defined (__MINGW32__)
 	w = -1;
 #endif
 	for(ndec = 1;; ndec = 0)
@@ -66,7 +66,7 @@ integer f_back(alist *a)
 		for(i = n - ndec; --i >= 0; )
 		{
 			if(buf[i]!='\n') continue;
-#if defined (MSDOS) && !defined (GO32)
+#if (defined (MSDOS) && !defined (GO32)) || defined (__MINGW32__)
 			for(j = k = 0; j <= i; j++)
 				if (buf[j] == '\n')
 					k++;
@@ -88,7 +88,7 @@ integer f_back(alist *a)
 #endif
 			return(0);
 		}
-#if defined (MSDOS) && !defined (GO32)
+#if (defined (MSDOS) && !defined (GO32)) || defined (__MINGW32__)
  break2:
 #endif
 		if(x==0)



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]