6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-01-26 13:16:25 +00:00
Code Issues Projects Releases Wiki Activity

Add another multivalue return test for pointer lvalues

Browse Source
This commit is contained in:
David Schmenk
2025-03-22 06:38:46 -07:00
parent 03e562bc88
commit cbae6efa78
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/samplesrc/test.pla
View File

@@ -83,7 +83,7 @@ def vals123#3
return 1, 2, 3
end
export def main(range)#0
word a, b, c
word a, b, c, valptr
word lambda
a = 10
@@ -125,6 +125,10 @@ export def main(range)#0
drop, b, drop = vals123
drop, drop, c = vals123
puts("a, b, c = "); puti(a); puts(", "); puti(b); puts(", "); puti(c); putln
a, b, c = 0, 0, 0
valptr = @a
valptr=>[a], valptr=>[1], valptr=>[2] = vals123
puts("a, b, c = "); puti(a); puts(", "); puti(b); puts(", "); puti(c); putln
puts(" 7 / 3 = "); puti(7/3); puts(" ; 7 % 3 = "); puti(7%3); putln
puts(" 7 / -3 = "); puti(7/-3); puts("; 7 % -3 = "); puti(7%-3); putln
puts("-7 / 3 = "); puti(-7/3); puts("; -7 % 3 = "); puti(-7%3); putln