|
|
1.1 root 1: #ifdef LIBC_SCCS
2: .asciz "@(#)fabs.s 5.2 (Berkeley) 3/9/86"
3: #endif LIBC_SCCS
4:
5: /* fabs - floating absolute value */
6:
7: #include "DEFS.h"
8:
9: ENTRY(fabs, 0)
10: movd 4(ap),r0
11: bgeq 1f
12: mnegd r0,r0
13: 1:
14: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.