diff options
author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-08-31 21:29:19 +0200 |
---|---|---|
committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-08-31 21:29:19 +0200 |
commit | 72f35ba765aa8aad82421b26b4f61377ae0aee9b (patch) | |
tree | d1ad437847f21c5c6ad54fa984c0d65a27e68628 /ecomp-c/test1.e | |
parent | 71e2a4f4926d36a9595aad58b6fa7ef19c2bbfb9 (diff) | |
download | compilertests-72f35ba765aa8aad82421b26b4f61377ae0aee9b.tar.gz compilertests-72f35ba765aa8aad82421b26b4f61377ae0aee9b.tar.bz2 |
parameter list as double linked list (work in progress)
Diffstat (limited to 'ecomp-c/test1.e')
-rw-r--r-- | ecomp-c/test1.e | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 0dfad07..907e595 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 ); +procedure B( n : integer, m : integer, f : boolean ); procedure A; const @@ -44,16 +44,18 @@ var begin a1[5] := 43; s[0] := 'L'; - B( a1[5], 7 ); + B( a1[5], 7, true ); end -procedure B( n : integer, m : integer ); +procedure B( n : integer, m : integer, f : boolean ); var x : integer; begin - x := n + m; - a1[4] := x; + if( f ) { + x := n + m; + a1[4] := x; + } end begin @@ -98,5 +100,5 @@ begin a1[3] := 42; s2[a1[2]] := 'Z'; A; - B( 1, 2 ); + B( 1, 2, false ); end |