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

1 files 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