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

Merge branch 'FixInheritedClass' into 'main'

Browse Source 
Fix for inherited external class, with full path of the class.

See merge request freepascal.org/fpc/source!561
This commit is contained in:
Henrique Gottardi Werlang 2025-04-03 18:18:09 -03:00
commit e99a59bf09
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/pastojs/src/fppas2js.pp
View File

@ -16041,6 +16041,14 @@ var
end;
end;
function GetFullClassPath(const ClassType: TPasClassType): String;
begin
Result := ClassType.ExternalName;
if ClassType.Parent is TPasClassType then
Result := GetFullClassPath(TPasClassType(ClassType.Parent)) + '.' + Result;
end;
var
aResolver: TPas2JSResolver;
DelaySrc: TJSSourceElements;
@ -16154,7 +16162,7 @@ begin
if Ancestor=nil then
AncestorPath:='null'
else if AncestorIsExternal then
AncestorPath:=TPasClassType(Ancestor).ExternalName
AncestorPath:=GetFullClassPath(TPasClassType(Ancestor))
else
AncestorPath:=CreateReferencePath(Ancestor,AContext,rpkPathAndName);
Call.AddArg(CreatePrimitiveDotExpr(AncestorPath,El));