xref: /csrg-svn/usr.bin/pascal/libpc/TRUNC.c (revision 3037)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)TRUNC.c 1.2 03/07/81";
4 
5 long
6 TRUNC(value)
7 
8 	double	value;
9 {
10 	return (long)(value);
11 }
12