Patchwork [committed] Fix ada build on HP-UX 10.20

login
register
mail settings
Submitter John David Anglin
Date July 14, 2011, 11:25 p.m.
Message ID <20110714232502.GA22712@hiauly1.hia.nrc.ca>
Download mbox | patch
Permalink /patch/104743/
State New
Headers show

Comments

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

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;