From: Arnaud Charlet Date: Tue, 14 Aug 2007 09:05:23 +0000 (+0200) Subject: Minor reformatting. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=38aa612c51df995df40324b0e9afcc0fc7a03bcf;p=gcc.git Minor reformatting. Update comments. From-SVN: r127475 --- diff --git a/gcc/ada/a-cohama.adb b/gcc/ada/a-cohama.adb index b00e9770fc8..d4b8cff88f3 100644 --- a/gcc/ada/a-cohama.adb +++ b/gcc/ada/a-cohama.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2007, 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- -- diff --git a/gcc/ada/g-table.ads b/gcc/ada/g-table.ads index 819ff281bd4..ae64b8589c1 100644 --- a/gcc/ada/g-table.ads +++ b/gcc/ada/g-table.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2005, AdaCore -- +-- Copyright (C) 1998-2007, AdaCore -- -- -- -- 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- -- @@ -151,7 +151,7 @@ package GNAT.Table is -- array value. Current array values are not affected by this call. procedure Free; - -- Free all allocated memory for the table. A call to init is required + -- Free all allocated memory for the table. A call to Init is required -- before any use of this table after calling Free. First : constant Table_Index_Type := Table_Low_Bound; diff --git a/gcc/ada/gnatls.ads b/gcc/ada/gnatls.ads index 9e3e756953d..c1f3732c2ba 100644 --- a/gcc/ada/gnatls.ads +++ b/gcc/ada/gnatls.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, 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- -- @@ -24,6 +24,6 @@ -- -- ------------------------------------------------------------------------------ --- GNAT Library browser. +-- GNAT Library browser procedure Gnatls; diff --git a/gcc/ada/s-inmaop-posix.adb b/gcc/ada/s-inmaop-posix.adb index e9da380f851..5cee6255e40 100644 --- a/gcc/ada/s-inmaop-posix.adb +++ b/gcc/ada/s-inmaop-posix.adb @@ -8,7 +8,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2006, AdaCore -- +-- Copyright (C) 1995-2007, AdaCore -- -- -- -- 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- -- @@ -316,12 +316,7 @@ begin (Storage_Elements.Integer_Address (SIG_IGN)); for J in Interrupt_ID loop - - -- We need to check whether J is in Keep_Unmasked because - -- the index type of the Keep_Unmasked array is not always - -- Interrupt_ID; it may be a subtype of Interrupt_ID. - - if J in Keep_Unmasked'Range and then Keep_Unmasked (J) then + if Keep_Unmasked (J) then Result := sigaddset (mask'Access, Signal (J)); pragma Assert (Result = 0); Result := sigdelset (allmask'Access, Signal (J)); diff --git a/gcc/ada/s-interr-vms.adb b/gcc/ada/s-interr-vms.adb index c7d2b55d8b2..29c0e7f9b65 100644 --- a/gcc/ada/s-interr-vms.adb +++ b/gcc/ada/s-interr-vms.adb @@ -250,7 +250,7 @@ package body System.Interrupts is Registered_Handler_Tail : R_Link := null; Access_Hold : Server_Task_Access; - -- variable used to allocate Server_Task using "new". + -- variable used to allocate Server_Task using "new" ----------------------- -- Local Subprograms -- @@ -266,6 +266,7 @@ package body System.Interrupts is procedure Register_Interrupt_Handler (Handler_Addr : System.Address) is New_Node_Ptr : R_Link; + begin -- This routine registers the Handler as usable for Dynamic -- Interrupt Handler. Routines attaching and detaching Handler @@ -677,8 +678,7 @@ package body System.Interrupts is "dynamic Handler"); end if; - -- The interrupt should no longer be ingnored if - -- it was ever ignored. + -- The interrupt should no longer be ingnored if it was ever ignored Ignored (Interrupt) := False; @@ -692,7 +692,7 @@ package body System.Interrupts is if New_Handler = null then - -- The null handler means we are detaching the handler. + -- The null handler means we are detaching the handler User_Handler (Interrupt).Static := False; @@ -898,7 +898,7 @@ package body System.Interrupts is end if; end loop; - -- Indicate in ATCB that no Interrupt Entries are attached. + -- Indicate in ATCB that no Interrupt Entries are attached T.Interrupt_Entry := False; end Detach_Interrupt_Entries; @@ -956,7 +956,7 @@ package body System.Interrupts is System.Tasking.Utilities.Make_Independent; - -- Install default action in system level. + -- Install default action in system level IMOP.Install_Default_Action (IMNG.Interrupt_ID (Interrupt)); @@ -966,7 +966,7 @@ package body System.Interrupts is IMOP.Add_To_Interrupt_Mask (Intwait_Mask'Access, IMNG.Interrupt_ID (Interrupt)); - -- Remember the Interrupt_ID for Abort_Task. + -- Remember the Interrupt_ID for Abort_Task PIO.Set_Interrupt_ID (IMNG.Interrupt_ID (Interrupt), Self_ID); @@ -1014,7 +1014,7 @@ package body System.Interrupts is if User_Handler (Interrupt).H /= null then Tmp_Handler := User_Handler (Interrupt).H; - -- RTS calls should not be made with self being locked. + -- RTS calls should not be made with self being locked POP.Unlock (Self_ID); @@ -1034,7 +1034,7 @@ package body System.Interrupts is Tmp_ID := User_Entry (Interrupt).T; Tmp_Entry_Index := User_Entry (Interrupt).E; - -- RTS calls should not be made with self being locked. + -- RTS calls should not be made with self being locked POP.Unlock (Self_ID); @@ -1146,8 +1146,7 @@ package body System.Interrupts is -- Elaboration code for package System.Interrupts begin - - -- Get Interrupt_Manager's ID so that Abort_Interrupt can be sent. + -- Get Interrupt_Manager's ID so that Abort_Interrupt can be sent Interrupt_Manager_ID := To_System (Interrupt_Manager'Identity);