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

bad float implementation

Browse source
This commit is contained in:
pommicket 2022-01-12 09:45:20 -05:00
parent 0779a0fab5
commit cbe3580001
3 changed files with 41 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

21
05/util.b
View file

@ -24,7 +24,26 @@ function full_multiply_signed
*8p_lower = lower
*8p_upper = upper
return
; allows for negative shifts
function right_shift
argument x
argument n
if n < 0 goto right_shift_negative
return x > n
:right_shift_negative
n = 0 - n
return x < n
; allows for negative shifts
function left_shift
argument x
argument n
if n < 0 goto right_shift_negative
return x < n
:left_shift_negative
n = 0 - n
return x > n
function file_error
argument name