Tcl global error

之前用 Go 重寫 tool 時，改由自己得到 Top module name，不再從 command line arg 取得。

覺得這樣也蠻方便的，故將 Tcl code 也比照辦理。

由於之前的 Tcl code 遞迴用很深，故我很多參數都是拉出來變成全域變數，就只是忘了在 proc 中加上 global var 宣告，害我昨天找了老半天XD