From cb3c6769befb6806f567fb7e1cfd0f349e8fb3ff Mon Sep 17 00:00:00 2001 From: Andreas Baumann Date: Thu, 3 Sep 2020 16:51:47 +0200 Subject: fixes in parameter passing - fixed order of parameters again (head is right to left already) - for now removed boolean parameters in test1.e, we have to handle 1 byte parameters correctly first --- ecomp-c/test1.e | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 23fdaad..80d9586 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -32,7 +32,7 @@ var s2 : array 10 of character := "hello"; a1 : array 10 of integer; -procedure B( n : integer, m : integer, f : boolean ); +procedure B( n : integer, m : integer ); procedure A; const @@ -44,18 +44,16 @@ var begin a1[5] := 43; s[0] := 'L'; - B( a1[5], 7, true ); + B( a1[5], 7 ); end -procedure B( n : integer, m : integer, f : boolean ); +procedure B( n : integer, m : integer ); var x : integer; begin - if f do - x := n + m; - a1[4] := x; - end + x := n - m; + a1[4] := x; end begin @@ -100,5 +98,5 @@ begin a1[3] := 42; s2[a1[2]] := 'Z'; A; - B( 1, 2, false ); + B( 2, 1 ); end -- cgit v1.2.3-54-g00ecf