diff options
author | danglin <danglin@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-14 23:22:17 +0000 |
---|---|---|
committer | danglin <danglin@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-14 23:22:17 +0000 |
commit | f4d2705503dd5c849d7115370d7ac25be9f55259 (patch) | |
tree | 3dace9ba376454cde5284ca274a2948621478ade | |
parent | c2956f5536a41b9899f19e6f2a98f4ed372dac34 (diff) | |
download | ppe42-gcc-f4d2705503dd5c849d7115370d7ac25be9f55259.tar.gz ppe42-gcc-f4d2705503dd5c849d7115370d7ac25be9f55259.zip |
PR ada/46350
* s-taprop-hpux-dce.adb (Abort_Task): Remove unnecessary cast.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@176296 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/ada/s-taprop-hpux-dce.adb | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index fc1175b54d8..c2011249035 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2011-07-14 John David Anglin <dave.anglin@nrc-cnrc.gc.ca> + + PR ada/46350 + * s-taprop-hpux-dce.adb (Abort_Task): Remove unnecessary cast. + 2011-07-14 Florian Weimer <fw@deneb.enyo.de> PR ada/48711 diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb index ebc2f9ddc0c..814b48b1a5c 100644 --- a/gcc/ada/s-taprop-hpux-dce.adb +++ b/gcc/ada/s-taprop-hpux-dce.adb @@ -888,8 +888,7 @@ package body System.Task_Primitives.Operations is if T.Common.State = Interrupt_Server_Blocked_On_Event_Flag then System.Interrupt_Management.Operations.Interrupt_Self_Process - (System.Interrupt_Management.Interrupt_ID - (PIO.Get_Interrupt_ID (T))); + (PIO.Get_Interrupt_ID (T)); end if; end Abort_Task; |