From 6178dd5c193f48ebdbcdfd2fd2a1f8e69992819e Mon Sep 17 00:00:00 2001 From: Doug Rupp Date: Tue, 15 Mar 2005 16:50:36 +0100 Subject: [PATCH] adaint.c: Prefix #include of VMS system header files with vms/ [VMS]... 2005-03-08 Doug Rupp * adaint.c: Prefix #include of VMS system header files with vms/ [VMS] (HOST_EXECUTABLE_SUFFIX, HOST_OBJECT_SUFFIX): Define for VMS. Do not define a dummy function "convert_addresses" under Darwin, not needed. * tb-alvms.c, expect.c: Prefix #include of VMS system header files with vms/ From-SVN: r96484 --- gcc/ada/adaint.c | 15 +++++++++------ gcc/ada/expect.c | 8 ++++---- gcc/ada/tb-alvms.c | 10 +++++----- 3 files changed, 18 insertions(+), 15 deletions(-) diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index f94f3bfb5f2..73be5e1a8cb 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -52,6 +52,8 @@ #ifdef VMS #define _POSIX_EXIT 1 +#define HOST_EXECUTABLE_SUFFIX ".exe" +#define HOST_OBJECT_SUFFIX ".obj" #endif #ifdef IN_RTS @@ -96,13 +98,13 @@ /* Header files and definitions for __gnat_set_file_time_name. */ -#include -#include -#include -#include -#include +#include +#include +#include +#include +#include #include -#include +#include #include #include @@ -2491,6 +2493,7 @@ _flush_cache() && ! (defined (linux) && defined (i386)) \ && ! defined (__FreeBSD__) \ && ! defined (__hpux__) \ + && ! defined (__APPLE__) \ && ! defined (_AIX) \ && ! (defined (__alpha__) && defined (__osf__)) \ && ! defined (__MINGW32__) \ diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c index 3566358a3dd..f0b4bfb9db7 100644 --- a/gcc/ada/expect.c +++ b/gcc/ada/expect.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2001-2004 Ada Core Technologies, Inc. * + * Copyright (C) 2001-2005 Ada Core Technologies, Inc. * * * * 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- * @@ -152,10 +152,10 @@ __gnat_expect_poll (int *fd, int num_fd, int timeout, int *is_set) #include #include #include -#include +#include #include -#include -#include +#include +#include int __gnat_pipe (int *fd) diff --git a/gcc/ada/tb-alvms.c b/gcc/ada/tb-alvms.c index 60effcc0504..83a470c9f89 100644 --- a/gcc/ada/tb-alvms.c +++ b/gcc/ada/tb-alvms.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2003 Ada Core Technologies, Inc * + * Copyright (C) 2003,2005 Ada Core Technologies, Inc * * * * 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- * @@ -39,10 +39,10 @@ Most of the contents is directed by the OpenVMS/Alpha Conventions (ABI) document, sections of which we will refer to as ABI-. */ -#include -#include -#include -#include +#include +#include +#include +#include /* A couple of items missing from the header file included above. */ extern void * SYS$GL_CALL_HANDL;