diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 15:58:36 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 15:58:36 +0200 |
| commit | e0666fc62f436b35e9ad3b806cb081d95f2f66c6 (patch) | |
| tree | 3907423b9fe4823d28c7700b2b8e7544d5ceda0c /gcc/ada/cstreams.c | |
| parent | 5ca28c1d5f5f8c435d534ed6142e8215b0babb65 (diff) | |
| download | gcc-e0666fc62f436b35e9ad3b806cb081d95f2f66c6.zip gcc-e0666fc62f436b35e9ad3b806cb081d95f2f66c6.tar.gz gcc-e0666fc62f436b35e9ad3b806cb081d95f2f66c6.tar.bz2 | |
[multiple changes]
2017-04-25 Gary Dismukes <dismukes@adacore.com>
* exp_util.adb, exp_ch4.adb: Minor reformatting.
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* checks.adb: Code clean up in various routines.
(Generate_Range_Check): Do not generate a range check when the
expander is not active or when index/range checks are suppressed
on the target type.
(Insert_List_After_And_Analyze, Insert_List_Before_And_Analyze):
Remove variants that include a Supress parameter. These routines
are never used, and were introduced before the current scope-based
check suppression method.
2017-04-25 Vasiliy Fofanov <fofanov@adacore.com>
* prj-part.adb, cstreams.c, osint.adb, osint.ads: Remove VMS specific
code and some subprogram calls that are now noop.
From-SVN: r247242
Diffstat (limited to 'gcc/ada/cstreams.c')
| -rw-r--r-- | gcc/ada/cstreams.c | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/gcc/ada/cstreams.c b/gcc/ada/cstreams.c index f0f8266..e4e6147 100644 --- a/gcc/ada/cstreams.c +++ b/gcc/ada/cstreams.c @@ -6,7 +6,7 @@ * * * Auxiliary C functions for Interfaces.C.Streams * * * - * Copyright (C) 1992-2015, Free Software Foundation, Inc. * + * Copyright (C) 1992-2017, Free Software Foundation, 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- * @@ -67,10 +67,6 @@ extern "C" { #endif -#ifdef VMS -#include <unixlib.h> -#endif - #ifdef __linux__ /* Don't use macros on GNU/Linux since they cause incompatible changes between glibc 2.0 and 2.1 */ @@ -202,23 +198,6 @@ __gnat_full_name (char *nam, char *buffer) getcwd approach instead. */ realpath (nam, buffer); -#elif defined (VMS) - strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len); - - if (buffer[0] == '/' || strchr (buffer, '!')) /* '!' means decnet node */ - strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len); - else - { - char *nambuffer = alloca (__gnat_max_path_len); - - strncpy (nambuffer, buffer, __gnat_max_path_len); - strncpy - (buffer, getcwd (buffer, __gnat_max_path_len, 0), __gnat_max_path_len); - strncat (buffer, "/", __gnat_max_path_len); - strncat (buffer, nambuffer, __gnat_max_path_len); - strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len); - } - #elif defined (__vxworks) /* On VxWorks systems, an absolute path can be represented (depending on |