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

* minor hint and warning improvements

Browse Source 
git-svn-id: trunk@15868 -
This commit is contained in:
marco 2010-08-21 21:12:27 +00:00
parent 9fd7c6fc63
commit b30c284b08
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-passrc/src/pparser.pp
View File

@ -3204,6 +3204,13 @@ begin
if CurToken = tkBraceOpen then if CurToken = tkBraceOpen then
begin begin
TPasClassType(Result).AncestorType := ParseType(nil); TPasClassType(Result).AncestorType := ParseType(nil);
{$ifdef Inheritancewarnings}
s:=TPasClassType(Result).AncestorType.pathname;
if pos('#',s)=0 then
begin
writeln('Note: ', TPasClassType(Result).pathname,'''s ancestor ',s, ' at ',sourcefilename,':',sourcelinenumber,' cannot be resolved fully');
end;
{$endif}
while True do while True do
begin begin
NextToken; NextToken;

2
utils/fpdoc/dglobals.pp
View File

@ -754,7 +754,7 @@ var
for j:= 0 to inhclass.count-1 do for j:= 0 to inhclass.count-1 do
begin begin
writeln('processing',inhclass[j]); // writeln('processing',inhclass[j]);
cls2:=TPasClassType(ResolveClassType(inhclass[j])); cls2:=TPasClassType(ResolveClassType(inhclass[j]));
if assigned(cls2) and not (cls=cls2) then // save from tobject=implicit tobject if assigned(cls2) and not (cls=cls2) then // save from tobject=implicit tobject
begin begin