110509Sdlw /* 2*22924Skre * Copyright (c) 1980 Regents of the University of California. 3*22924Skre * All rights reserved. The Berkeley software License Agreement 4*22924Skre * specifies the terms and conditions for redistribution. 5*22924Skre * 6*22924Skre * @(#)long_.c 5.1 06/07/85 710509Sdlw */ 810509Sdlw 910509Sdlw /* 1010509Sdlw * convert short ints to long. 1110509Sdlw * Needed for literals in -I2 compiles. 1210509Sdlw * used as follows: 1310509Sdlw * integer*4 long 1410509Sdlw * ... 1510509Sdlw * call ftell(long(11)) 1610509Sdlw */ 1710509Sdlw 1810509Sdlw long long_(i) 1910509Sdlw short *i; 2010509Sdlw { return((long)*i); } 21