diff options
| author | Andreas Baumann <mail@andreasbaumann.cc> | 2020-04-18 15:45:37 +0200 |
|---|---|---|
| committer | Andreas Baumann <mail@andreasbaumann.cc> | 2020-04-18 15:45:37 +0200 |
| commit | 6f12b8af26e0e63830eb3cefda50b7421f92d001 (patch) | |
| tree | 74a1b9726065a022221bc8316a6e1a91df2a87ff /ecomp-c/test1.e | |
| parent | fd1a0e8c06ed5e4fc8717d7de56e3be6de850552 (diff) | |
| download | compilertests-6f12b8af26e0e63830eb3cefda50b7421f92d001.tar.gz compilertests-6f12b8af26e0e63830eb3cefda50b7421f92d001.tar.bz2 | |
implemented boolean expressions (hopefully)
Diffstat (limited to 'ecomp-c/test1.e')
| -rw-r--r-- | ecomp-c/test1.e | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ecomp-c/test1.e b/ecomp-c/test1.e index d5dc91d..a85f469 100644 --- a/ecomp-c/test1.e +++ b/ecomp-c/test1.e @@ -31,11 +31,11 @@ begin a := a + 1; // a should be 8 now d := a * c + b; // d should be 8 * 20 + 7 = 167 (A7 hex) d := a * ( c + b ); // d should be 8 * ( 20 + 7 ) = 216 (D8 hex) - e := ( ( 7 * a + b ) + 2 * ( b + a + 3 ) ) * 4 / 2; // ((7*8+7)+2*(7+8+3))*4/2=198 (C6 hex) + e := ( ( 7 * a + b ) + 2 * ( b + a + 3 ) ) * 4 div 2; // ((7*8+7)+2*(7+8+3))*4/2=198 (C6 hex) f := a - b; // should be 8-7=1 flag := INIT_STATE; // should be false flag := a = b; // flag should be false - //flag := a <> b; // flag should be true + flag := a <> b; // flag should be true //flag := a < b; // flag should be false //flag := a <= b; // flag should be false //flag := a > b; // flag should be true @@ -45,9 +45,9 @@ begin else a := 8; end; - + i := 0; - while i < 10 do + while i < 10 and not flag do i := i + 1; end; end |