110555Sdlw /* 2*22986Skre * Copyright (c) 1980 Regents of the University of California. 3*22986Skre * All rights reserved. The Berkeley software License Agreement 4*22986Skre * specifies the terms and conditions for redistribution. 5*22986Skre * 6*22986Skre * @(#)short_.c 5.1 06/07/85 710555Sdlw */ 810555Sdlw 910555Sdlw /* 1010555Sdlw * convert long ints to short. 1110555Sdlw * 1210555Sdlw * used as follows: 1310555Sdlw * integer*2 short 1410555Sdlw * ... 1510555Sdlw * call mysub(short(ivar)) 1610555Sdlw * where: 1710555Sdlw * mysub expects to receive an integer*2 arg and ivar is integer*4 1810555Sdlw */ 1910555Sdlw 2010555Sdlw short short_(i) 2110555Sdlw long *i; 2210555Sdlw { return((short)*i); } 23