2.9BSD - /usr/src/lib/libF77/long_.c

   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);   }

Defined functions