diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:37:00 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:37:00 +0200 |
| commit | 2671885430ef8e938206bf41d907cfd40f6852db (patch) | |
| tree | 12136e5bd6448aec7aa899216abc7709792bed5d /gcc/ada/lib.adb | |
| parent | 0c85534d6f996d7ef5430c77b0e508ddc6f130ef (diff) | |
| download | gcc-2671885430ef8e938206bf41d907cfd40f6852db.zip gcc-2671885430ef8e938206bf41d907cfd40f6852db.tar.gz gcc-2671885430ef8e938206bf41d907cfd40f6852db.tar.bz2 | |
Minor reformatting.
From-SVN: r247164
Diffstat (limited to 'gcc/ada/lib.adb')
| -rw-r--r-- | gcc/ada/lib.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index ae9e29a..ea8b061 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -905,6 +905,7 @@ package body Lib is function In_Internal_Unit (S : Source_Ptr) return Boolean is Unit : constant Unit_Number_Type := Get_Source_Unit (S); File : constant File_Name_Type := Unit_File_Name (Unit); + begin return Is_Internal_File_Name (File); end In_Internal_Unit; |