Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/lto8_pkg.ads @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
with System; with Unchecked_Conversion; package Lto8_Pkg is type Task_Priority_T is new Natural; function Convert_To_System_Priority is new Unchecked_Conversion (Task_Priority_T, System.Priority); protected type Protected_Queue_T( PO_Priority : Task_Priority_T ) is pragma Priority (Convert_To_System_Priority (PO_Priority )); entry Seize; end Protected_Queue_T; Sema1 : protected_Queue_T (5); Sema2 : protected_Queue_T (10); end Lto8_Pkg;