From 450247169117f35a9451ea7fc6e19dd28ed582b6 Mon Sep 17 00:00:00 2001 From: John David Anglin Date: Fri, 15 Jul 2011 02:37:23 +0000 Subject: [PATCH] re PR ada/46350 (s-taprop.adb:891:40: warning: redundant conversion, expression is of type "Interrupt_ID") PR ada/46350 * s-taprop-hpux-dce.adb (Abort_Task): Remove unnecessary cast. From-SVN: r176304 --- gcc/ada/ChangeLog | 5 +++++ 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 18b3af4bfeda..c38eda581d78 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2011-07-14 John David Anglin + + PR ada/46350 + * s-taprop-hpux-dce.adb (Abort_Task): Remove unnecessary cast. + 2011-04-28 Release Manager * GCC 4.5.3 released. diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb index ebc2f9ddc0c9..814b48b1a5cb 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; -- 2.47.2