From 234996e08f38fc3b1efb6235f633d9341359d93f Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Mon, 27 Jan 2020 09:37:36 -0700
Subject: [PATCH] set_units allow number prefix as in 1ns

---
 tcl/Sdc.tcl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tcl/Sdc.tcl b/tcl/Sdc.tcl
index 86428d34..0f3b6887 100644
--- 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