procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor reformatting.

Browse source 
Update comments.

From-SVN: r127475
This commit is contained in:
Arnaud Charlet 2007-08-14 11:05:23 +02:00
parent 762031177e
commit 38aa612c51
5 changed files with 17 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/ada/a-cohama.adb
View file

@ -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- --

4
gcc/ada/g-table.ads
View file

@ -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;

4
gcc/ada/gnatls.ads
View file

@ -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;

9
gcc/ada/s-inmaop-posix.adb
View file

@ -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));

21
gcc/ada/s-interr-vms.adb
View file

@ -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);