aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/generic_base.elna
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/runnable/generic_base.elna')
-rw-r--r--testsuite/runnable/generic_base.elna14
1 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/runnable/generic_base.elna b/testsuite/runnable/generic_base.elna
index 63737e0..161c59d 100644
--- a/testsuite/runnable/generic_base.elna
+++ b/testsuite/runnable/generic_base.elna
@@ -5,26 +5,26 @@ type
end
List#[T] = record
- head: T;
+ head: ^T;
count: Word
end
Queue#[T] = record(List#[T])
- tail: T
+ tail: ^T
end
var
- jobs: Queue#[^File]
- seen: ^List#[^File]
+ jobs: Queue#[File]
+ seen: ^List#[File]
f: File
-proc push#[T](target: ^List#[T]; value: T)
+proc push#[T](target: ^List#[T]; value: ^T)
begin
target^.head := value;
target^.count := target^.count + 1u
return
-proc enqueue#[T](target: ^Queue#[T]; value: T)
+proc enqueue#[T](target: ^Queue#[T]; value: ^T)
begin
push(target, value);
target^.tail := value
@@ -36,5 +36,5 @@ begin
assert(jobs.count = 1u);
assert(jobs.head = @f);
assert(jobs.tail = @f);
- assert(#size(Queue#[^File]) = #size(Pointer) * 3u)
+ assert(#size(Queue#[File]) = #size(Pointer) * 3u)
end.