diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:19:43 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 16:19:43 +0200 |
| commit | 350f5d3bc401adc4b3115c39b98608209a46e611 (patch) | |
| tree | 0a1bed6b394ae9018d19cdece4f60372c56bd833 /gcc/ada/s-interr-sigaction.adb | |
| parent | ea70f3d0c1c8c839358cef35bf1ccafc94bca9c3 (diff) | |
| download | gcc-350f5d3bc401adc4b3115c39b98608209a46e611.zip gcc-350f5d3bc401adc4b3115c39b98608209a46e611.tar.gz gcc-350f5d3bc401adc4b3115c39b98608209a46e611.tar.bz2 | |
[multiple changes]
2014-07-16 Bob Duff <duff@adacore.com>
* gnat_ugn.texi: Document need for project file
for --incremental switch for gnat2xml.
2014-07-16 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Fix example of non-packable components in packed
records section.
2014-07-16 Robert Dewar <dewar@adacore.com>
* s-tpoben.adb, s-tasren.adb, s-interr.adb, s-interr-hwint.adb,
s-shasto.adb, s-interr-vms.adb, s-interr-sigaction.adb: Avoid use of
upper case in exception messages.
From-SVN: r212650
Diffstat (limited to 'gcc/ada/s-interr-sigaction.adb')
| -rw-r--r-- | gcc/ada/s-interr-sigaction.adb | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gcc/ada/s-interr-sigaction.adb b/gcc/ada/s-interr-sigaction.adb index 233fdc3..1daca4d1 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-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2014, 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- -- @@ -86,8 +86,8 @@ package body System.Interrupts is Interrupt : Interrupt_ID; Static : Boolean; Restoration : Boolean); - -- This internal procedure is needed to finalize protected objects - -- that contain interrupt handlers. + -- This internal procedure is needed to finalize protected objects that + -- contain interrupt handlers. procedure Signal_Handler (Sig : Interrupt_ID); pragma Convention (C, Signal_Handler); @@ -157,7 +157,7 @@ package body System.Interrupts is begin if Is_Reserved (Interrupt) then raise Program_Error with - "Interrupt" & Interrupt_ID'Image (Interrupt) & " is reserved"; + "interrupt" & Interrupt_ID'Image (Interrupt) & " is reserved"; end if; return Descriptors (Interrupt).T /= Null_Task; @@ -171,7 +171,7 @@ package body System.Interrupts is begin if Is_Reserved (Interrupt) then raise Program_Error with - "Interrupt" & Interrupt_ID'Image (Interrupt) & " is reserved"; + "interrupt" & Interrupt_ID'Image (Interrupt) & " is reserved"; else return Descriptors (Interrupt).Kind /= Unknown; end if; @@ -329,7 +329,8 @@ package body System.Interrupts is procedure Attach_Handler (New_Handler : Parameterless_Handler; Interrupt : Interrupt_ID; - Static : Boolean := False) is + Static : Boolean := False) + is begin Attach_Handler (New_Handler, Interrupt, Static, False); end Attach_Handler; @@ -359,8 +360,8 @@ package body System.Interrupts is or else not Is_Registered (New_Handler)) then raise Program_Error with - "Trying to overwrite a static Interrupt Handler with a " & - "dynamic Handler"; + "trying to overwrite a static interrupt handler with a " & + "dynamic handler"; end if; if Handlers (Interrupt) = null then @@ -405,10 +406,10 @@ package body System.Interrupts is if Descriptors (Interrupt).Kind = Task_Entry then - -- In case we have an Interrupt Entry already installed. - -- raise a program error. (propagate it to the caller). + -- In case we have an Interrupt Entry already installed, raise a + -- program error (propagate it to the caller). - raise Program_Error with "An interrupt is already installed"; + raise Program_Error with "an interrupt is already installed"; else Old_Handler := Current_Handler (Interrupt); @@ -430,12 +431,12 @@ package body System.Interrupts is end if; if Descriptors (Interrupt).Kind = Task_Entry then - raise Program_Error with "Trying to detach an Interrupt Entry"; + raise Program_Error with "trying to detach an interrupt entry"; end if; if not Static and then Descriptors (Interrupt).Static then raise Program_Error with - "Trying to detach a static Interrupt Handler"; + "trying to detach a static interrupt handler"; end if; Descriptors (Interrupt) := @@ -504,7 +505,6 @@ package body System.Interrupts is Fat := To_Fat_Ptr (Handler); while Ptr /= null loop - if Ptr.H = Fat.Handler_Addr then return True; end if; @@ -536,7 +536,7 @@ package body System.Interrupts is if Descriptors (Interrupt).Kind /= Unknown then raise Program_Error with - "A binding for this interrupt is already present"; + "a binding for this interrupt is already present"; end if; if Handlers (Interrupt) = null then |