Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-01-11 13:29:45 +00:00
Code Issues Projects Releases Wiki Activity

return values problem

Browse Source
This commit is contained in:
Irmen de Jong 2018-12-11 01:54:51 +01:00
parent be819ba8a7
commit 756930a54f
1 changed files with 17 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
compiler/examples/test.p8
View File

@ -1,118 +1,26 @@
%import c64utils
%import mathlib
%option enable_floats
%output raw
%launcher none
~ main {
sub start() {
ending(true)
return ; @todo make return ending(true) actually work as well
float v1
float v2
c64scr.print_byte_decimal(X)
c64.CHROUT('\n')
v1 = 1.11
v2 = 699.99
if v1==v2
c64.STROUT("error in 1.11==699.99!\n")
else
c64.STROUT("ok: 1.11 not == 699.99\n")
if v1!=v2
c64.STROUT("ok: 1.11 != 699.99\n")
else
c64.STROUT("error in 1.11!=699.99!\n")
if v1<v2
c64.STROUT("ok: 1.11 < 699.99\n")
else
c64.STROUT("error in 1.11<699.99!\n")
if v1<=v2
c64.STROUT("ok: 1.11 <= 699.99\n")
else
c64.STROUT("error in 1.11<=699.99!\n")
if v1>v2
c64.STROUT("error in 1.11>699.99!\n")
else
c64.STROUT("ok: 1.11 is not >699.99\n")
if v1>=v2
c64.STROUT("error in 1.11>=699.99!\n")
else
c64.STROUT("ok: 1.11 is not >=699.99\n")
v1 = 555.5
v2 = -22.2
if v1==v2
c64.STROUT("error in 555.5==-22.2!\n")
else
c64.STROUT("ok: 555.5 not == -22.2\n")
if v1!=v2
c64.STROUT("ok: 555.5 != -22.2\n")
else
c64.STROUT("error in 555.5!=-22.2!\n")
if v1<v2
c64.STROUT("error in 555.5<-22.2!\n")
else
c64.STROUT("ok: 555.5 is not < -22.2\n")
if v1<=v2
c64.STROUT("error in 555.5<=-22.2!\n")
else
c64.STROUT("ok: 555.5 is not <= -22.2\n")
if v1>v2
c64.STROUT("ok: 555.5 > -22.2\n")
else
c64.STROUT("error in 555.5>-22.2!\n")
if v1>=v2
c64.STROUT("ok: 555.5 >= -22.2\n")
else
c64.STROUT("error in 555.5>=-22.2!\n")
v1 = -22.2
v2 = -22.2
if v1==v2
c64.STROUT("ok: -22.2 == -22.2\n")
else
c64.STROUT("error in -22.2==-22.2!\n")
if v1!=v2
c64.STROUT("error in -22.2!=-22.2!\n")
else
c64.STROUT("ok: -22.2 is not != -22.2\n")
if v1<v2
c64.STROUT("error in -22.2<-22.2!\n")
else
c64.STROUT("ok: -22.2 is not < -22.2\n")
if v1<=v2
c64.STROUT("ok: -22.2 <= -22.2\n")
else
c64.STROUT("error in -22.2<=-22.2!\n")
if v1>v2
c64.STROUT("error in -22.2>-22.2!\n")
else
c64.STROUT("ok: -22.2 is not > -22.2\n")
if v1>=v2
c64.STROUT("ok: -22.2 >= -22.2\n")
else
c64.STROUT("error in -22.2>=-22.2!\n")
c64scr.print_byte_decimal(X)
c64.CHROUT('\n')
return 99 ;@todo error message (no return values)
return 99,44 ;@todo error message (no return values)
return ending(false) ; @todo fix this, actuall needs to CALL ending even though no value is returned
sub ending(success: ubyte) {
return 99 ; @todo error message (no return values)
return 99,44 ; @todo error message (no return values)
return 99,44 ; @todo should check number of return values!!
}
sub ending2() -> ubyte {
return
return 1
return 2, 2 ; @todo error message number of return values
}
}
}