ack/lang/a68s/liba68s/shl.c

5 lines
132 B
C
Raw Permalink Normal View History

1988-10-04 13:41:01 +00:00
SHL(statlink, n , a)
int *statlink ;
unsigned a ;
{ return( n < 0 ? ( - n >= 32 ? 0 : a >> - n ) : n >= 32 ? 0 : a << n ) ; }