diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-18 11:55:47 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-18 11:55:47 +0000 |
commit | c0d15e023ae983032e6ab5127cd39414c13ea9b3 (patch) | |
tree | 4b33a5dc68585402508fa243369778006f1ade16 /gcc/ada/s-interr-sigaction.adb | |
parent | 24ded5c146bddd8b5847df85a951e757197b8a3e (diff) | |
download | gcc-c0d15e023ae983032e6ab5127cd39414c13ea9b3.tar.gz |
2005-03-17 Vasiliy Fofanov <fofanov@adacore.com>
* gnat_ugn.texi: Document gnatmem restriction
2005-03-17 Thomas Quinot <quinot@adacore.com>
* snames.adb: Document new TSS names introduced by exp_dist/exp_tss
cleanup
2005-03-17 Robert Dewar <dewar@adacore.com>
* s-interr.ads, s-interr.adb, sem_ch3.adb, prj.ads, prj.adb,
a-interr.adb, a-interr.ads, s-interr-sigaction.adb, s-interr-dummy.adb,
s-interr-vms.adb, s-interr-vxworks.adb: Minor reformatting
* casing.adb: Comment improvements
2005-03-17 Pascal Obry <obry@adacore.com>
* g-expect.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96678 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-interr-sigaction.adb')
-rw-r--r-- | gcc/ada/s-interr-sigaction.adb | 37 |
1 files changed, 18 insertions, 19 deletions
diff --git a/gcc/ada/s-interr-sigaction.adb b/gcc/ada/s-interr-sigaction.adb index 4a7610c8018..d8e7f9ef3bf 100644 --- a/gcc/ada/s-interr-sigaction.adb +++ b/gcc/ada/s-interr-sigaction.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2004 Free Software Fundation -- +-- Copyright (C) 1998-2005 Free Software Fundation -- -- -- -- 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 IRIX & NT version of this package. +-- This is the IRIX & NT version of this package with Ada.Task_Identification; -- used for Task_Id @@ -120,15 +120,15 @@ package body System.Interrupts is -- that contain interrupt handlers. procedure Signal_Handler (Sig : Interrupt_ID); - -- This procedure is used to handle all the signals. + -- This procedure is used to handle all the signals -- Type and Head, Tail of the list containing Registered Interrupt -- Handlers. These definitions are used to register the handlers -- specified by the pragma Interrupt_Handler. - -- - -- Handler Registration: - -- + -------------------------- + -- Handler Registration -- + -------------------------- type Registered_Handler; type R_Link is access all Registered_Handler; @@ -362,15 +362,14 @@ package body System.Interrupts is if not Restoration and then not Static - -- Tries to overwrite a static Interrupt Handler with a - -- dynamic Handler + -- Tries to overwrite a static Interrupt Handler with dynamic handle - and then (Descriptors (Interrupt).Static + and then + (Descriptors (Interrupt).Static - -- The new handler is not specified as an - -- Interrupt Handler by a pragma. + -- New handler not specified as an Interrupt Handler by a pragma - or else not Is_Registered (New_Handler)) + or else not Is_Registered (New_Handler)) then Raise_Exception (Program_Error'Identity, "Trying to overwrite a static Interrupt Handler with a " & @@ -569,10 +568,10 @@ package body System.Interrupts is Descriptors (Interrupt).T := T; Descriptors (Interrupt).E := E; - -- Indicate the attachment of Interrupt Entry in ATCB. - -- This is need so that when an Interrupt Entry task terminates - -- the binding can be cleaned. The call to unbinding must be - -- make by the task before it terminates. + -- Indicate the attachment of Interrupt Entry in ATCB. This is needed so + -- that when an Interrupt Entry task terminates the binding can be + -- cleaned up. The call to unbinding must be make by the task before it + -- terminates. T.Interrupt_Entry := True; end Bind_Interrupt_To_Entry; @@ -597,7 +596,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 := True; end Detach_Interrupt_Entries; @@ -674,8 +673,8 @@ package body System.Interrupts is Initialization.Undefer_Abort (Self_Id); - -- Undefer abort here to allow a window for this task - -- to be aborted at the time of system shutdown. + -- Undefer abort here to allow a window for this task to be aborted + -- at the time of system shutdown. end loop; end Server_Task; |