repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* config/netbsd.h (CPP_SPEC): Remove.
[official-gcc.git]
/
libf2c
/
libF77
/
i_indx.c
blob
96e7bc51ba85c2ed7d579fb9e9f3d314792137aa
1
#include
"f2c.h"
2
3
#ifdef KR_headers
4
integer
i_indx
(
a
,
b
,
la
,
lb
)
char
*
a
, *
b
;
ftnlen la
,
lb
;
5
#else
6
integer
i_indx
(
char
*
a
,
char
*
b
,
ftnlen la
,
ftnlen lb
)
7
#endif
8
{
9
ftnlen i
,
n
;
10
char
*
s
, *
t
, *
bend
;
11
12
n
=
la
-
lb
+
1
;
13
bend
=
b
+
lb
;
14
15
for
(
i
=
0
;
i
<
n
; ++
i
)
16
{
17
s
=
a
+
i
;
18
t
=
b
;
19
while
(
t
<
bend
)
20
if
(*
s
++ != *
t
++)
21
goto
no
;
22
return
(
i
+
1
);
23
no
: ;
24
}
25
return
(
0
);
26
}