[committed] Fix ada build on HP-UX 10.20

[John David Anglin]

The patch below fixes ada bootstrap on HP-UX 10.  Patch preapproved
by Eric.  Tested on HP-UX 10.20.

Dave
-- 
J. David Anglin                                  dave.ang...@nrc-cnrc.gc.ca
National Research Council of Canada              (613) 990-0752 (FAX: 952-6602)

2011-07-14  John David Anglin  <dave.ang...@nrc-cnrc.gc.ca>

        PR ada/46350
        * s-taprop-hpux-dce.adb (Abort_Task): Remove unnecessary cast.

Index: s-taprop-hpux-dce.adb
===================================================================
--- s-taprop-hpux-dce.adb       (revision 175188)
+++ s-taprop-hpux-dce.adb       (working copy)
@@ -888,8 +888,7 @@
 
       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;