diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-05-17 05:53:36 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-05-18 07:59:34 +0200 |
| commit | 513bbe9ca27c2c3beaf315df8280586a21cae76a (patch) | |
| tree | 849f550b4877436e0f11ba1fc7e10ea64a05736a /src/ghdldrv/ghdllocal.adb | |
| parent | 8d71ed4eb2e0e4fb4081ff8f5f220fdd44a741e2 (diff) | |
| download | ghdl-513bbe9ca27c2c3beaf315df8280586a21cae76a.tar.gz ghdl-513bbe9ca27c2c3beaf315df8280586a21cae76a.tar.bz2 ghdl-513bbe9ca27c2c3beaf315df8280586a21cae76a.zip | |
Fix typo: paths.
Diffstat (limited to 'src/ghdldrv/ghdllocal.adb')
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 229108e5a..81c3adb05 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -25,7 +25,7 @@ with Flags; with Name_Table; with Std_Names; with Disp_Vhdl; -with Default_Pathes; +with Default_Paths; with Scanner; with Errorout; with Configuration; @@ -34,7 +34,7 @@ with Options; with Iirs_Utils; use Iirs_Utils; package body Ghdllocal is - -- Version of the IEEE library to use. This just change pathes. + -- Version of the IEEE library to use. This just change paths. type Ieee_Lib_Kind is (Lib_Standard, Lib_None, Lib_Synopsys, Lib_Mentor); Flag_Ieee : Ieee_Lib_Kind; @@ -349,22 +349,22 @@ package body Ghdllocal is end if; -- Else try default path. if Lib_Prefix_Path = null then - if Is_Absolute_Path (Default_Pathes.Lib_Prefix) then - Lib_Prefix_Path := new String'(Default_Pathes.Lib_Prefix); + if Is_Absolute_Path (Default_Paths.Lib_Prefix) then + Lib_Prefix_Path := new String'(Default_Paths.Lib_Prefix); else if Exec_Prefix /= null then Lib_Prefix_Path := new String'(Exec_Prefix.all & Directory_Separator - & Default_Pathes.Lib_Prefix); + & Default_Paths.Lib_Prefix); end if; if Lib_Prefix_Path = null or else not Is_Directory (Lib_Prefix_Path.all) then Free (Lib_Prefix_Path); Lib_Prefix_Path := new - String'(Default_Pathes.Install_Prefix + String'(Default_Paths.Install_Prefix & Directory_Separator - & Default_Pathes.Lib_Prefix); + & Default_Paths.Lib_Prefix); end if; end if; else @@ -372,7 +372,7 @@ package body Ghdllocal is Flag_32bit := False; end if; - -- Add pathes for predefined libraries. + -- Add paths for predefined libraries. if not Flags.Bootstrap then Add_Library_Path ("std"); case Flag_Ieee is |