1 /*-
2 * Copyright (c) 1980 The Regents of the University of California.
3 * All rights reserved.
4 *
5 * %sccs.include.proprietary.c%
6 */
7
8 #ifndef lint
9 static char sccsid[] = "@(#)short_.c 5.2 (Berkeley) 04/12/91";
10 #endif /* not lint */
11
12 /*
13 * convert long ints to short.
14 *
15 * used as follows:
16 * integer*2 short
17 * ...
18 * call mysub(short(ivar))
19 * where:
20 * mysub expects to receive an integer*2 arg and ivar is integer*4
21 */
22
short_(i)23 short short_(i)
24 long *i;
25 { return((short)*i); }
26