diff options
| author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-09-03 17:16:45 +0200 |
|---|---|---|
| committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-09-03 17:16:45 +0200 |
| commit | c72f836f6d7319222c45e2c60e08de6d089ea131 (patch) | |
| tree | ffc45f083a5b77342952d3b36bc24f417d0c2f98 /ecomp-c/tests/procedure_call_value_parameters.e | |
| parent | cb3c6769befb6806f567fb7e1cfd0f349e8fb3ff (diff) | |
| download | compilertests-c72f836f6d7319222c45e2c60e08de6d089ea131.tar.gz compilertests-c72f836f6d7319222c45e2c60e08de6d089ea131.tar.bz2 | |
sorted out parameter push order on stack
Diffstat (limited to 'ecomp-c/tests/procedure_call_value_parameters.e')
| -rw-r--r-- | ecomp-c/tests/procedure_call_value_parameters.e | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ecomp-c/tests/procedure_call_value_parameters.e b/ecomp-c/tests/procedure_call_value_parameters.e index f0d6372..e7e1bc9 100644 --- a/ecomp-c/tests/procedure_call_value_parameters.e +++ b/ecomp-c/tests/procedure_call_value_parameters.e @@ -7,14 +7,14 @@ module procedure_call_value_parameters; var i : integer := 1; -procedure proc( x : integer ); +procedure proc( x : integer, y : integer ); var l : integer; begin - l := x; + l := x - y; i := l; end begin - proc( 42 ); + proc( 43, 1 ); end |