paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 11:07:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed IsTGUID

Browse Source
This commit is contained in:
mattias 2021-03-01 21:25:34 +00:00
parent 43427913a8
commit c66025c9e3
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/packages/fcl-passrc/src/pasresolver.pp
View File

@ -29013,20 +29013,23 @@ function TPasResolver.IsTGUID(RecTypeEl: TPasRecordType): boolean;
var
Members: TFPList;
El: TPasElement;
i, MemberIndex: Integer;
begin
Result:=false;
if not SameText(RecTypeEl.Name,'TGUID') then exit;
if SameText(RecTypeEl.GetModule.Name,'system') then exit(true);
Members:=RecTypeEl.Members;
if Members.Count<4 then exit;
El:=TPasElement(Members[0]);
if not SameText(El.Name,'D1') then exit;
El:=TPasElement(Members[1]);
if not SameText(El.Name,'D2') then exit;
El:=TPasElement(Members[2]);
if not SameText(El.Name,'D3') then exit;
El:=TPasElement(Members[3]);
if not SameText(El.Name,'D4') then exit;
i:=1;
for MemberIndex:=0 to Members.Count-1 do
begin
El:=TPasElement(Members[MemberIndex]);
if (El.ClassType<>TPasVariable) then continue;
if SameText(El.Name,'D'+IntToStr(i)) then
begin
if i=4 then exit(true);
inc(i);
end;
end;
Result:=true;
end;