Implement argument passing
This commit is contained in:
20
example.elna
20
example.elna
@@ -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.
|
||||
|
||||
Reference in New Issue
Block a user