diff options
Diffstat (limited to 'gcc/ada/fname.adb')
| -rw-r--r-- | gcc/ada/fname.adb | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/gcc/ada/fname.adb b/gcc/ada/fname.adb index 7923a5e..ad316eb 100644 --- a/gcc/ada/fname.adb +++ b/gcc/ada/fname.adb @@ -29,34 +29,8 @@ -- -- ------------------------------------------------------------------------------ -with Alloc; -with Table; -with Types; use Types; - package body Fname is - ----------------------------- - -- Dummy Table Definitions -- - ----------------------------- - - -- The following table was used in old versions of the compiler. We retain - -- the declarations here for compatibility with old tree files. The new - -- version of the compiler does not use this table, and will write out a - -- dummy empty table for Tree_Write. - - type SFN_Entry is record - U : Unit_Name_Type; - F : File_Name_Type; - end record; - - package SFN_Table is new Table.Table ( - Table_Component_Type => SFN_Entry, - Table_Index_Type => Int, - Table_Low_Bound => 0, - Table_Initial => Alloc.SFN_Table_Initial, - Table_Increment => Alloc.SFN_Table_Increment, - Table_Name => "Fname_Dummy_Table"); - function Has_Internal_Extension (Fname : String) return Boolean; pragma Inline (Has_Internal_Extension); -- True if the extension is appropriate for an internal/predefined unit. @@ -268,22 +242,4 @@ package body Fname is return Result; end Is_Predefined_Renaming_File_Name; - --------------- - -- Tree_Read -- - --------------- - - procedure Tree_Read is - begin - SFN_Table.Tree_Read; - end Tree_Read; - - ---------------- - -- Tree_Write -- - ---------------- - - procedure Tree_Write is - begin - SFN_Table.Tree_Write; - end Tree_Write; - end Fname; |