From e43666c176544ba8bac0d1b89b6ac8e19abd2c28 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 18 Nov 2020 21:46:52 +0100
Subject: Use ':' instead of '$' for number names

---
 src/ghdl.cc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/ghdl.cc b/src/ghdl.cc
index 05b319e..29b9e9a 100644
--- a/src/ghdl.cc
+++ b/src/ghdl.cc
@@ -78,8 +78,9 @@ static std::string to_str(Sname name)
 			res = '.' + user_to_str(get_sname_suffix(pfx)) + res;
 			break;
 		case Sname_Version:
-			//  Use '$' for versions.  '%' is not supported by Xilinx ISE edif2ngc.
-			res = '$' + stringf("%u", get_sname_version(pfx)) + res;
+			//  Use ':' for versions.  '%' is not supported by Xilinx ISE edif2ngc.
+			//  ('$' is boring with tcl scripts)
+			res = ':' + stringf("%u", get_sname_version(pfx)) + res;
 			break;
 		}
 	}
-- 
cgit v1.2.3