Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/opt68.ads @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
with Ada.Finalization; package Opt68 is type Cont is new Ada.Finalization.Controlled with null record; type Element is record C : Cont; end record; type Queue_Element; type A_Queue_Element is access Queue_Element; type Queue_Element is record Value : Element; Next : A_Queue_Element; end record; type Queue is limited record Sz : Natural; Front : A_Queue_Element; Back : A_Queue_Element; end record; procedure Copy (dest : in out Queue; src : Queue); end Opt68;