From 9cb435c43cb3a67ace38a1031724c19ed60fd6b6 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 13 Mar 2025 21:51:06 +0100
Subject: [PATCH] remove implicit [pwd] prepending to relative paths given to
 rel_sym_path. this assumption is incorrect in some cases

---
 src/xschem.tcl | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 3f2844f5..39283906 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -7009,15 +7009,15 @@ proc rel_sym_path {symbol {paths {}} } {
 
   if { $paths eq {}} {set paths $pathlist}
   regsub {^~/} $symbol ${env(HOME)}/ symbol
-  if {$OS eq "Windows"} {
-    if {![regexp {^[A-Za-z]\:/} $symbol]} {
-      set symbol [pwd]/$symbol
-    }
-  } else {
-    if {![regexp {^/} $symbol]} {
-      set symbol [pwd]/$symbol
-    }
-  }
+  # if {$OS eq "Windows"} {
+  #   if {![regexp {^[A-Za-z]\:/} $symbol]} {
+  #     set symbol [pwd]/$symbol
+  #   }
+  # } else {
+  #   if {![regexp {^/} $symbol]} {
+  #     set symbol [pwd]/$symbol
+  #   }
+  # }
   set curr_dirname [pwd]
   set name {}
   foreach path_elem $paths {