From: John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
Date: Fri, 15 Jul 2011 02:37:23 +0000 (+0000)
Subject: re PR ada/46350 (s-taprop.adb:891:40: warning: redundant conversion, expression is... 
X-Git-Tag: releases/gcc-4.5.4~541
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=450247169117f35a9451ea7fc6e19dd28ed582b6;p=thirdparty%2Fgcc.git

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

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  <dave.anglin@nrc-cnrc.gc.ca>
+
+	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;