diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-12 18:24:32 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-13 18:50:55 +0100 |
| commit | b88d47ab749a684ef32cb7d55bdfcea4c229d7a0 (patch) | |
| tree | bd4bc3fa3068ed9a1c8df9be01f885fcb3f727ba /src/ghdldrv | |
| parent | ccf8b3bf2854641388619e68325998b9ddd229de (diff) | |
| download | ghdl-b88d47ab749a684ef32cb7d55bdfcea4c229d7a0.tar.gz ghdl-b88d47ab749a684ef32cb7d55bdfcea4c229d7a0.tar.bz2 ghdl-b88d47ab749a684ef32cb7d55bdfcea4c229d7a0.zip | |
Rename overloaded Load_File and export it to python.
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 6 | ||||
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 6 | ||||
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index 5ccb1f9ab..6533d9225 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -215,7 +215,7 @@ package body Ghdlcomp is Design : Iir; Next_Design : Iir; begin - Res := Load_File (Name_Table.Get_Identifier (File)); + Res := Load_File_Name (Name_Table.Get_Identifier (File)); if Errorout.Nbr_Errors > 0 then raise Compilation_Error; end if; @@ -239,7 +239,7 @@ package body Ghdlcomp is Unit : Iir; Next_Unit : Iir; begin - Design_File := Load_File (Id); + Design_File := Load_File_Name (Id); if Design_File = Null_Iir or else Errorout.Nbr_Errors > 0 then -- Stop now in case of error (file not found or parse error). return Design_File; @@ -397,7 +397,7 @@ package body Ghdlcomp is -- Parse all files. for I in Args'Range loop Id := Name_Table.Get_Identifier (Args (I).all); - Design_File := Load_File (Id); + Design_File := Load_File_Name (Id); if Errorout.Nbr_Errors > 0 then raise Compilation_Error; end if; diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 568872ab3..9df81a7b2 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -639,7 +639,7 @@ package body Ghdllocal is for I in Args'Range loop Id := Get_Identifier (Args (I).all); - Design_File := Sem_Lib.Load_File (Id); + Design_File := Sem_Lib.Load_File_Name (Id); if Design_File /= Null_Iir then Unit := Get_First_Design_Unit (Design_File); while Unit /= Null_Iir loop @@ -700,7 +700,7 @@ package body Ghdllocal is -- Parse all files. for I in Args'Range loop Id := Name_Table.Get_Identifier (Args (I).all); - Design_File := Sem_Lib.Load_File (Id); + Design_File := Sem_Lib.Load_File_Name (Id); if Design_File /= Null_Iir then Unit := Get_First_Design_Unit (Design_File); while Unit /= Null_Iir loop @@ -787,7 +787,7 @@ package body Ghdllocal is Put (File_Name); Put_Line (":"); end if; - Design_File := Sem_Lib.Load_File (Id); + Design_File := Sem_Lib.Load_File_Name (Id); if Design_File = Null_Iir then raise Errorout.Compilation_Error; end if; diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 8470b6ea3..4d367621c 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -680,7 +680,7 @@ package body Ghdlprint is -- exist. for I in Args'Range loop Id := Get_Identifier (Args (I).all); - Design_File := Load_File (Id); + Design_File := Load_File_Name (Id); if Design_File = Null_Iir then raise Compile_Error; end if; @@ -994,7 +994,7 @@ package body Ghdlprint is -- Parse all files. for I in Args'Range loop Id := Name_Table.Get_Identifier (Args (I).all); - Design_File := Load_File (Id); + Design_File := Load_File_Name (Id); if Design_File = Null_Iir then raise Errorout.Compilation_Error; end if; |