Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libF77 / s_copy.c

diff --git a/libf2c/libF77/s_copy.c b/libf2c/libF77/s_copy.c
deleted file mode 100644 (file)
index d167351..0000000
--- a/libf2c/libF77/s_copy.c
+++ /dev/null
@@ -1,51 +0,0 @@
-/* Unless compiled with -DNO_OVERWRITE, this variant of s_copy allows the
- * target of an assignment to appear on its right-hand side (contrary
- * to the Fortran 77 Standard, but in accordance with Fortran 90),
- * as in  a(2:5) = a(4:7) .
- */
-
-#include "f2c.h"
-
-/* assign strings:  a = b */
-
-#ifdef KR_headers
-VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb;
-#else
-void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb)
-#endif
-{
-       register char *aend, *bend;
-
-       aend = a + la;
-
-       if(la <= lb)
-#ifndef NO_OVERWRITE
-               if (a <= b || a >= b + la)
-#endif
-                       while(a < aend)
-                               *a++ = *b++;
-#ifndef NO_OVERWRITE
-               else
-                       for(b += la; a < aend; )
-                               *--aend = *--b;
-#endif
-
-       else {
-               bend = b + lb;
-#ifndef NO_OVERWRITE
-               if (a <= b || a >= bend)
-#endif
-                       while(b < bend)
-                               *a++ = *b++;
-#ifndef NO_OVERWRITE
-               else {
-                       a += lb;
-                       while(b < bend)
-                               *--a = *--bend;
-                       a += lb;
-                       }
-#endif
-               while(a < aend)
-                       *a++ = ' ';
-               }
-       }