From 5bb8f28194ee8271357051441db27decbd74d5c5 Mon Sep 17 00:00:00 2001 From: James Clarke Date: Thu, 4 Jul 2019 13:22:39 +0000 Subject: [PATCH] s-osinte__kfreebsd-gnu.ads (clockid_t): Make type definition public. 2019-07-04 James Clarke * libgnarl/s-osinte__kfreebsd-gnu.ads (clockid_t): Make type definition public. (CLOCK_REALTIME): Make value public. From-SVN: r273080 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/libgnarl/s-osinte__kfreebsd-gnu.ads | 8 ++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 45c5f39cb87..bc6f2e0ac33 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2019-07-04 James Clarke + + * libgnarl/s-osinte__kfreebsd-gnu.ads (clockid_t): Make type + definition public. + (CLOCK_REALTIME): Make value public. + 2019-07-04 Javier Miranda * exp_tss.adb (Init_Proc): Adding missing support for access to diff --git a/gcc/ada/libgnarl/s-osinte__kfreebsd-gnu.ads b/gcc/ada/libgnarl/s-osinte__kfreebsd-gnu.ads index f46bbda18ea..aa6c1a86bcc 100644 --- a/gcc/ada/libgnarl/s-osinte__kfreebsd-gnu.ads +++ b/gcc/ada/libgnarl/s-osinte__kfreebsd-gnu.ads @@ -206,9 +206,8 @@ package System.OS_Interface is function nanosleep (rqtp, rmtp : access timespec) return int; pragma Import (C, nanosleep, "nanosleep"); - type clockid_t is private; - - CLOCK_REALTIME : constant clockid_t; + type clockid_t is new int; + CLOCK_REALTIME : constant clockid_t := 0; function clock_gettime (clock_id : clockid_t; @@ -607,9 +606,6 @@ private end record; pragma Convention (C, timespec); - type clockid_t is new int; - CLOCK_REALTIME : constant clockid_t := 0; - type pthread_attr_t is record detachstate : int; schedpolicy : int; -- 2.30.2