set_units allow number prefix as in 1ns

2020-01-27 09:37:36 -07:00 · 2020-01-27 09:37:36 -07:00 · 234996e08f
parent 5c2591aaaf
commit 234996e08f
1 changed files with 5 additions and 0 deletions
--- a/tcl/Sdc.tcl
+++ b/tcl/Sdc.tcl
@ -220,6 +220,11 @@ proc check_unit { unit key unit_name key_var } {
    } else {
      set prefix [string index $value 0]
      set suffix [string range $value 1 end]
+      # unit includes "1" prefix
+      if { [string is digit $prefix] } {
+	set prefix [string index $value 1]
+	set suffix [string range $value 2 end]
+      }
      if { [string equal -nocase $suffix $unit_name] } {
 	set scale [unit_prefix_scale $unit $prefix]
 	check_unit_scale $unit $scale