From: Arnaud Charlet Date: Wed, 26 Mar 2008 07:53:37 +0000 (+0000) Subject: s-proinf-irix-athread.ads, [...]: Minor reformatting. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c5d31169ee7d486de1e45128ede9097d114386e8;p=gcc.git 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 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a0f5499ea1e..473e6c88cf2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,12 @@ +2008-03-26 Arnaud Charlet + + * 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 PR ada/33688 diff --git a/gcc/ada/g-catiio.adb b/gcc/ada/g-catiio.adb index 3a6bc398391..f7b318edbe3 100644 --- a/gcc/ada/g-catiio.adb +++ b/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; diff --git a/gcc/ada/i-cstrin.ads b/gcc/ada/i-cstrin.ads index 5e3494ed1b6..152d292d737 100644 --- a/gcc/ada/i-cstrin.ads +++ b/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 -- diff --git a/gcc/ada/mlib-tgt.ads b/gcc/ada/mlib-tgt.ads index ad31788a2a2..8dba49e3e94 100644 --- a/gcc/ada/mlib-tgt.ads +++ b/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; diff --git a/gcc/ada/s-proinf-irix-athread.ads b/gcc/ada/s-proinf-irix-athread.ads index 47f669ab8ea..83fff261117 100644 --- a/gcc/ada/s-proinf-irix-athread.ads +++ b/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 diff --git a/gcc/ada/s-tasdeb.ads b/gcc/ada/s-tasdeb.ads index 9aebe943d4d..61fa1ba6b3a 100644 --- a/gcc/ada/s-tasdeb.ads +++ b/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 -- diff --git a/gcc/ada/s-tasinf-linux.ads b/gcc/ada/s-tasinf-linux.ads index 603a1189b6b..25a2bd3b5a7 100644 --- a/gcc/ada/s-tasinf-linux.ads +++ b/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; diff --git a/gcc/ada/s-tasinf-mingw.ads b/gcc/ada/s-tasinf-mingw.ads index baf2d8eaedc..056044e5f09 100644 --- a/gcc/ada/s-tasinf-mingw.ads +++ b/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; diff --git a/gcc/ada/s-traces.ads b/gcc/ada/s-traces.ads index 2c6d00984b3..c42cc516820 100644 --- a/gcc/ada/s-traces.ads +++ b/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, diff --git a/gcc/ada/s-trafor-default.ads b/gcc/ada/s-trafor-default.ads index 01d957f37bb..182ade1ba94 100644 --- a/gcc/ada/s-trafor-default.ads +++ b/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 diff --git a/gcc/ada/s-vmexta.ads b/gcc/ada/s-vmexta.ads index 82b12b3440a..73da95d30d8 100644 --- a/gcc/ada/s-vmexta.ads +++ b/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; diff --git a/gcc/ada/s-vxwork-arm.ads b/gcc/ada/s-vxwork-arm.ads index 008e04cf9b1..b3908d952d3 100644 --- a/gcc/ada/s-vxwork-arm.ads +++ b/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; diff --git a/gcc/ada/s-vxwork-m68k.ads b/gcc/ada/s-vxwork-m68k.ads index f2b77edb0cc..a0091e4a11c 100644 --- a/gcc/ada/s-vxwork-m68k.ads +++ b/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; diff --git a/gcc/ada/s-vxwork-mips.ads b/gcc/ada/s-vxwork-mips.ads index 03290454254..d57bffe1966 100644 --- a/gcc/ada/s-vxwork-mips.ads +++ b/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; diff --git a/gcc/ada/s-vxwork-ppc.ads b/gcc/ada/s-vxwork-ppc.ads index 62116ca113c..927b8502a76 100644 --- a/gcc/ada/s-vxwork-ppc.ads +++ b/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; diff --git a/gcc/ada/s-vxwork-sparcv9.ads b/gcc/ada/s-vxwork-sparcv9.ads index b769b2a7a97..9a6200b6db8 100644 --- a/gcc/ada/s-vxwork-sparcv9.ads +++ b/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; diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index 4ee886ebc9e..1f79670e44e 100644 --- a/gcc/ada/uintp.adb +++ b/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);