Updated GHDL libraries to use relative paths - @Paebbels

JimLewis · JimLewis · commit c99eb4bdbd8a · 2025-02-08T08:24:17.000-08:00
diff --git a/VendorScripts_GHDL.tcl b/VendorScripts_GHDL.tcl
@@ -47,6 +47,7 @@
 #  limitations under the License.
 #
 
+package require fileutil
 
 # -------------------------------------------------
 # Tool Settings
@@ -115,7 +116,7 @@ proc IsVendorCommand {LineOfText} {
 # Library
 #
 proc GhdlLibraryPath {LibraryName PathToLib} {
-  set PathAndLib "${PathToLib}/[string tolower ${LibraryName}]/v${::osvvm::VhdlShortVersion}"
+  set PathAndLib "[::fileutil::relative [pwd] ${PathToLib}/[string tolower ${LibraryName}]/v${::osvvm::VhdlShortVersion}]"
   return $PathAndLib
 }
 

Original file line number	Diff line number	Diff line change
`@@ -47,6 +47,7 @@`
`47`	`47`	`# limitations under the License.`
`48`	`48`	`#`
`49`	`49`
	`50`	`+package require fileutil`
`50`	`51`
`51`	`52`	`# -------------------------------------------------`
`52`	`53`	`# Tool Settings`
`@@ -115,7 +116,7 @@ proc IsVendorCommand {LineOfText} {`
`115`	`116`	`# Library`
`116`	`117`	`#`
`117`	`118`	`proc GhdlLibraryPath {LibraryName PathToLib} {`
`118`		`- set PathAndLib "${PathToLib}/[string tolower ${LibraryName}]/v${::osvvm::VhdlShortVersion}"`
	`119`	`+ set PathAndLib "[::fileutil::relative [pwd] ${PathToLib}/[string tolower ${LibraryName}]/v${::osvvm::VhdlShortVersion}]"`
`119`	`120`	`return $PathAndLib`
`120`	`121`	`}`
`121`	`122`