|
|
1.1 root 1: //////////
2: / /usr/src/libm/i387/atan87.s
3: / i387 mathematics library
4: / atan(d)
5: //////////
6:
7: RASIZE = 4
8:
9: .globl atan
10:
11: //////////
12: / double
13: / atan(d)
14: / double d;
15: //////////
16:
17: d = RASIZE / arg offset
18:
19: atan:
20: fldl d(%esp) / Load argument d.
21: fld1 / 1.0, d.
22: fpatan / Result = atan(d/1).
23: ret
24:
25: / end of atan87.s
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.