diff options
Diffstat (limited to 'testsuite/runnable/generic_base.elna')
| -rw-r--r-- | testsuite/runnable/generic_base.elna | 14 |
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. |
