* [committed] Fix ada build on HP-UX 10.20
@ 2011-07-15 7:42 John David Anglin
0 siblings, 0 replies; only message in thread
From: John David Anglin @ 2011-07-15 7:42 UTC (permalink / raw)
To: gcc-patches
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.anglin@nrc-cnrc.gc.ca
National Research Council of Canada (613) 990-0752 (FAX: 952-6602)
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.
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;
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2011-07-14 23:25 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-07-15 7:42 [committed] Fix ada build on HP-UX 10.20 John David Anglin
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).