diff options
| author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-06-14 20:56:02 +0200 |
|---|---|---|
| committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-06-14 20:56:02 +0200 |
| commit | 8d53bd7c238aa60cd8050a1972cfbfec338aebbd (patch) | |
| tree | e743920e68d69350522b395a488f760635fae5c8 /ecomp-c/test1.e | |
| parent | 4be5f1a89e1368c9a4c98eeb2c05f5b3f06714a5 (diff) | |
| download | compilertests-8d53bd7c238aa60cd8050a1972cfbfec338aebbd.tar.gz compilertests-8d53bd7c238aa60cd8050a1972cfbfec338aebbd.tar.bz2 | |
libc-freestanding
- added a memcpy
asm-i386:
- fixed address calculation for dd and multiple operands
- added support for register indirect moved (writing only at the moment,
needed for array assignments)
ec:
- added support for array assignments
- removed "variable not initialized" check, too hard to implement
correctly and besides we initialize static variables always)
Diffstat (limited to 'ecomp-c/test1.e')
| -rw-r--r-- | ecomp-c/test1.e | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index 83090ec..656d634 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -28,6 +28,7 @@ var i : integer; j : character := C; s : array 10 of character := S; + s1 : array 10 of character; s2 : array 10 of character := "hello"; a1 : array 10 of integer; @@ -60,7 +61,13 @@ begin end; j := 'B'; - a1[0] := 'c'; + a1[4] := 42; + s1[0] := 'a'; s[0] := 'H'; - j := s2[1]; + i := 0; + while i < 10 do + a1[i] := i; + i := i + 1; + end; + //j := s2[1]; end |