[committed] Fix ada build on HP-UX 10.20

Submitted by John David Anglin on July 14, 2011, 11:25 p.m.

Details

Message ID 20110714232502.GA22712@hiauly1.hia.nrc.ca
State New
Headers show

Commit Message

John David Anglin July 14, 2011, 11:25 p.m.
The patch below fixes ada bootstrap on HP-UX 10.  Patch preapproved
by Eric.  Tested on HP-UX 10.20.

Dave

Patch hide | download patch | download mbox

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;