Implement argument passing

This commit is contained in:
2025-01-15 01:48:09 +01:00
parent 5cb0e18a87
commit 1e45d66359
7 changed files with 106 additions and 92 deletions

View File

@@ -103,6 +103,22 @@ begin
writei("Test not false")
end;
proc test_param(d: Int, e: Int);
begin
writei("");
writei("Test param");
writei(d);
writei(e)
end;
proc test_const_char();
const x = 'u';
begin
writei("");
writei("Test constant character");
writei(x)
end;
begin
test_primitive();
test_string();
@@ -111,5 +127,7 @@ begin
test_record();
test_const();
test_if();
test_not()
test_not();
test_param(8, 7);
test_const_char()
end.