diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/h_indx.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/h_indx.c | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/h_indx.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/h_indx.c deleted file mode 100644 index 018f2f43861..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/h_indx.c +++ /dev/null @@ -1,32 +0,0 @@ -#include "f2c.h" -#ifdef __cplusplus -extern "C" { -#endif - -#ifdef KR_headers -shortint h_indx(a, b, la, lb) char *a, *b; ftnlen la, lb; -#else -shortint h_indx(char *a, char *b, ftnlen la, ftnlen lb) -#endif -{ -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); -} -#ifdef __cplusplus -} -#endif |