diff options
Diffstat (limited to 'src/ghdldrv/ghdlrun.adb')
| -rw-r--r-- | src/ghdldrv/ghdlrun.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index 698879202..be4619815 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -193,8 +193,7 @@ package body Ghdlrun is when Foreign_Vhpidirect => declare Name : constant String := - Name_Table.Nam_Buffer (Info.Subprg_First - .. Info.Subprg_Last); + Info.Subprg_Name (1 .. Info.Subprg_Len); begin Res := Foreigns.Find_Foreign (Name); if Res /= Null_Address then @@ -205,10 +204,10 @@ package body Ghdlrun is end if; end; when Foreign_Intrinsic => - Name_Table.Image (Get_Identifier (Decl)); + declare Name : constant String := - Name_Table.Nam_Buffer (1 .. Name_Table.Nam_Length); + Name_Table.Image (Get_Identifier (Decl)); begin if Name = "untruncated_text_read" then Def (Ortho, Grt.Files.Ghdl_Untruncated_Text_Read'Address); |