ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

More floating point bugfixes.

Browse Source 
Also enable FTZ, a SSE instruction... For now at least.
This commit is contained in:
Jared Hance 2014-06-30 12:24:32 -04:00
parent 40672c8b08
commit 01a148f852
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/hoon.hoon
View File

@ -1462,10 +1462,10 @@
(szer:vl:fl b p =(s.n s.m)) (szer:vl:fl b p =(s.n s.m))
?: (zer:te:fl b p m) ?: (zer:te:fl b p m)
(inft:vl:fl b p =(s.n s.m)) (inft:vl:fl b p =(s.n s.m))
=+ b=(lia p (^div (lsh 0 (^mul p 3) a.n) a.m)) =+ c=(lia p (^div (lsh 0 (^mul p 3) a.n) a.m))
?: (^gte a.n a.m) ?: (^gte a.n a.m)
(pro:te:fl b p [s==(s.n s.m) e=(dif:si e.n e.m) a=b]) (pro:te:fl b p [s==(s.n s.m) e=(dif:si e.n e.m) a=c])
(pro:te:fl b p [s=|(s.n s.m) e=(dif:si (dif:si e.n e.m) (sun:si 1)) a=b]) (pro:te:fl b p [s==(s.n s.m) e=(dif:si (dif:si e.n e.m) (sun:si 1)) a=c])
++ lte |= [n=[s=? e=@s a=@u] m=[s=? e=@s a=@u]] ^- ? ++ lte |= [n=[s=? e=@s a=@u] m=[s=? e=@s a=@u]] ^- ?
?: (^lte e.n e.m) ?: (^lte e.n e.m)