Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-23 07:32:10 +00:00
Code Issues Projects Releases Wiki Activity
c719e274d5
prog8/compiler/test/comparisons/test_float_lte.p8
Irmen de Jong 56c1035581 Merge branch 'master' into multi-assign 
# Conflicts:
#	docs/source/todo.rst
#	examples/test.p8
2024-03-26 22:09:16 +01:00

483 lines
8.8 KiB
Lua
Raw Blame History

%import textio
%import floats
%import test_stack
%zeropage dontuse
%option no_sysinit
main {
ubyte success = 0
str datatype = "float"
uword @shared comparison
sub start() {
txt.print("\nless-equal tests for: ")
txt.print(datatype)
txt.nl()
test_stack.test()
txt.print("\n<=number: ")
test_cmp_number()
txt.print("\n<=var: ")
test_cmp_var()
txt.print("\n<=array[]: ")
test_cmp_array()
txt.print("\n<=expr: ")
test_cmp_expr()
test_stack.test()
}
sub verify_success(ubyte expected) {
if success==expected {
txt.print("ok")
} else {
txt.print(" **failed** ")
txt.print_ub(success)
txt.print(" success, expected ")
txt.print_ub(expected)
}
}
sub fail_byte(uword idx) {
txt.print(" **fail#")
txt.print_uw(idx)
txt.print(" **")
}
sub fail_ubyte(uword idx) {
txt.print(" **fail#")
txt.print_uw(idx)
txt.print(" **")
}
sub fail_word(uword idx) {
txt.print(" **fail#")
txt.print_uw(idx)
txt.print(" **")
}
sub fail_uword(uword idx) {
txt.print(" **fail#")
txt.print_uw(idx)
txt.print(" **")
}
sub fail_float(uword idx) {
txt.print(" **fail#")
txt.print_uw(idx)
txt.print(" **")
}
sub test_cmp_number() {
float @shared x
success = 0
x=0.0
; direct jump
if x<=0.0
goto lbl1a
goto skip1a
lbl1a: success++
skip1a:
; indirect jump
cx16.r3 = &lbl1b
if x<=0.0
goto cx16.r3
goto skip1b
lbl1b: success++
skip1b:
; no else
if x<=0.0
success++
; with else
if x<=0.0
success++
else
cx16.r0L++
; direct jump
if x<=1234.56
goto lbl2a
goto skip2a
lbl2a: success++
skip2a:
; indirect jump
cx16.r3 = &lbl2b
if x<=1234.56
goto cx16.r3
goto skip2b
lbl2b: success++
skip2b:
; no else
if x<=1234.56
success++
; with else
if x<=1234.56
success++
else
cx16.r0L++
x=1234.56
; direct jump
if x<=0.0
goto lbl3a
goto skip3a
lbl3a: fail_float(1)
skip3a:
; indirect jump
cx16.r3 = &lbl3b
if x<=0.0
goto cx16.r3
goto skip3b
lbl3b: fail_float(2)
skip3b:
; no else
if x<=0.0
fail_float(3)
; with else
if x<=0.0
fail_float(4)
else
success++
; direct jump
if x<=1234.56
goto lbl4a
goto skip4a
lbl4a: success++
skip4a:
; indirect jump
cx16.r3 = &lbl4b
if x<=1234.56
goto cx16.r3
goto skip4b
lbl4b: success++
skip4b:
; no else
if x<=1234.56
success++
; with else
if x<=1234.56
success++
else
cx16.r0L++
verify_success(13)
}
sub test_cmp_var() {
float @shared x, value
success = 0
x=0.0
value=0.0
; direct jump
if x<=value
goto lbl1a
goto skip1a
lbl1a: success++
skip1a:
; indirect jump
cx16.r3 = &lbl1b
if x<=value
goto cx16.r3
goto skip1b
lbl1b: success++
skip1b:
; no else
if x<=value
success++
; with else
if x<=value
success++
else
cx16.r0L++
value=1234.56
; direct jump
if x<=value
goto lbl2a
goto skip2a
lbl2a: success++
skip2a:
; indirect jump
cx16.r3 = &lbl2b
if x<=value
goto cx16.r3
goto skip2b
lbl2b: success++
skip2b:
; no else
if x<=value
success++
; with else
if x<=value
success++
else
cx16.r0L++
x=1234.56
value=0.0
; direct jump
if x<=value
goto lbl3a
goto skip3a
lbl3a: fail_float(5)
skip3a:
; indirect jump
cx16.r3 = &lbl3b
if x<=value
goto cx16.r3
goto skip3b
lbl3b: fail_float(6)
skip3b:
; no else
if x<=value
fail_float(7)
; with else
if x<=value
fail_float(8)
else
success++
value=1234.56
; direct jump
if x<=value
goto lbl4a
goto skip4a
lbl4a: success++
skip4a:
; indirect jump
cx16.r3 = &lbl4b
if x<=value
goto cx16.r3
goto skip4b
lbl4b: success++
skip4b:
; no else
if x<=value
success++
; with else
if x<=value
success++
else
cx16.r0L++
verify_success(13)
}
sub test_cmp_array() {
float @shared x
float[] values = [0, 0]
success = 0
x=0.0
values[1]=0.0
; direct jump
if x<=values[1]
goto lbl1a
goto skip1a
lbl1a: success++
skip1a:
; indirect jump
cx16.r3 = &lbl1b
if x<=values[1]
goto cx16.r3
goto skip1b
lbl1b: success++
skip1b:
; no else
if x<=values[1]
success++
; with else
if x<=values[1]
success++
else
cx16.r0L++
values[1]=1234.56
; direct jump
if x<=values[1]
goto lbl2a
goto skip2a
lbl2a: success++
skip2a:
; indirect jump
cx16.r3 = &lbl2b
if x<=values[1]
goto cx16.r3
goto skip2b
lbl2b: success++
skip2b:
; no else
if x<=values[1]
success++
; with else
if x<=values[1]
success++
else
cx16.r0L++
x=1234.56
values[1]=0.0
; direct jump
if x<=values[1]
goto lbl3a
goto skip3a
lbl3a: fail_float(9)
skip3a:
; indirect jump
cx16.r3 = &lbl3b
if x<=values[1]
goto cx16.r3
goto skip3b
lbl3b: fail_float(10)
skip3b:
; no else
if x<=values[1]
fail_float(11)
; with else
if x<=values[1]
fail_float(12)
else
success++
values[1]=1234.56
; direct jump
if x<=values[1]
goto lbl4a
goto skip4a
lbl4a: success++
skip4a:
; indirect jump
cx16.r3 = &lbl4b
if x<=values[1]
goto cx16.r3
goto skip4b
lbl4b: success++
skip4b:
; no else
if x<=values[1]
success++
; with else
if x<=values[1]
success++
else
cx16.r0L++
verify_success(13)
}
sub test_cmp_expr() {
float @shared x
cx16.r4 = 1
cx16.r5 = 1
float @shared f4 = 1.0
float @shared f5 = 1.0
success = 0
x=0.0
; direct jump
if x<=f4+0.0-f5
goto lbl1a
goto skip1a
lbl1a: success++
skip1a:
; indirect jump
cx16.r3 = &lbl1b
if x<=f4+0.0-f5
goto cx16.r3
goto skip1b
lbl1b: success++
skip1b:
; no else
if x<=f4+0.0-f5
success++
; with else
if x<=f4+0.0-f5
success++
else
cx16.r0L++
; direct jump
if x<=f4+1234.56-f5
goto lbl2a
goto skip2a
lbl2a: success++
skip2a:
; indirect jump
cx16.r3 = &lbl2b
if x<=f4+1234.56-f5
goto cx16.r3
goto skip2b
lbl2b: success++
skip2b:
; no else
if x<=f4+1234.56-f5
success++
; with else
if x<=f4+1234.56-f5
success++
else
cx16.r0L++
x=1234.56
; direct jump
if x<=f4+0.0-f5
goto lbl3a
goto skip3a
lbl3a: fail_float(13)
skip3a:
; indirect jump
cx16.r3 = &lbl3b
if x<=f4+0.0-f5
goto cx16.r3
goto skip3b
lbl3b: fail_float(14)
skip3b:
; no else
if x<=f4+0.0-f5
fail_float(15)
; with else
if x<=f4+0.0-f5
fail_float(16)
else
success++
; direct jump
if x<=f4+1234.56-f5
goto lbl4a
goto skip4a
lbl4a: success++
skip4a:
; indirect jump
cx16.r3 = &lbl4b
if x<=f4+1234.56-f5
goto cx16.r3
goto skip4b
lbl4b: success++
skip4b:
; no else
if x<=f4+1234.56-f5
success++
; with else
if x<=f4+1234.56-f5
success++
else
cx16.r0L++
verify_success(13)
}
}
Reference in New Issue View Git Blame Copy Permalink