diff options
Diffstat (limited to 'src/ghdldrv/ghdllocal.adb')
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 6 |
1 files changed, 3 insertions, 3 deletions
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; |