akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

7271

This commit is contained in:
Kartik Agaram 2020-11-25 21:03:52 -08:00
parent dbb5df2790
commit b4932228ca
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
408print-float.mu
View File

@ -90,32 +90,31 @@ fn test-print-float-not-a-number {
}
fn print-float screen: (addr screen), n: float {
$print-float:body: {
# - special names
var bits/eax: int <- reinterpret n
compare bits, 0
{
break-if-!=
print-string screen, "0"
break $print-float:body
return
}
compare bits, 0x80000000
{
break-if-!=
print-string screen, "-0"
break $print-float:body
return
}
compare bits, 0x7f800000
{
break-if-!=
print-string screen, "Inf"
break $print-float:body
return
}
compare bits, 0xff800000
{
break-if-!=
print-string screen, "-Inf"
break $print-float:body
return
}
var exponent/ecx: int <- copy bits
exponent <- shift-right 0x17 # 23 bits of mantissa
@ -124,7 +123,7 @@ $print-float:body: {
{
break-if-!=
print-string screen, "Nan"
break $print-float:body
return
}
# - regular numbers
var sign/edx: int <- copy bits
@ -160,7 +159,6 @@ $print-float:body: {
var exp-magnitude/eax: int <- abs exponent
print-int32-hex-bits screen, exp-magnitude, 8
}
}
#? fn main -> _/ebx: int {
#? run-tests