diff options
author | Jonathan Gray <jsg@cvs.openbsd.org> | 2012-04-14 06:01:43 +0000 |
---|---|---|
committer | Jonathan Gray <jsg@cvs.openbsd.org> | 2012-04-14 06:01:43 +0000 |
commit | 39016485a7467e1fdc62b4e77c8cecba061ecdf4 (patch) | |
tree | 8613786a5fe755a03054390640cd111f3a999494 /gnu/lib/libf2c/libF77/h_indx.c | |
parent | 7282a200e9a6f3b23c4b910ccd116363d52619f4 (diff) |
remove libf2c, hasn't been built since it was moved to ports in 2010.
ok miod@ espie@
Diffstat (limited to 'gnu/lib/libf2c/libF77/h_indx.c')
-rw-r--r-- | gnu/lib/libf2c/libF77/h_indx.c | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gnu/lib/libf2c/libF77/h_indx.c b/gnu/lib/libf2c/libF77/h_indx.c deleted file mode 100644 index 2353b2b143a..00000000000 --- a/gnu/lib/libf2c/libF77/h_indx.c +++ /dev/null @@ -1,23 +0,0 @@ -#include "f2c.h" - -shortint -h_indx (char *a, char *b, ftnlen la, ftnlen lb) -{ - ftnlen i, n; - char *s, *t, *bend; - - n = la - lb + 1; - bend = b + lb; - - for (i = 0; i < n; ++i) - { - s = a + i; - t = b; - while (t < bend) - if (*s++ != *t++) - goto no; - return ((shortint) i + 1); - no:; - } - return (0); -} |