From 5efd8062885d78fc4acb580055707576474f1ae5 Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Wed, 26 Apr 2023 09:54:45 +0800 Subject: [PATCH] =?UTF-8?q?=E7=BC=96=E8=BE=91=E5=99=A8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 别名--跳转 --- designer/utslsynmemo.tsf | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/designer/utslsynmemo.tsf b/designer/utslsynmemo.tsf index 9f86aac..b5e96fc 100644 --- a/designer/utslsynmemo.tsf +++ b/designer/utslsynmemo.tsf @@ -1808,7 +1808,7 @@ type TTsfFileParser = class() // rl := length(r); for i,v in us do begin - for j,vj in FNsCaches[v] do + for j,vj in FNsCaches[lowercase(v)] do begin if vj then begin @@ -1832,11 +1832,11 @@ type TTsfFileParser = class() // vi := LoadByName(vfn); if vi then begin - if vi["msg"] in dounits then + if dounits[vi["msg"]] then begin continue; end - dounits[length(dounits)] := vi["msg"] ; + dounits[vi["msg"]] := 1 ; us[length(us)] := vfn; uso[length(uso)] := vi; getinheriteds(vi,m,dounits,us,uso,cs,cso); @@ -1850,8 +1850,8 @@ type TTsfFileParser = class() // vi := LoadByName(vfn); if vi then begin - if vi["msg"] in dounits then continue; - dounits[length(dounits)] := vi["msg"]; + if dounits[vi["msg"] ] then continue; + dounits[vi["msg"]] := 1; cs[length(cs)] := vfn; cso[length(cso)] := vi; getinheriteds(vi,m,dounits,us,uso,cs,cso); @@ -1891,7 +1891,7 @@ type TTsfFileParser = class() // FormatFunction(rti,r["functions"],rt,"",r["lines"],ext,1); FormatBlocks(rti,r["blcks"],rt,"",nil,ext,1); FormatWords(rti,r["words"],rt,"",ext,1); - dounits := array(vmsg); + dounits := array(vmsg:1); getinheriteds(r,m,dounits,us,uso,cs,cso); for i,v in us do //Ԫ begin