diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-12-31 06:35:55 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-12-31 06:35:55 +0100 |
commit | 032a613b864bd0ff4c632cfb8541203abf1f4e59 (patch) | |
tree | 485963e7bf92b8e8c3497721c3d1295a53e949f4 /src/files_map.adb | |
parent | dfff5cae5a4b336ba0cf797f4122cfcace474736 (diff) | |
download | ghdl-032a613b864bd0ff4c632cfb8541203abf1f4e59.tar.gz ghdl-032a613b864bd0ff4c632cfb8541203abf1f4e59.tar.bz2 ghdl-032a613b864bd0ff4c632cfb8541203abf1f4e59.zip |
Rename name_table.name_buffer and name_length to avoid clash.
Diffstat (limited to 'src/files_map.adb')
-rw-r--r-- | src/files_map.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/files_map.adb b/src/files_map.adb index 22c33e490..641ed73e7 100644 --- a/src/files_map.adb +++ b/src/files_map.adb @@ -89,7 +89,7 @@ package body Files_Map is function Get_Home_Directory return Name_Id is begin if Home_Dir = Null_Identifier then - GNAT.Directory_Operations.Get_Current_Dir (Name_Buffer, Name_Length); + GNAT.Directory_Operations.Get_Current_Dir (Nam_Buffer, Nam_Length); Home_Dir := Get_Identifier; end if; return Home_Dir; @@ -548,17 +548,17 @@ package body Files_Map is L : Natural; begin Image (Name); - if not GNAT.OS_Lib.Is_Absolute_Path (Name_Buffer (1 .. Name_Length)) then - L := Name_Length; + if not GNAT.OS_Lib.Is_Absolute_Path (Nam_Buffer (1 .. Nam_Length)) then + L := Nam_Length; Image (Directory); - Name_Buffer (Name_Length + 1 .. Name_Length + L) := Image (Name); - Name_Length := Name_Length + L; + Nam_Buffer (Nam_Length + 1 .. Nam_Length + L) := Image (Name); + Nam_Length := Nam_Length + L; end if; if Add_Nul then - Name_Length := Name_Length + 1; - Name_Buffer (Name_Length) := Character'Val (0); + Nam_Length := Nam_Length + 1; + Nam_Buffer (Nam_Length) := Character'Val (0); end if; - return Name_Buffer (1 .. Name_Length); + return Nam_Buffer (1 .. Nam_Length); end Get_Pathname; -- Find a source_file by DIRECTORY and NAME. |