1*47940Sbostic /*- 2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47940Sbostic * All rights reserved. 422986Skre * 5*47940Sbostic * %sccs.include.proprietary.c% 610555Sdlw */ 710555Sdlw 8*47940Sbostic #ifndef lint 9*47940Sbostic static char sccsid[] = "@(#)short_.c 5.2 (Berkeley) 04/12/91"; 10*47940Sbostic #endif /* not lint */ 11*47940Sbostic 1210555Sdlw /* 1310555Sdlw * convert long ints to short. 1410555Sdlw * 1510555Sdlw * used as follows: 1610555Sdlw * integer*2 short 1710555Sdlw * ... 1810555Sdlw * call mysub(short(ivar)) 1910555Sdlw * where: 2010555Sdlw * mysub expects to receive an integer*2 arg and ivar is integer*4 2110555Sdlw */ 2210555Sdlw short_(i)2310555Sdlwshort short_(i) 2410555Sdlw long *i; 2510555Sdlw { return((short)*i); } 26