/********************************************************************** * Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. * * All Rights Reserved. * * Reference "/usr/src/COPYRIGHT" for applicable restrictions. * **********************************************************************/ /* * SCCSID: @(#)long_.c 3.0 4/22/86 * (Berkeley 2.9) long_.c 1.1 */ /* * convert short ints to long. * Needed for literals in -I2 compiles. * used as follows: * integer*4 long * ... * call ftell(long(11)) */ long long_(i) short *i; { return((long)*i); }