From d153b45808c1f65b3cd3bafaa93b178d0c888122 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 27 May 2008 12:59:55 +0200 Subject: [PATCH] bindgen.adb: Update comments. * bindgen.adb: Update comments. * s-tasinf-mingw.adb: Add "with" of System.OS_Interface From-SVN: r136007 --- gcc/ada/bindgen.adb | 9 ++++++--- gcc/ada/s-tasinf-mingw.adb | 6 ++++++ 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 475edd513f5..d29857fb5fc 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -3260,14 +3260,17 @@ package body Bindgen is for E in Elab_Order.First .. Elab_Order.Last loop Get_Name_String (Units.Table (Elab_Order.Table (E)).Uname); - -- The procedure of looking for specific packages and setting - -- flags is somewhat dubious, but there isn't a good alternative - -- at the current time ??? + -- This is not a perfect approach, but is the current protocol + -- between the run-time and the binder to indicate that tasking + -- is used: system.os_interface should always be used by any + -- tasking application. if Name_Buffer (1 .. 19) = "system.os_interface" then With_GNARL := True; end if; + -- Ditto for declib and the "dec" package + if OpenVMS_On_Target and then Name_Buffer (1 .. 5) = "dec%s" then With_DECGNAT := True; end if; diff --git a/gcc/ada/s-tasinf-mingw.adb b/gcc/ada/s-tasinf-mingw.adb index 33b9c739853..644192b0a94 100644 --- a/gcc/ada/s-tasinf-mingw.adb +++ b/gcc/ada/s-tasinf-mingw.adb @@ -33,6 +33,12 @@ -- This is the Windows (native) version of this module +with System.OS_Interface; +pragma Unreferenced (System.OS_Interface); +-- System.OS_Interface is not used today, but the protocol between the +-- run-time and the binder is that any tasking application uses +-- System.OS_Interface, so notify the binder with this "with" clause. + package body System.Task_Info is N_CPU : Natural := 0; -- 2.30.2