19 lines
560 B
C
19 lines
560 B
C
/* $XConsortium: sparse.c /main/3 1995/11/08 11:07:31 rswiston $ */
|
|
/* Copyright (c) 1986, 1987, 1988, 1989 Hewlett-Packard Co. */
|
|
/* Sparse.c has a procedure used with the tables generated by program
|
|
CONTEXT when the sparse option is used */
|
|
|
|
int m_sprscon(i, j)
|
|
int i, j ;
|
|
{
|
|
int k ;
|
|
|
|
for (k = m_trnsptr[i] ; k ; k++) {
|
|
if ((int) m_trnsit[k - 1].context > j) return(0) ;
|
|
if (! m_trnsit[k - 1].context) return(0) ;
|
|
if ((int) m_trnsit[k - 1].context == j)
|
|
return(m_trnsit[k - 1].nextcon) ;
|
|
}
|
|
return(0) ;
|
|
}
|