1*10555Sdlw /* 2*10555Sdlw * "@(#)short_.c 1.1" 3*10555Sdlw */ 4*10555Sdlw 5*10555Sdlw /* 6*10555Sdlw * convert long ints to short. 7*10555Sdlw * 8*10555Sdlw * used as follows: 9*10555Sdlw * integer*2 short 10*10555Sdlw * ... 11*10555Sdlw * call mysub(short(ivar)) 12*10555Sdlw * where: 13*10555Sdlw * mysub expects to receive an integer*2 arg and ivar is integer*4 14*10555Sdlw */ 15*10555Sdlw 16*10555Sdlw short short_(i) 17*10555Sdlw long *i; 18*10555Sdlw { return((short)*i); } 19