mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-05-22 21:32:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Add more libm unit tests and fixes

Browse source 
See #61
This commit is contained in:
Justine Tunney 2021-03-02 13:57:23 -08:00
parent 32e289b1d8
commit 9367253b4d
15 changed files with 390 additions and 124 deletions
Download patch file Download diff file Expand all files Collapse all files

26
libc/tinymath/floorl.S
View file

@ -17,17 +17,23 @@
│ PERFORMANCE OF THIS SOFTWARE. │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/macros.internal.h"
.source __FILE__
floorl: .profilable
fldt 8(%rsp)
mov $7,%al
fstcw 8(%rsp)
mov 9(%rsp),%ah
mov %al,9(%rsp)
fldcw 8(%rsp)
// Returns largest integral not greater than 𝑥.
//
// @param 𝑥 is long double passed on stack
// @return float scalar in low quarter of %xmm0
floorl: pushq %rbp
mov %rsp,%rbp
sub $16,%rsp
fnstcw -2(%rbp)
fldt 16(%rbp)
movzwl -2(%rbp),%eax
and $-13,%ah
or $4,%ah
mov %ax,-4(%rbp)
fldcw -4(%rbp)
frndint
mov %ah,9(%rsp)
fldcw 8(%rsp)
fldcw -2(%rbp)
leave
ret
.endfn floorl,globl