dawids/lang-bootstrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

untested first stab at floats

Browse source
This commit is contained in:
pommicket 2022-01-11 22:29:00 -05:00
parent 343129a610
commit 06ebaf043b
3 changed files with 82 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
05/main.b
View file

@ -152,6 +152,7 @@ function normalize_float
local exponent
significand = *8p_significand
if significand == 0 goto normalize_0
exponent = *8p_exponent
:float_reduce_loop
@ -169,7 +170,10 @@ function normalize_float
*8p_significand = significand
*8p_exponent = exponent
return
:normalize_0
*8p_exponent = 0
return
function fill_in_powers_of_10
local i
local p