diff options
| author | Kathy Gray | 2014-01-31 14:54:10 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-01-31 14:54:10 +0000 |
| commit | 1794061ee083bf95fda8e3422df2c521eff682f8 (patch) | |
| tree | c5d360728c18de07fb650171cd17cf86799e44c0 /src/test | |
| parent | 54f7ded021bbf6753fc4f85abfd3e70eea07b0c5 (diff) | |
More type checking and conversions
(Temporarily turning off unbound identifier checks, until all variable-introducing forms are checked)
Diffstat (limited to 'src/test')
| -rw-r--r-- | src/test/test3.sail | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/test/test3.sail b/src/test/test3.sail index 89c710bc..e4844204 100644 --- a/src/test/test3.sail +++ b/src/test/test3.sail @@ -16,24 +16,24 @@ function nat main _ = { (* left-hand side function call = memory write *) MEM(0) := 0; (* memory read, thanks to effect { rmem} above *) - MEM(0); + ignore(MEM(0)); (* register write, idem *) dummy_reg := 1; (* register read, thanks to register declaration *) - dummy_reg; + ignore(dummy_reg); (* infix call *) - 7 * 9; + ignore(7 * 9); (* Some more checks *) MEM(1) := 2; - MEM(1); + ignore(MEM(1)); MEM_GPU(0) := 3; - MEM_GPU(0); + ignore(MEM_GPU(0)); MEM_SIZE(0,1) := 4; - MEM_SIZE(0,1); + ignore(MEM_SIZE(0,1)); (* extern calls *) - 3 + 39; + ignore(3 + 39); add(5, 37); } |
