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