diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-26 12:37:17 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-26 12:37:17 +0100 |
| commit | ec6cfc5dc2d118e005edd98ecfef10de1fc48ad1 (patch) | |
| tree | c80668d954e74578f7c175065fedc3cbf8832737 /gcc/ada/adaint.c | |
| parent | bed87f4f07d0a5d6cddb8121ad55fdd0356c6b76 (diff) | |
| download | gcc-ec6cfc5dc2d118e005edd98ecfef10de1fc48ad1.zip gcc-ec6cfc5dc2d118e005edd98ecfef10de1fc48ad1.tar.gz gcc-ec6cfc5dc2d118e005edd98ecfef10de1fc48ad1.tar.bz2 | |
[multiple changes]
2015-10-26 Ed Schonberg <schonberg@adacore.com>
* sem_disp.adb (Check_Controlling_Type): Handle properly the
case of an incomplete type whose full view is tagged, when a
primitive operation of the type is declared between the two views.
2015-10-26 Bob Duff <duff@adacore.com>
* adaint.c (__gnat_locate_exec_on_path): If the PATH environment
variable is not set, do not return NULL, because we can still find
the executable if it includes a directory name.
2015-10-26 Ed Schonberg <schonberg@adacore.com>
* sem_elab.adb (Elab_Warning): Under dynamic elaboration, when
elaboration warnings are enabled, emit proper warning header
when triggered by an access attribute.
2015-10-26 Steve Baird <baird@adacore.com>
* exp_ch11.adb: If CodePeer_Mode is true, generate simplified
SCIL for exception declarations.
* exp_ch11.adb (Expand_N_Exception_Declaration) If CodePeer_Mode
is True, initialize the Full_Name component of the exception
record to null instead of to the result of an unchecked
conversion.
2015-10-26 Ed Schonberg <schonberg@adacore.com>
* exp_unst.adb (Note_Uplevel_Ref) : Handle properly a reference
that denotes a function returning a constrained array, that has
been rewritten as a procedure.
* makeutl.ads: Minor edit.
From-SVN: r229340
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 6e18d94..5903247 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -2787,16 +2787,19 @@ __gnat_locate_exec_on_path (char *exec_name) apath_val = (char *) alloca (EXPAND_BUFFER_SIZE); WS2SC (apath_val, wapath_val, EXPAND_BUFFER_SIZE); - return __gnat_locate_exec (exec_name, apath_val); #else char *path_val = getenv ("PATH"); - if (path_val == NULL) return NULL; + /* If PATH is not defined, proceed with __gnat_locate_exec anyway, so we can + find files that contain directory names. */ + + if (path_val == NULL) path_val = ""; apath_val = (char *) alloca (strlen (path_val) + 1); strcpy (apath_val, path_val); - return __gnat_locate_exec (exec_name, apath_val); #endif + + return __gnat_locate_exec (exec_name, apath_val); } /* Dummy functions for Osint import for non-VMS systems. |