aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/generic_pointer_arithmetic.elna
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/runnable/generic_pointer_arithmetic.elna')
-rw-r--r--testsuite/runnable/generic_pointer_arithmetic.elna8
1 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/runnable/generic_pointer_arithmetic.elna b/testsuite/runnable/generic_pointer_arithmetic.elna
index 209287d..abbca4b 100644
--- a/testsuite/runnable/generic_pointer_arithmetic.elna
+++ b/testsuite/runnable/generic_pointer_arithmetic.elna
@@ -2,13 +2,13 @@ program()
var
base: [4]Int
element: ^Int
- first: Pointer
- second: Pointer
+ first: ^Word8
+ second: ^Word8
begin
element := base.ptr;
- first := element;
+ first := cast(element: ^Word8);
second := first + 1;
- assert(cast(second : Word) - cast(first : Word) = 1u);
+ assert(cast(second: Word) - cast(first: Word) = 1u);
assert(second - 1 = first)
end.