paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better warnings

Browse Source 
git-svn-id: trunk@19050 -
This commit is contained in:
michael 2011-09-11 17:39:17 +00:00
parent 2aebae2846
commit 942cc99bfe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fpdoc/dglobals.pp
View File

@ -793,7 +793,7 @@ var
end end
else else
if cls<>result then if cls<>result then
writeln(cls.name,'''s dependency ' ,clname,' could not be resolved'); writeln('Warning : ancestor class ',clname,' of class ',cls.name,' could not be resolved');
end; end;
function CreateAliasType (alname,clname : string;parentclass:TPasClassType; out cl2 :TPasClassType):TPasAliasType; function CreateAliasType (alname,clname : string;parentclass:TPasClassType; out cl2 :TPasClassType):TPasAliasType;
@ -853,7 +853,7 @@ end;
begin begin
// writeln('Found alias pair ',clname,' = ',alname); // writeln('Found alias pair ',clname,' = ',alname);
if not assigned(CreateAliasType(alname,clname,cls,cls2)) then if not assigned(CreateAliasType(alname,clname,cls,cls2)) then
writeln('creating alias failed!'); writeln('Warning: creating alias ',alname,' for ',clname,' failed!');
end end
else else
cls2:=ResolveAndLinkClass(clname,j=0,cls); cls2:=ResolveAndLinkClass(clname,j=0,cls);
@ -1192,7 +1192,7 @@ var
end; end;
begin begin
//system.WriteLn('ResolveLink(', AModule.Name, ' - ', ALinkDest, ')... '); system.WriteLn('ResolveLink(', AModule.Name, ' - ', ALinkDest, ')... ');
if Length(ALinkDest) = 0 then if Length(ALinkDest) = 0 then
begin begin
SetLength(Result, 0); SetLength(Result, 0);