ack/lang/a68s/liba68s/signr.c

5 lines
110 B
C
Raw Normal View History

1988-10-04 13:41:01 +00:00
SIGNR(statlink, n)
int *statlink ;
register double n ;
{ return( n < 0.0 ? - 1 : n == 0.0 ? 0 : 1 ) ; }