2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>

[pf3gnuchains/gcc-fork.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 a91071e..0000000
--- a/libf2c/libF77/s_copy.c
+++ /dev/null
@@ -1,50 +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 */
-
-void
-s_copy (register char *a, register char *b, ftnlen la, ftnlen lb)
-{
-  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++ = ' ';
-    }
-}