diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-21 14:34:12 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-12-21 14:34:12 +0100 |
| commit | 5e12215f68701ac8c69515edec41d6b8369ea6c4 (patch) | |
| tree | 9b067a696bc14ff72b59521b21f2088104a146e4 /gcc/ada/adaint.c | |
| parent | 427f99e2d6a7ce6df094a96fd4e26774d87b1b02 (diff) | |
| download | gcc-5e12215f68701ac8c69515edec41d6b8369ea6c4.zip gcc-5e12215f68701ac8c69515edec41d6b8369ea6c4.tar.gz gcc-5e12215f68701ac8c69515edec41d6b8369ea6c4.tar.bz2 | |
[multiple changes]
2011-12-21 Arnaud Charlet <charlet@adacore.com>
* gnat1drv.adb (Gnat1Drv): Always delete old scil files in
CodePeer mode.
2011-12-21 Robert Dewar <dewar@adacore.com>
* comperr.adb: Minor reformatting.
2011-12-21 Ed Schonberg <schonberg@adacore.com>
* aspects.ads: New table Base_Aspect, to indicate that an aspect
is defined on a base type.
* aspects.adb (Find_Aspect): If the aspect is a Base_Aspect,
examine the representation items of the base type.
2011-12-21 Pascal Obry <obry@adacore.com>
* gnat_ugn.texi, prj.ads, prj-nmsc.adb, prj-attr.adb, projects.texi,
snames.ads-tmpl: Use Encapsulated instead of Fully Standalone library.
2011-12-21 Pascal Obry <obry@adacore.com>
* adaint.c (__gnat_is_executable_file_attr) [_WIN32]: Add parentheses
to kill warning.
From-SVN: r182582
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index dde3342..4c96d56 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -2189,10 +2189,10 @@ __gnat_is_executable_file_attr (char* name, struct file_attributes* attr) /* look for last .exe */ if (last) - while (l = _tcsstr(last+1, _T(".exe"))) last = l; + while ((l = _tcsstr(last+1, _T(".exe")))) last = l; attr->executable = GetFileAttributes (wname) != INVALID_FILE_ATTRIBUTES - && last - wname == (int) (_tcslen (wname) - 4); + && (last - wname) == (int) (_tcslen (wname) - 4); } #else __gnat_stat_to_attr (-1, name, attr); |