From 8b735094320efbfa8e1bf9dd17ac823d16341b8f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 8 Sep 2017 10:45:05 +0200 Subject: [PATCH] Removed, no longer used. From-SVN: r251864 --- gcc/ada/indepsw-mingw.adb | 67 ------- gcc/ada/s-tfsetr-default.adb | 314 ------------------------------ gcc/ada/s-tfsetr-vxworks.adb | 104 ---------- gcc/ada/s-traces-default.adb | 71 ------- gcc/ada/s-traces.adb | 54 ------ gcc/ada/s-traces.ads | 113 ----------- gcc/ada/s-trafor-default.adb | 113 ----------- gcc/ada/s-trafor-default.ads | 61 ------ gcc/ada/s-tratas-default.adb | 367 ----------------------------------- gcc/ada/s-tratas.adb | 119 ------------ gcc/ada/s-tratas.ads | 95 --------- gcc/ada/s-vxwork-sparcv9.ads | 60 ------ 12 files changed, 1538 deletions(-) delete mode 100644 gcc/ada/indepsw-mingw.adb delete mode 100644 gcc/ada/s-tfsetr-default.adb delete mode 100644 gcc/ada/s-tfsetr-vxworks.adb delete mode 100644 gcc/ada/s-traces-default.adb delete mode 100644 gcc/ada/s-traces.adb delete mode 100644 gcc/ada/s-traces.ads delete mode 100644 gcc/ada/s-trafor-default.adb delete mode 100644 gcc/ada/s-trafor-default.ads delete mode 100644 gcc/ada/s-tratas-default.adb delete mode 100644 gcc/ada/s-tratas.adb delete mode 100644 gcc/ada/s-tratas.ads delete mode 100644 gcc/ada/s-vxwork-sparcv9.ads diff --git a/gcc/ada/indepsw-mingw.adb b/gcc/ada/indepsw-mingw.adb deleted file mode 100644 index 819652d242b..00000000000 --- a/gcc/ada/indepsw-mingw.adb +++ /dev/null @@ -1,67 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- I N D E P S W -- --- -- --- B o d y -- --- (Windows version) -- --- -- --- Copyright (C) 2009-2014, Free Software Foundation, Inc. -- --- -- --- GNAT is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This is the Windows version - -package body Indepsw is - - Map_Switch : aliased constant String := "-Wl,-Map,"; - - ------------- - -- Convert -- - ------------- - - procedure Convert - (Switch : Switch_Kind; - Argument : String; - To : out String_List_Access) - is - begin - case Switch is - when Map_File => - To := new Argument_List'(1 => new String'(Map_Switch & Argument)); - end case; - end Convert; - - ------------------ - -- Is_Supported -- - ------------------ - - function Is_Supported (Switch : Switch_Kind) return Boolean is - begin - case Switch is - when Map_File => - return True; - end case; - end Is_Supported; - -end Indepsw; diff --git a/gcc/ada/s-tfsetr-default.adb b/gcc/ada/s-tfsetr-default.adb deleted file mode 100644 index 754507130b6..00000000000 --- a/gcc/ada/s-tfsetr-default.adb +++ /dev/null @@ -1,314 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S . S E N D -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2016, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This version is for all targets, provided that System.IO.Put_Line is --- functional. It prints debug information to Standard Output - -with System.IO; use System.IO; -with System.Regpat; use System.Regpat; - ----------------- --- Send_Trace -- ----------------- - --- Prints debug information both in a human readable form --- and in the form they are sent from upper layers. - -separate (System.Traces.Format) -procedure Send_Trace (Id : Trace_T; Info : String) is - - type Param_Type is - (Name_Param, - Caller_Param, - Entry_Param, - Timeout_Param, - Acceptor_Param, - Parent_Param, - Number_Param); - -- Type of parameter found in the message - - Info_Trace : String_Trace := Format_Trace (Info); - - function Get_Param - (Input : String_Trace; - Param : Param_Type; - How_Many : Integer) - return String; - -- Extract a parameter from the given input string - - --------------- - -- Get_Param -- - --------------- - - function Get_Param - (Input : String_Trace; - Param : Param_Type; - How_Many : Integer) - return String - is - pragma Unreferenced (How_Many); - - Matches : Match_Array (1 .. 2); - begin - -- We need comments here ??? - - case Param is - when Name_Param => - Match ("/N:([\w]+)", Input, Matches); - - when Caller_Param => - Match ("/C:([\w]+)", Input, Matches); - - when Entry_Param => - Match ("/E:([\s]*) +([0-9 ,]+)", Input, Matches); - - when Timeout_Param => - Match ("/T:([\s]*) +([0-9]+.[0-9]+)", Input, Matches); - - when Acceptor_Param => - Match ("/A:([\w]+)", Input, Matches); - - when Parent_Param => - Match ("/P:([\w]+)", Input, Matches); - - when Number_Param => - Match ("/#:([\s]*) +([0-9]+)", Input, Matches); - end case; - - if Matches (1).First < Input'First then - return ""; - end if; - - case Param is - when Entry_Param - | Number_Param - | Timeout_Param - => - return Input (Matches (2).First .. Matches (2).Last); - - when others => - return Input (Matches (1).First .. Matches (1).Last); - end case; - end Get_Param; - --- Start of processing for Send_Trace - -begin - New_Line; - Put_Line ("- Trace Debug Info ----------------"); - Put ("Caught event Id : "); - - case Id is - when M_Accept_Complete => Put ("M_Accept_Complete"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " completes accept on entry " - & Get_Param (Info_Trace, Entry_Param, 1) & " with " - & Get_Param (Info_Trace, Caller_Param, 1)); - - when M_Select_Else => Put ("M_Select_Else"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " selects else statement"); - - when M_RDV_Complete => Put ("M_RDV_Complete"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " completes rendezvous with " - & Get_Param (Info_Trace, Caller_Param, 1)); - - when M_Call_Complete => Put ("M_Call_Complete"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " completes call"); - - when M_Delay => Put ("M_Delay"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " completes delay " - & Get_Param (Info_Trace, Timeout_Param, 1)); - - when E_Missed => Put ("E_Missed"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " got an invalid acceptor " - & Get_Param (Info_Trace, Acceptor_Param, 1)); - - when E_Timeout => Put ("E_Timeout"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " ends select due to timeout "); - - when E_Kill => Put ("E_Kill"); - New_Line; - Put_Line ("Asynchronous Transfer of Control on task " - & Get_Param (Info_Trace, Name_Param, 1)); - - when W_Delay => Put ("W_Delay"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " sleeping " - & Get_Param (Info_Trace, Timeout_Param, 1) - & " seconds"); - - when WU_Delay => Put ("WU_Delay"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " sleeping until " - & Get_Param (Info_Trace, Timeout_Param, 1)); - - when W_Call => Put ("W_Call"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " calling entry " - & Get_Param (Info_Trace, Entry_Param, 1) - & " of " & Get_Param (Info_Trace, Acceptor_Param, 1)); - - when W_Accept => Put ("W_Accept"); - New_Line; - Put ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " waiting on " - & Get_Param (Info_Trace, Number_Param, 1) - & " accept(s)" - & ", " & Get_Param (Info_Trace, Entry_Param, 1)); - New_Line; - - when W_Select => Put ("W_Select"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " waiting on " - & Get_Param (Info_Trace, Number_Param, 1) - & " select(s)" - & ", " & Get_Param (Info_Trace, Entry_Param, 1)); - New_Line; - - when W_Completion => Put ("W_Completion"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " waiting for completion "); - - when WT_Select => Put ("WT_Select"); - New_Line; - Put ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " waiting " & Get_Param (Info_Trace, Timeout_Param, 1) - & " seconds on " - & Get_Param (Info_Trace, Number_Param, 1) - & " select(s)"); - - if Get_Param (Info_Trace, Number_Param, 1) /= "" then - Put (", " & Get_Param (Info_Trace, Entry_Param, 1)); - end if; - - New_Line; - - when WT_Call => Put ("WT_Call"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " calling entry " - & Get_Param (Info_Trace, Entry_Param, 1) - & " of " & Get_Param (Info_Trace, Acceptor_Param, 1) - & " with timeout " - & Get_Param (Info_Trace, Timeout_Param, 1)); - - when WT_Completion => Put ("WT_Completion"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " waiting " - & Get_Param (Info_Trace, Timeout_Param, 1) - & " for call completion"); - - when PO_Call => Put ("PO_Call"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " calling protected entry " - & Get_Param (Info_Trace, Entry_Param, 1)); - - when POT_Call => Put ("POT_Call"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " calling protected entry " - & Get_Param (Info_Trace, Entry_Param, 1) - & " with timeout " - & Get_Param (Info_Trace, Timeout_Param, 1)); - - when PO_Run => Put ("PO_Run"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " running entry " - & Get_Param (Info_Trace, Entry_Param, 1) - & " for " - & Get_Param (Info_Trace, Caller_Param, 1)); - - when PO_Done => Put ("PO_Done"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " finished call from " - & Get_Param (Info_Trace, Caller_Param, 1)); - - when PO_Lock => Put ("PO_Lock"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " took lock"); - - when PO_Unlock => Put ("PO_Unlock"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " released lock"); - - when T_Create => Put ("T_Create"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " created"); - - when T_Activate => Put ("T_Activate"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " activated"); - - when T_Abort => Put ("T_Abort"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " aborted by " - & Get_Param (Info_Trace, Parent_Param, 1)); - - when T_Terminate => Put ("T_Terminate"); - New_Line; - Put_Line ("Task " & Get_Param (Info_Trace, Name_Param, 1) - & " terminated"); - - when others - => Put ("Invalid Id"); - end case; - - Put_Line (" --> " & Info_Trace); - Put_Line ("-----------------------------------"); - New_Line; -end Send_Trace; diff --git a/gcc/ada/s-tfsetr-vxworks.adb b/gcc/ada/s-tfsetr-vxworks.adb deleted file mode 100644 index cb57b5e00e1..00000000000 --- a/gcc/ada/s-tfsetr-vxworks.adb +++ /dev/null @@ -1,104 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S . S E N D -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2016, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This version is for VxWorks targets - --- Trace information is sent to WindView using the wvEvent function - --- Note that wvEvent is from the VxWorks API - --- When adding a new event, just give an Id to then event, and then modify --- the WindView events database. - --- Refer to WindView User's Guide for more details on how to add new events --- to the events database. - ----------------- --- Send_Trace -- ----------------- - --- This procedure formats the string, maps the event Id to an Id --- recognized by WindView, and send the event using wvEvent - -separate (System.Traces.Format) -procedure Send_Trace (Id : Trace_T; Info : String) is - - procedure Wv_Event - (Id : Integer; - Buffer : System.Address; - Size : Integer); - pragma Import (C, Wv_Event, "wvEvent"); - - Info_Trace : String_Trace; - Id_Event : Integer; - -begin - Info_Trace := Format_Trace (Info); - - case Id is - when M_Accept_Complete => Id_Event := 30000; - when M_Select_Else => Id_Event := 30001; - when M_RDV_Complete => Id_Event := 30002; - when M_Call_Complete => Id_Event := 30003; - when M_Delay => Id_Event := 30004; - when E_Kill => Id_Event := 30005; - when E_Missed => Id_Event := 30006; - when E_Timeout => Id_Event := 30007; - - when W_Call => Id_Event := 30010; - when W_Accept => Id_Event := 30011; - when W_Select => Id_Event := 30012; - when W_Completion => Id_Event := 30013; - when W_Delay => Id_Event := 30014; - when WT_Select => Id_Event := 30015; - when WT_Call => Id_Event := 30016; - when WT_Completion => Id_Event := 30017; - when WU_Delay => Id_Event := 30018; - - when PO_Call => Id_Event := 30020; - when POT_Call => Id_Event := 30021; - when PO_Run => Id_Event := 30022; - when PO_Lock => Id_Event := 30023; - when PO_Unlock => Id_Event := 30024; - when PO_Done => Id_Event := 30025; - - when T_Create => Id_Event := 30030; - when T_Activate => Id_Event := 30031; - when T_Abort => Id_Event := 30032; - when T_Terminate => Id_Event := 30033; - - -- Unrecognized events are given the special Id_Event value 29999 - - when others => Id_Event := 29999; - end case; - - Wv_Event (Id_Event, Info_Trace'Address, Max_Size); -end Send_Trace; diff --git a/gcc/ada/s-traces-default.adb b/gcc/ada/s-traces-default.adb deleted file mode 100644 index e370efafd46..00000000000 --- a/gcc/ada/s-traces-default.adb +++ /dev/null @@ -1,71 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -with System.Soft_Links; -with System.Parameters; -with System.Traces.Format; - -package body System.Traces is - - package SSL renames System.Soft_Links; - use System.Traces.Format; - - ---------------------- - -- Send_Trace_Info -- - ---------------------- - - procedure Send_Trace_Info (Id : Trace_T) is - Task_S : constant String := SSL.Task_Name.all; - Trace_S : String (1 .. 3 + Task_S'Length); - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. Trace_S'Last) := Task_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info (Id : Trace_T; Timeout : Duration) is - Task_S : constant String := SSL.Task_Name.all; - Timeout_S : constant String := Duration'Image (Timeout); - Trace_S : String (1 .. 6 + Task_S'Length + Timeout_S'Length); - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + Task_S'Length) := Task_S; - Trace_S (4 + Task_S'Length .. 6 + Task_S'Length) := "/T:"; - Trace_S (7 + Task_S'Length .. Trace_S'Last) := Timeout_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; -end System.Traces; diff --git a/gcc/ada/s-traces.adb b/gcc/ada/s-traces.adb deleted file mode 100644 index abf7e8da9a6..00000000000 --- a/gcc/ada/s-traces.adb +++ /dev/null @@ -1,54 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -package body System.Traces is - - pragma Warnings (Off); -- kill warnings on unreferenced formals - - --------------------- - -- Send_Trace_Info -- - --------------------- - - procedure Send_Trace_Info (Id : Trace_T) is - begin - null; - end Send_Trace_Info; - - --------------------- - -- Send_Trace_Info -- - --------------------- - - procedure Send_Trace_Info (Id : Trace_T; Timeout : Duration) is - begin - null; - end Send_Trace_Info; - -end System.Traces; diff --git a/gcc/ada/s-traces.ads b/gcc/ada/s-traces.ads deleted file mode 100644 index 89c7cc42dd3..00000000000 --- a/gcc/ada/s-traces.ads +++ /dev/null @@ -1,113 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S -- --- -- --- S p e c -- --- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This package implements functions for traces when tasking is not involved - --- Warning : NO dependencies to tasking should be created here - --- This package and all its children are used to implement debug information - --- A new primitive, Send_Trace_Info (Id : Trace_T; 'data') is introduced. --- Trace_T is an event identifier, 'data' are the information to pass --- with the event. This procedure is used from within the Runtime to send --- debug information. - --- This primitive is overloaded in System.Traces.Tasking and this package - --- Send_Trace_Info calls Send_Trace, in System.Traces.Send, which is target --- dependent, to send the debug information to a debugger, stream .. - --- To add a new event, just add them to the Trace_T type, and write the --- corresponding Send_Trace_Info procedure. It may be required for some --- target to modify Send_Trace (e.g. VxWorks). - --- To add a new target, just adapt System.Traces.Send as needed - -package System.Traces is - pragma Preelaborate; - - type Trace_T is - ( - -- Events handled - - -- Messages - - M_Accept_Complete, - M_Select_Else, - M_RDV_Complete, - M_Call_Complete, - M_Delay, - - -- Errors - - E_Missed, - E_Timeout, - E_Kill, - - -- Waiting events - - W_Call, - W_Accept, - W_Select, - W_Completion, - W_Delay, - WU_Delay, - - WT_Call, - WT_Select, - WT_Completion, - - -- Protected objects events - - PO_Call, - POT_Call, - PO_Run, - PO_Lock, - PO_Unlock, - PO_Done, - - -- Task handling events - - T_Create, - T_Activate, - T_Abort, - T_Terminate); - - -- Send_Trace_Info procedures - - -- They are overloaded, depending on the parameters passed with - -- the event, e.g. Time information, Task name, Accept name ... - - procedure Send_Trace_Info (Id : Trace_T); - - procedure Send_Trace_Info (Id : Trace_T; Timeout : Duration); - -end System.Traces; diff --git a/gcc/ada/s-trafor-default.adb b/gcc/ada/s-trafor-default.adb deleted file mode 100644 index 93f0e24c5b3..00000000000 --- a/gcc/ada/s-trafor-default.adb +++ /dev/null @@ -1,113 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S . F O R M A T -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2009, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -with System.Parameters; - -package body System.Traces.Format is - - procedure Send_Trace (Id : Trace_T; Info : String) is separate; - - ------------------ - -- Format_Trace -- - ------------------ - - function Format_Trace (Source : String) return String_Trace is - Length : constant Integer := Source'Length; - Result : String_Trace := (others => ' '); - - begin - -- If run-time tracing active, then fill the string - - if Parameters.Runtime_Traces then - if Max_Size - Length > 0 then - Result (1 .. Length) := Source (1 .. Length); - Result (Length + 1 .. Max_Size) := (others => ' '); - Result (Length + 1) := ASCII.NUL; - else - Result (1 .. Max_Size - 1) := - Source (Source'First .. Source'First - 1 + Max_Size - 1); - Result (Max_Size) := ASCII.NUL; - end if; - end if; - - return Result; - end Format_Trace; - - ------------ - -- Append -- - ------------ - - function Append - (Source : String_Trace; - Annex : String) return String_Trace - is - Result : String_Trace := (others => ' '); - Annex_Length : constant Integer := Annex'Length; - Source_Length : Integer; - - begin - if Parameters.Runtime_Traces then - - -- First we determine the size used, without the spaces at the end, - -- if a String_Trace is present. Look at System.Traces.Tasking for - -- examples. - - Source_Length := 1; - while Source (Source_Length) /= ASCII.NUL loop - Source_Length := Source_Length + 1; - end loop; - - -- Then we fill the string - - if Source_Length - 1 + Annex_Length <= Max_Size then - Result (1 .. Source_Length - 1) := - Source (1 .. Source_Length - 1); - - Result (Source_Length .. Source_Length - 1 + Annex_Length) := - Annex (1 .. Annex_Length); - - Result (Source_Length + Annex_Length) := ASCII.NUL; - - Result (Source_Length + Annex_Length + 1 .. Max_Size) := - (others => ' '); - - else - Result (1 .. Source_Length - 1) := Source (1 .. Source_Length - 1); - Result (Source_Length .. Max_Size - 1) := - Annex (1 .. Max_Size - Source_Length); - Result (Max_Size) := ASCII.NUL; - end if; - end if; - - return Result; - end Append; - -end System.Traces.Format; diff --git a/gcc/ada/s-trafor-default.ads b/gcc/ada/s-trafor-default.ads deleted file mode 100644 index 82cdf97ba05..00000000000 --- a/gcc/ada/s-trafor-default.ads +++ /dev/null @@ -1,61 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S . F O R M A T -- --- -- --- S p e c -- --- -- --- Copyright (C) 2001-2009, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This package implements functions to format run-time traces - -package System.Traces.Format is - pragma Preelaborate; - - Max_Size : constant Integer := 128; - -- Maximum size if event messages - - subtype String_Trace is String (1 .. Max_Size); - -- Specific type in which trace information is stored. An ASCII.NUL - -- character ends the string so that it is compatible with C strings - -- which is useful on some targets (e.g. VxWorks) - - -- These private functions handles String_Trace formatting - - function Format_Trace (Source : String) return String_Trace; - -- Put a String in a String_Trace, truncates the string if necessary. - -- Similar to Head( .. ) found in Ada.Strings.Bounded - - function Append - (Source : String_Trace; - Annex : String) - return String_Trace; - pragma Inline (Append); - -- Concatenates two string, similar to & operator from Ada.String.Unbounded - - procedure Send_Trace (Id : Trace_T; Info : String); - -- This function (which is a subunit) send messages to external programs - -end System.Traces.Format; diff --git a/gcc/ada/s-tratas-default.adb b/gcc/ada/s-tratas-default.adb deleted file mode 100644 index 9e45771bd09..00000000000 --- a/gcc/ada/s-tratas-default.adb +++ /dev/null @@ -1,367 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S . T A S K I N G -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2016, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -with System.Tasking; use System.Tasking; -with System.Soft_Links; -with System.Parameters; -with System.Traces.Format; use System.Traces.Format; -with System.Traces; use System.Traces; - -package body System.Traces.Tasking is - - use System.Traces; - - package SSL renames System.Soft_Links; - - function Extract_Accepts (Task_Name : Task_Id) return String_Trace; - -- This function is used to extract data joined with - -- W_Select, WT_Select, W_Accept events - - --------------------- - -- Send_Trace_Info -- - --------------------- - - procedure Send_Trace_Info (Id : Trace_T; Task_Name2 : Task_Id) is - Task_S : constant String := SSL.Task_Name.all; - Task2_S : constant String := - Task_Name2.Common.Task_Image - (1 .. Task_Name2.Common.Task_Image_Len); - Trace_S : String (1 .. 6 + Task_S'Length + Task2_S'Length); - - L0 : constant Integer := Task_S'Length; - L1 : constant Integer := Task2_S'Length; - - begin - if Parameters.Runtime_Traces then - case Id is - when M_RDV_Complete - | PO_Done - => - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/C:"; - Trace_S (7 + L0 .. Trace_S'Last) := Task2_S; - Send_Trace (Id, Trace_S); - - when E_Missed => - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/A:"; - Trace_S (7 + L0 .. Trace_S'Last) := Task2_S; - Send_Trace (Id, Trace_S); - - when E_Kill => - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L1) := Task2_S; - Trace_S (4 + L1 .. Trace_S'Last) := (others => ' '); - Send_Trace (Id, Trace_S); - - when T_Create => - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L1) := Task2_S; - Trace_S (4 + L1 .. Trace_S'Last) := (others => ' '); - Send_Trace (Id, Trace_S); - - when others => - null; - -- should raise an exception ??? - end case; - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name2 : Task_Id; - Entry_Number : Entry_Index) - is - Task_S : constant String := SSL.Task_Name.all; - Task2_S : constant String := - Task_Name2.Common.Task_Image - (1 .. Task_Name2.Common.Task_Image_Len); - Entry_S : constant String := Integer'Image (Integer (Entry_Number)); - Trace_S : String (1 .. 9 + Task_S'Length - + Task2_S'Length + Entry_S'Length); - - L0 : constant Integer := Task_S'Length; - L1 : constant Integer := Task_S'Length + Entry_S'Length; - L2 : constant Integer := Task_S'Length + Task2_S'Length; - - begin - if Parameters.Runtime_Traces then - case Id is - when M_Accept_Complete => - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/E:"; - Trace_S (7 + L0 .. 6 + L1) := Entry_S; - Trace_S (7 + L1 .. 9 + L1) := "/C:"; - Trace_S (10 + L1 .. Trace_S'Last) := Task2_S; - Send_Trace (Id, Trace_S); - - when W_Call => - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/A:"; - Trace_S (7 + L0 .. 6 + L2) := Task2_S; - Trace_S (7 + L2 .. 9 + L2) := "/C:"; - Trace_S (10 + L2 .. Trace_S'Last) := Entry_S; - Send_Trace (Id, Trace_S); - - when others => - null; - -- should raise an exception ??? - end case; - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : Task_Id; - Task_Name2 : Task_Id; - Entry_Number : Entry_Index) - is - Task_S : constant String := - Task_Name.Common.Task_Image - (1 .. Task_Name.Common.Task_Image_Len); - Task2_S : constant String := - Task_Name2.Common.Task_Image - (1 .. Task_Name2.Common.Task_Image_Len); - Entry_S : constant String := Integer'Image (Integer (Entry_Number)); - Trace_S : String (1 .. 9 + Task_S'Length - + Task2_S'Length + Entry_S'Length); - - L0 : constant Integer := Task_S'Length; - L1 : constant Integer := Task_S'Length + Entry_S'Length; - - begin - if Parameters.Runtime_Traces then - case Id is - when PO_Run => - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/E:"; - Trace_S (7 + L0 .. 6 + L1) := Entry_S; - Trace_S (7 + L1 .. 9 + L1) := "/C:"; - Trace_S (10 + L1 .. Trace_S'Last) := Task2_S; - Send_Trace (Id, Trace_S); - - when others => - null; - -- should raise an exception ??? - end case; - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info (Id : Trace_T; Entry_Number : Entry_Index) is - Task_S : constant String := SSL.Task_Name.all; - Entry_S : constant String := Integer'Image (Integer (Entry_Number)); - Trace_S : String (1 .. 6 + Task_S'Length + Entry_S'Length); - - L0 : constant Integer := Task_S'Length; - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/E:"; - Trace_S (7 + L0 .. Trace_S'Last) := Entry_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : Task_Id; - Task_Name2 : Task_Id) - is - Task_S : constant String := - Task_Name.Common.Task_Image - (1 .. Task_Name.Common.Task_Image_Len); - Task2_S : constant String := - Task_Name2.Common.Task_Image - (1 .. Task_Name2.Common.Task_Image_Len); - Trace_S : String (1 .. 6 + Task_S'Length + Task2_S'Length); - - L0 : constant Integer := Task2_S'Length; - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task2_S; - Trace_S (4 + L0 .. 6 + L0) := "/P:"; - Trace_S (7 + L0 .. Trace_S'Last) := Task_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Acceptor : Task_Id; - Entry_Number : Entry_Index; - Timeout : Duration) - is - Task_S : constant String := SSL.Task_Name.all; - Acceptor_S : constant String := - Acceptor.Common.Task_Image - (1 .. Acceptor.Common.Task_Image_Len); - Entry_S : constant String := Integer'Image (Integer (Entry_Number)); - Timeout_S : constant String := Duration'Image (Timeout); - Trace_S : String (1 .. 12 + Task_S'Length + Acceptor_S'Length - + Entry_S'Length + Timeout_S'Length); - - L0 : constant Integer := Task_S'Length; - L1 : constant Integer := Task_S'Length + Acceptor_S'Length; - L2 : constant Integer := - Task_S'Length + Acceptor_S'Length + Entry_S'Length; - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/A:"; - Trace_S (7 + L0 .. 6 + L1) := Acceptor_S; - Trace_S (7 + L1 .. 9 + L1) := "/E:"; - Trace_S (10 + L1 .. 9 + L2) := Entry_S; - Trace_S (10 + L2 .. 12 + L2) := "/T:"; - Trace_S (13 + L2 .. Trace_S'Last) := Timeout_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Entry_Number : Entry_Index; - Timeout : Duration) - is - Task_S : constant String := SSL.Task_Name.all; - Entry_S : constant String := Integer'Image (Integer (Entry_Number)); - Timeout_S : constant String := Duration'Image (Timeout); - Trace_S : String (1 .. 9 + Task_S'Length - + Entry_S'Length + Timeout_S'Length); - - L0 : constant Integer := Task_S'Length; - L1 : constant Integer := Task_S'Length + Entry_S'Length; - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/E:"; - Trace_S (7 + L0 .. 6 + L1) := Entry_S; - Trace_S (7 + L1 .. 9 + L1) := "/T:"; - Trace_S (10 + L1 .. Trace_S'Last) := Timeout_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : Task_Id; - Number : Integer) - is - Task_S : constant String := SSL.Task_Name.all; - Number_S : constant String := Integer'Image (Number); - Accepts_S : constant String := Extract_Accepts (Task_Name); - Trace_S : String (1 .. 9 + Task_S'Length - + Number_S'Length + Accepts_S'Length); - - L0 : constant Integer := Task_S'Length; - L1 : constant Integer := Task_S'Length + Number_S'Length; - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/#:"; - Trace_S (7 + L0 .. 6 + L1) := Number_S; - Trace_S (7 + L1 .. 9 + L1) := "/E:"; - Trace_S (10 + L1 .. Trace_S'Last) := Accepts_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : Task_Id; - Number : Integer; - Timeout : Duration) - is - Task_S : constant String := SSL.Task_Name.all; - Timeout_S : constant String := Duration'Image (Timeout); - Number_S : constant String := Integer'Image (Number); - Accepts_S : constant String := Extract_Accepts (Task_Name); - Trace_S : String (1 .. 12 + Task_S'Length + Timeout_S'Length - + Number_S'Length + Accepts_S'Length); - - L0 : constant Integer := Task_S'Length; - L1 : constant Integer := Task_S'Length + Timeout_S'Length; - L2 : constant Integer := - Task_S'Length + Timeout_S'Length + Number_S'Length; - - begin - if Parameters.Runtime_Traces then - Trace_S (1 .. 3) := "/N:"; - Trace_S (4 .. 3 + L0) := Task_S; - Trace_S (4 + L0 .. 6 + L0) := "/T:"; - Trace_S (7 + L0 .. 6 + L1) := Timeout_S; - Trace_S (7 + L1 .. 9 + L1) := "/#:"; - Trace_S (10 + L1 .. 9 + L2) := Number_S; - Trace_S (10 + L2 .. 12 + L2) := "/E:"; - Trace_S (13 + L2 .. Trace_S'Last) := Accepts_S; - Send_Trace (Id, Trace_S); - end if; - end Send_Trace_Info; - - --------------------- - -- Extract_Accepts -- - --------------------- - - -- This function returns a string in which all opened - -- Accepts or Selects are given, separated by semi-colons. - - function Extract_Accepts (Task_Name : Task_Id) return String_Trace is - Info_Annex : String_Trace := (ASCII.NUL, others => ' '); - - begin - for J in Task_Name.Open_Accepts'First .. - Task_Name.Open_Accepts'Last - 1 - loop - Info_Annex := Append (Info_Annex, Integer'Image - (Integer (Task_Name.Open_Accepts (J).S)) & ","); - end loop; - - Info_Annex := Append (Info_Annex, - Integer'Image (Integer - (Task_Name.Open_Accepts - (Task_Name.Open_Accepts'Last).S))); - return Info_Annex; - end Extract_Accepts; -end System.Traces.Tasking; diff --git a/gcc/ada/s-tratas.adb b/gcc/ada/s-tratas.adb deleted file mode 100644 index 7a6ac5d8fe8..00000000000 --- a/gcc/ada/s-tratas.adb +++ /dev/null @@ -1,119 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S . T A S K I N G -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -package body System.Traces.Tasking is - - pragma Warnings (Off); -- kill warnings on unreferenced formals - - --------------------- - -- Send_Trace_Info -- - --------------------- - - procedure Send_Trace_Info (Id : Trace_T; Task_Name2 : ST.Task_Id) is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name2 : ST.Task_Id; - Entry_Number : ST.Entry_Index) - is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Task_Name2 : ST.Task_Id; - Entry_Number : ST.Entry_Index) - is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Task_Name2 : ST.Task_Id) - is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Entry_Number : ST.Entry_Index) - is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Acceptor : ST.Task_Id; - Entry_Number : ST.Entry_Index; - Timeout : Duration) - is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Entry_Number : ST.Entry_Index; - Timeout : Duration) - is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Number : Integer) - is - begin - null; - end Send_Trace_Info; - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Number : Integer; - Timeout : Duration) - is - begin - null; - end Send_Trace_Info; - -end System.Traces.Tasking; diff --git a/gcc/ada/s-tratas.ads b/gcc/ada/s-tratas.ads deleted file mode 100644 index 8f89445cdc7..00000000000 --- a/gcc/ada/s-tratas.ads +++ /dev/null @@ -1,95 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . T R A C E S . T A S K I N G -- --- -- --- S p e c -- --- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This package provides all procedures used to implement debug traces --- in the case tasking is involved. - --- See System.Traces for an overview of the various files involved in Tracing - --- If tasking is not involved, refer to System.Traces.General - -with System.Tasking; - -package System.Traces.Tasking is - pragma Preelaborate; - - package ST renames System.Tasking; - - -- Send_Trace_Info procedures - - -- They are overloaded, depending on the parameters passed with the event - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name2 : ST.Task_Id); - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name2 : ST.Task_Id; - Entry_Number : ST.Entry_Index); - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Task_Name2 : ST.Task_Id; - Entry_Number : ST.Entry_Index); - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Task_Name2 : ST.Task_Id); - - procedure Send_Trace_Info - (Id : Trace_T; - Entry_Number : ST.Entry_Index); - - procedure Send_Trace_Info - (Id : Trace_T; - Acceptor : ST.Task_Id; - Entry_Number : ST.Entry_Index; - Timeout : Duration); - - procedure Send_Trace_Info - (Id : Trace_T; - Entry_Number : ST.Entry_Index; - Timeout : Duration); - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Number : Integer); - - procedure Send_Trace_Info - (Id : Trace_T; - Task_Name : ST.Task_Id; - Number : Integer; - Timeout : Duration); -end System.Traces.Tasking; diff --git a/gcc/ada/s-vxwork-sparcv9.ads b/gcc/ada/s-vxwork-sparcv9.ads deleted file mode 100644 index a67c2d65616..00000000000 --- a/gcc/ada/s-vxwork-sparcv9.ads +++ /dev/null @@ -1,60 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- --- -- --- S Y S T E M . V X W O R K S -- --- -- --- S p e c -- --- -- --- Copyright (C) 1998-2009, Free Software Foundation, Inc. -- --- -- --- GNARL is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- . -- --- -- --- GNARL was developed by the GNARL team at Florida State University. -- --- Extensive contributions were provided by Ada Core Technologies, Inc. -- --- -- ------------------------------------------------------------------------------- - --- This is the Sparc64 VxWorks version of this package - -with Interfaces; - -package System.VxWorks is - pragma Preelaborate; - - -- Floating point context record. SPARCV9 version - - FP_NUM_DREGS : constant := 32; - - type RType is new Interfaces.Unsigned_64; - for RType'Alignment use 8; - - type Fpd_Array is array (1 .. FP_NUM_DREGS) of RType; - for Fpd_Array'Alignment use 8; - - type FP_CONTEXT is record - fpd : Fpd_Array; - fsr : RType; - end record; - - for FP_CONTEXT'Alignment use 8; - pragma Convention (C, FP_CONTEXT); - - Num_HW_Interrupts : constant := 256; - -- Number of entries in hardware interrupt vector table - -end System.VxWorks; -- 2.30.2