diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-09-09 13:50:19 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-09 15:50:19 +0200 |
| commit | f08b23714ff4412ef37672bc120499801f9561b8 (patch) | |
| tree | 96a68722495003afc725bc912760878e3534bb3e /gcc/ada/sinput-p.adb | |
| parent | a8cc3e468eda458c6bc0a618c5179af582e99e00 (diff) | |
| download | gcc-f08b23714ff4412ef37672bc120499801f9561b8.zip gcc-f08b23714ff4412ef37672bc120499801f9561b8.tar.gz gcc-f08b23714ff4412ef37672bc120499801f9561b8.tar.bz2 | |
gnatcmd.adb, [...]: Minor reformatting
2010-09-09 Robert Dewar <dewar@adacore.com>
* gnatcmd.adb, gnatlink.adb, sem_ch12.adb, sem_eval.adb, sinput-p.adb:
Minor reformatting
From-SVN: r164099
Diffstat (limited to 'gcc/ada/sinput-p.adb')
| -rw-r--r-- | gcc/ada/sinput-p.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sinput-p.adb b/gcc/ada/sinput-p.adb index 5681314..cd513d0 100644 --- a/gcc/ada/sinput-p.adb +++ b/gcc/ada/sinput-p.adb @@ -151,7 +151,7 @@ package body Sinput.P is function Source_File_Is_Subunit (X : Source_File_Index) return Boolean is begin - -- Nothing to do if X is null. So, simply return False. + -- Nothing to do if X is no source file, so simply return False if X = No_Source_File then return False; |