+2008-03-26 Arnaud Charlet <charlet@adacore.com>
+
+ * s-proinf-irix-athread.ads, s-vxwork-mips.ads,
+ s-traces.ads, s-vxwork-arm.ads, s-vxwork-ppc.ads, s-vxwork-sparcv9.ads,
+ s-tasinf-mingw.ads, s-tasinf-linux.ads, s-tasdeb.ads, mlib-tgt.ads,
+ i-cstrin.ads, uintp.adb, g-catiio.adb, s-vmexta.ads,
+ s-trafor-default.ads, s-vxwork-m68k.ads: Minor reformatting. Update
+ comments.
+
2008-03-26 Thomas Quinot <quinot@adacore.com>
PR ada/33688
constant array (Ada.Calendar.Month_Number) of String3 :=
("JAN", "FEB", "MAR", "APR", "MAY", "JUN",
"JUL", "AUG", "SEP", "OCT", "NOV", "DEC");
- -- Short version of the month names, used when parsing date strings.
+ -- Short version of the month names, used when parsing date strings
S : String := Str;
-- --
-- S p e c --
-- --
--- Copyright (C) 1993-2005, Free Software Foundation, Inc. --
+-- Copyright (C) 1993-2007, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- --
------------------------------------------------------------------------------
--- This package provides a set of target dependent routines to build
--- static, dynamic and shared libraries. There are several packages
--- providing the actual routines; this package calls them indirectly
--- by means of access-to-subprogram values; each target-dependent
--- package initializes these values in its elaboration block.
+-- This package provides a set of target dependent routines to build static,
+-- dynamic and shared libraries. There are several packages providing
+-- the actual routines. This package calls them indirectly by means of
+-- access-to-subprogram values. Each target-dependent package initializes
+-- these values in its elaboration block.
with Prj; use Prj;
-- those explicitly created under program control.
function Sproc_Stack_Size return Integer;
- -- The size, in bytes, of the sproc's initial stack.
+ -- The size, in bytes, of the sproc's initial stack
function Default_Time_Slice return Duration;
-- The default time quanta for round-robin scheduling of threads of
-- task specific state.
function Get_User_State return Long_Integer;
- -- Return the user state for the current task.
+ -- Return the user state for the current task
-------------------------
-- General GDB support --
-- This unit may be used directly from an application program by providing
-- an appropriate WITH, and the interface can be expected to remain stable.
--- This is the GNU/Linux version of this module.
+-- This is the GNU/Linux version of this module
with System.OS_Interface;
-- This unit may be used directly from an application program by providing
-- an appropriate WITH, and the interface can be expected to remain stable.
--- This is the Windows (native) version of this module.
+-- This is the Windows (native) version of this module
with System.OS_Interface;
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2007, 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- --
-- with the event. Thid procedure is used from within the Runtime to send
-- debug informations.
--- This primitive is overloaded in System.Traces.Tasking and this package.
+-- This primitive is overloaded in System.Traces.Tasking and this package
-- Send_Trace_Info calls Send_Trace, in System.Traces.Send, which is trarget
-- dependent, to send the debug informations to a debugger, stream ..
-- corresponding Send_Trace_Info procedure. It may be required for some
-- target to modify Send_Trace (eg. VxWorks).
--- To add a new target, just adapt System.Traces.Send to your own purpose.
+-- To add a new target, just adapt System.Traces.Send to your own purposes
package System.Traces is
pragma Preelaborate;
type Trace_T is
(
- -- Events handled.
+ -- Events handled
-- Messages
- --
+
M_Accept_Complete,
M_Select_Else,
M_RDV_Complete,
M_Delay,
-- Errors
- --
+
E_Missed,
E_Timeout,
E_Kill,
-- Waiting events
- --
+
W_Call,
W_Accept,
W_Select,
WT_Completion,
-- Protected objects events
- --
+
PO_Call,
POT_Call,
PO_Run,
PO_Done,
-- Task handling events
- --
+
T_Create,
T_Activate,
T_Abort,
-- --
-- S p e c --
-- --
--- Copyright (C) 2001-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2007, 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- --
pragma Preelaborate;
Max_Size : constant Integer := 128;
- -- Event messages' maximum size.
+ -- Maximum size if event messages
subtype String_Trace is String (1 .. Max_Size);
-- Specific type in which trace information is stored. An ASCII.NUL
private
function Base_Code_In (Code : SSL.Exception_Code) return SSL.Exception_Code;
- -- Value of Code with the severity bits masked off.
+ -- Value of Code with the severity bits masked off
function Coded_Exception (X : SSL.Exception_Code)
return SSL.Exception_Data_Ptr;
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2007, 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- --
-- --
------------------------------------------------------------------------------
--- This is the ARM VxWorks version of this package.
+-- This is the ARM VxWorks version of this package
package System.VxWorks is
pragma Preelaborate (System.VxWorks);
-- Floating point context record. ARM version
- -- The record definition below matches what arch/arm/fppArmLib.h says.
+ -- The record definition below matches what arch/arm/fppArmLib.h says
type FP_CONTEXT is record
Dummy : Integer;
pragma Convention (C, FP_CONTEXT);
Num_HW_Interrupts : constant := 256;
- -- Number of entries in hardware interrupt vector table.
+ -- Number of entries in hardware interrupt vector table
end System.VxWorks;
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2007, 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- --
-- --
------------------------------------------------------------------------------
--- This is the M68K VxWorks version of this package.
+-- This is the M68K VxWorks version of this package
with Interfaces.C;
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2007, 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- --
-- --
------------------------------------------------------------------------------
--- This is the MIPS VxWorks version of this package.
+-- This is the MIPS VxWorks version of this package
with Interfaces.C;
pragma Convention (C, FP_CONTEXT);
Num_HW_Interrupts : constant := 256;
- -- Number of entries in hardware interrupt vector table.
+ -- Number of entries in hardware interrupt vector table
end System.VxWorks;
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2007, 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- --
-- --
------------------------------------------------------------------------------
--- This is the PPC VxWorks version of this package.
+-- This is the PPC VxWorks version of this package
with Interfaces.C;
-- --
-- S p e c --
-- --
--- Copyright (C) 1998-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 1998-2007, 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- --
-- --
------------------------------------------------------------------------------
--- This is the Sparc64 VxWorks version of this package.
+-- This is the Sparc64 VxWorks version of this package
with Interfaces;
pragma Convention (C, FP_CONTEXT);
Num_HW_Interrupts : constant := 256;
- -- Number of entries in hardware interrupt vector table.
+ -- Number of entries in hardware interrupt vector table
end System.VxWorks;
Discard_Quotient : Boolean;
Discard_Remainder : Boolean)
is
+ pragma Warnings (Off, Quotient);
+ pragma Warnings (Off, Remainder);
begin
pragma Assert (Right /= Uint_0);
projects / gcc.git / commitdiff