started handling value parameters for procedures

- asm386 handles also negative numbers (for negative offsets for parameters on stack)
- parameter handling in stdcall style (procedure handles all of the stack operations)

1 files changed, 15 insertions, 4 deletions

diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e
index 49418db..59ec90a 100644
--- a/ecomp-c/test1.e
+++ b/ecomp-c/test1.e
@@ -32,17 +32,28 @@ var
 	s2 : array 10 of character := "hello";
 	a1 : array 10 of integer;
 
-procedure B;
+procedure B( n : integer, m : integer );
 
 procedure A;
+const
+	N : integer = 10;
+	S : array N of character = "local";
+var
+	s : array N of character := S;
+	
 begin
 	a1[5] := 43;
-	B;
+	s[0] := 'L';
+	B( a1[5], 7 );
 end
 
-procedure B;
+procedure B( n : integer, m : integer );
+var
+	x : integer;
+	
 begin
-	a1[4] := 44;
+	x := n + m;
+	a1[4] := x;
 end
 
 begin