From c72f836f6d7319222c45e2c60e08de6d089ea131 Mon Sep 17 00:00:00 2001 From: Andreas Baumann Date: Thu, 3 Sep 2020 17:16:45 +0200 Subject: sorted out parameter push order on stack --- ecomp-c/tests/procedure_call_value_parameters.e | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ecomp-c/tests/procedure_call_value_parameters.e') 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 -- cgit v1.2.3-54-g00ecf