From f08b23714ff4412ef37672bc120499801f9561b8 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 9 Sep 2010 13:50:19 +0000 Subject: gnatcmd.adb, [...]: Minor reformatting 2010-09-09 Robert Dewar * gnatcmd.adb, gnatlink.adb, sem_ch12.adb, sem_eval.adb, sinput-p.adb: Minor reformatting From-SVN: r164099 --- gcc/ada/sinput-p.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/sinput-p.adb') 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; -- cgit v1.1