diff options
author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-06-27 17:59:27 +0200 |
---|---|---|
committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-06-27 17:59:27 +0200 |
commit | 73e960a483aac72bf8a0301b577f2c7924183640 (patch) | |
tree | 4a12a3981f88ead89bafd070da7ff921f795a1e0 /ecomp-c/test1.e | |
parent | 39bdb7e89e9abe6c08a0032f2849dec110bfbde2 (diff) | |
download | compilertests-73e960a483aac72bf8a0301b577f2c7924183640.tar.gz compilertests-73e960a483aac72bf8a0301b577f2c7924183640.tar.bz2 |
implemented simple procedures
asm-i386: added call and ret opcodes
ec: simple procedure declarations and calls without parameters
Diffstat (limited to 'ecomp-c/test1.e')
-rw-r--r-- | ecomp-c/test1.e | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 6e979c9..b5c5edc 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -32,6 +32,16 @@ var s2 : array 10 of character := "hello"; a1 : array 10 of integer; +procedure A; +begin + a1[5] := 43; +end + +procedure B; +begin + a1[4] := 44; +end + begin a := 1; b := 7; @@ -71,6 +81,8 @@ begin //s2[i] := 'A' + i; i := i + 1; end; - a1[4] := 42; + a1[3] := 42; s2[a1[2]] := 'Z'; + A; + B; end |