3 /* compare two strings */
6 integer s_cmp(a0, b0, la, lb) char *a0, *b0; ftnlen la, lb;
8 integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb)
11 register unsigned char *a, *aend, *b, *bend;
12 a = (unsigned char *)a0;
13 b = (unsigned char *)b0;