Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/opt68.ads @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +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;