* Improve unresolved type reference writing. Fixes issue #41143

packages/fcl-passrc/src/pastree.pp

@@ -986,6 +986,7 @@ type
     // Typerefs cannot be parented! -> AParent _must_ be NIL
     constructor Create(const AName: TPasTreeString; AParent: TPasElement); override;
     function ElementTypeName: TPasTreeString; override;
+    function GetDeclaration(full : Boolean) : TPasTreeString; override;
   end;
 
   { TPasUnresolvedUnitRef }
@@ -3973,6 +3974,14 @@ begin
   if AParent=nil then ;
 end;
 
+function TPasUnresolvedTypeRef.GetDeclaration(full: Boolean): TPasTreeString;
+begin
+  Result:=Name;
+  if Full then
+    Result:=FixTypeDecl(Result);
+end;
+
+
 procedure TPasVariable.FreeChildren(Prepare: boolean);
 begin
   VarType:=TPasType(FreeChild(VarType,Prepare));