xref: /csrg-svn/usr.bin/f77/libF77/hl_lt.c (revision 47940)
1*47940Sbostic /*-
2*47940Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic  * All rights reserved.
422907Skre  *
5*47940Sbostic  * %sccs.include.proprietary.c%
610496Sdlw  */
710496Sdlw 
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)hl_lt.c	5.2 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic 
hl_lt(a,b,la,lb)1210496Sdlw short hl_lt(a,b,la,lb)
1310496Sdlw char *a, *b;
1410496Sdlw long int la, lb;
1510496Sdlw {
1610496Sdlw return(s_cmp(a,b,la,lb) < 0);
1710496Sdlw }
18