From be42aa717c3018ccf1c7ce4267e02cfe9210cc1e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 20 Jan 2017 15:49:28 +0100 Subject: [multiple changes] 2017-01-20 Hristian Kirtchev * exp_ch9.adb: minor style fixes in comments. * sem_ch9.adb (Analyze_Delay_Relative): in GNATprove mode a delay relative statement introduces an implicit dependency on Ada.Real_Time.Clock_Time. * sem_util.adb: Minor reformatting. 2017-01-20 Ed Schonberg * sem_ch13.adb (Analyze_Aspect_Specifications): Aspect Alignment must be treated as delayed aspect even if the expression is a literal, because the aspect affects the freezing and the elaboration of the object to which it applies. 2017-01-20 Tristan Gingold * s-osinte-vxworks.ads (Interrup_Range): New subtype. 2017-01-20 Ed Schonberg * lib-xref.adb (Generate_Reference): Do not warn about the presence of a pragma Unreferenced if the entity appears as the actual in a procedure call that does not come from source. 2017-01-20 Pascal Obry * expect.c, terminals.c: Fix some warnings about unused variables. * gsocket.h, adaint.c, adaint.h: Fix some more warnings in the C part of the runtime. 2017-01-20 Bob Duff * exp_attr.adb (Constrained): Apply an access check (check that the prefix is not null) when the prefix denotes an object of an access type; that is, when there is an implicit dereference. 2017-01-20 Gary Dismukes * s-rident.ads (constant Profile_Info): Remove No_Calendar from GNAT_Extended_Ravenscar restrictions. 2017-01-20 Tristan Gingold * s-maccod.ads: Add pragma No_Elaboration_Code_All From-SVN: r244718 --- gcc/ada/expect.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/ada/expect.c') diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c index 4da7018..a19ec56 100644 --- a/gcc/ada/expect.c +++ b/gcc/ada/expect.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2001-2015, AdaCore * + * Copyright (C) 2001-2016, AdaCore * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -388,7 +388,9 @@ __gnat_expect_poll (int *fd, int max_fd = 0; int ready; int i; +#ifdef __hpux__ int received; +#endif *dead_process = 0; @@ -413,14 +415,18 @@ __gnat_expect_poll (int *fd, if (ready > 0) { +#ifdef __hpux__ received = 0; +#endif for (i = 0; i < num_fd; i++) { if (FD_ISSET (fd[i], &rset)) { is_set[i] = 1; +#ifdef __hpux__ received = 1; +#endif } else is_set[i] = 0; -- cgit v1.1