liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

编辑器 

别名--跳转
This commit is contained in:
JianjunLiu 2023-04-26 09:54:45 +08:00
parent e72305506f
commit 5efd806288
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
designer/utslsynmemo.tsf
View File

@ -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