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