1 /*
2 * "@(#)long_.c 1.1"
3 */
4
5 /*
6 * convert short ints to long.
7 * Needed for literals in -I2 compiles.
8 * used as follows:
9 * integer*4 long
10 * ...
11 * call ftell(long(11))
12 */
13
14 long long_(i)
15 short *i;
16 { return((long)*i); }
17