diff options
Diffstat (limited to 'gcc/ada/fmap.adb')
-rw-r--r-- | gcc/ada/fmap.adb | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index cb2e352..37e1002 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2006, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -200,6 +200,20 @@ package body Fmap is Last_In_Table := 0; end Empty_Tables; + --------------- + -- Find_Name -- + --------------- + + function Find_Name return Name_Id is + begin + if Name_Buffer (1 .. Name_Len) = "/" then + return Error_Name; + + else + return Name_Find; + end if; + end Find_Name; + -------------- -- Get_Line -- -------------- @@ -236,20 +250,6 @@ package body Fmap is end if; end Get_Line; - --------------- - -- Find_Name -- - --------------- - - function Find_Name return Name_Id is - begin - if Name_Buffer (1 .. Name_Len) = "/" then - return Error_Name; - - else - return Name_Find; - end if; - end Find_Name; - ---------------------- -- Report_Truncated -- ---------------------- |