Skip to content

R
riscv-gcc-1
Commit c5d31169 by Arnaud Charlet Committed by Arnaud Charlet
Options

s-proinf-irix-athread.ads, [...]: Minor reformatting. 

	* 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.

From-SVN: r133590
parent b501b251
Showing with 48 additions and 37 deletions
gcc/ada/ChangeLog
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
gcc/ada/g-catiio.adb
......@@ -536,7 +536,7 @@ package body GNAT.Calendar.Time_IO is
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;
......
gcc/ada/i-cstrin.ads
......@@ -6,7 +6,7 @@
-- --
-- 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 --
......
gcc/ada/mlib-tgt.ads
......@@ -23,11 +23,11 @@
-- --
------------------------------------------------------------------------------
-- 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;
......
gcc/ada/s-proinf-irix-athread.ads
......@@ -46,7 +46,7 @@ package System.Program_Info is
-- 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
......
gcc/ada/s-tasdeb.ads
......@@ -61,7 +61,7 @@ package System.Tasking.Debug is
-- 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 --
......
gcc/ada/s-tasinf-linux.ads
......@@ -41,7 +41,7 @@
-- 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;
......
gcc/ada/s-tasinf-mingw.ads
......@@ -41,7 +41,7 @@
-- 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;
......
gcc/ada/s-traces.ads
......@@ -6,7 +6,7 @@
-- --
-- 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- --
......@@ -43,7 +43,7 @@
-- 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 ..
......@@ -52,17 +52,17 @@
-- 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,
......@@ -70,13 +70,13 @@ package System.Traces is
M_Delay,
-- Errors
--
E_Missed,
E_Timeout,
E_Kill,
-- Waiting events
--
W_Call,
W_Accept,
W_Select,
......@@ -89,7 +89,7 @@ package System.Traces is
WT_Completion,
-- Protected objects events
--
PO_Call,
POT_Call,
PO_Run,
......@@ -98,7 +98,7 @@ package System.Traces is
PO_Done,
-- Task handling events
--
T_Create,
T_Activate,
T_Abort,
......
gcc/ada/s-trafor-default.ads
......@@ -6,7 +6,7 @@
-- --
-- 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- --
......@@ -37,7 +37,7 @@ package System.Traces.Format is
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
......
gcc/ada/s-vmexta.ads
......@@ -51,7 +51,7 @@ package System.VMS_Exception_Table is
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;
......
gcc/ada/s-vxwork-arm.ads
......@@ -6,7 +6,7 @@
-- --
-- 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- --
......@@ -31,14 +31,14 @@
-- --
------------------------------------------------------------------------------
-- 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;
......@@ -48,6 +48,6 @@ package System.VxWorks is
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;
gcc/ada/s-vxwork-m68k.ads
......@@ -6,7 +6,7 @@
-- --
-- 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- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
-- This is the M68K VxWorks version of this package.
-- This is the M68K VxWorks version of this package
with Interfaces.C;
......
gcc/ada/s-vxwork-mips.ads
......@@ -6,7 +6,7 @@
-- --
-- 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- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
-- This is the MIPS VxWorks version of this package.
-- This is the MIPS VxWorks version of this package
with Interfaces.C;
......@@ -52,6 +52,6 @@ package System.VxWorks is
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;
gcc/ada/s-vxwork-ppc.ads
......@@ -6,7 +6,7 @@
-- --
-- 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- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
-- This is the PPC VxWorks version of this package.
-- This is the PPC VxWorks version of this package
with Interfaces.C;
......
gcc/ada/s-vxwork-sparcv9.ads
......@@ -6,7 +6,7 @@
-- --
-- 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- --
......@@ -31,7 +31,7 @@
-- --
------------------------------------------------------------------------------
-- This is the Sparc64 VxWorks version of this package.
-- This is the Sparc64 VxWorks version of this package
with Interfaces;
......@@ -57,6 +57,6 @@ package System.VxWorks is
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;
gcc/ada/uintp.adb
......@@ -1280,6 +1280,8 @@ package body Uintp is
Discard_Quotient : Boolean;
Discard_Remainder : Boolean)
is
pragma Warnings (Off, Quotient);
pragma Warnings (Off, Remainder);
begin
pragma Assert (Right /= Uint_0);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment