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

* Fix hints and warnings

Browse Source 
git-svn-id: trunk@31366 -
This commit is contained in:
michael 2015-08-22 13:17:53 +00:00
parent 5e7f08a69c
commit 5227a35d05
3 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/fpdoc/dglobals.pp
View File

@ -709,9 +709,9 @@ var
end; end;
end; end;
function ResolvePackageModule(AName:String;var pkg:TPasPackage;var module:TPasModule;createnew:boolean):String; function ResolvePackageModule(AName:String;out pkg:TPasPackage;out module:TPasModule;createnew:boolean):String;
var var
DotPos, DotPos2, i,j: Integer; DotPos, DotPos2, i: Integer;
s: String; s: String;
HPackage: TPasPackage; HPackage: TPasPackage;
@ -807,7 +807,6 @@ var
function CreateClass(const AName: String;InheritanceStr:String): TPasClassType; function CreateClass(const AName: String;InheritanceStr:String): TPasClassType;
var var
DotPos, DotPos2, i,j: Integer;
s: String; s: String;
HPackage: TPasPackage; HPackage: TPasPackage;
Module: TPasModule; Module: TPasModule;
@ -1444,9 +1443,7 @@ Var
end; end;
var var
i: Integer;
Node, Subnode, Subsubnode: TDOMNode; Node, Subnode, Subsubnode: TDOMNode;
Element: TDOMElement;
Doc: TXMLDocument; Doc: TXMLDocument;
PackageDocNode, TopicNode,ModuleDocNode: TDocNode; PackageDocNode, TopicNode,ModuleDocNode: TDocNode;
@ -1599,9 +1596,6 @@ end;
function TFPDocEngine.FindLinkedNode(ANode : TDocNode) : TDocNode; function TFPDocEngine.FindLinkedNode(ANode : TDocNode) : TDocNode;
Var
S: String;
begin begin
If (ANode.Link='') then If (ANode.Link='') then
Result:=Nil Result:=Nil

9
utils/fpdoc/fpclasschart.pp
View File

@ -25,7 +25,6 @@ resourcestring
STitle = 'fpClassTree - Create class tree from pascal sources'; STitle = 'fpClassTree - Create class tree from pascal sources';
SVersion = 'Version %s [%s]'; SVersion = 'Version %s [%s]';
SCopyright = '(c) 2008 - Michael Van Canneyt, michael@freepascal.org'; SCopyright = '(c) 2008 - Michael Van Canneyt, michael@freepascal.org';
SCmdLineHelp = 'See documentation for usage.';
SCmdLineInvalidOption = 'Ignoring unknown option "%s"'; SCmdLineInvalidOption = 'Ignoring unknown option "%s"';
SDone = 'Done.'; SDone = 'Done.';
SSkipMerge = 'Cannot merge %s into %s tree.'; SSkipMerge = 'Cannot merge %s into %s tree.';
@ -213,7 +212,6 @@ end;
procedure TClassChartFormatter.EmitClass(E : TDomElement; HasSiblings: Boolean); procedure TClassChartFormatter.EmitClass(E : TDomElement; HasSiblings: Boolean);
Var Var
DidSub : Boolean;
N : TDomNode; N : TDomNode;
I : Integer; I : Integer;
L : TFPList; L : TFPList;
@ -235,7 +233,6 @@ begin
end; end;
DoEmitClass(E); DoEmitClass(E);
N:=E.FirstChild; N:=E.FirstChild;
DidSub:=False;
L:=TFPList.Create; L:=TFPList.Create;
try try
While (N<>Nil) do While (N<>Nil) do
@ -432,8 +429,6 @@ function TClassTreeEngine.CreateElement(AClass: TPTreeElement; const AName: Stri
AParent: TPasElement; AVisibility : TPasMemberVisibility; AParent: TPasElement; AVisibility : TPasMemberVisibility;
const ASourceFilename: String; ASourceLinenumber: Integer): TPasElement; const ASourceFilename: String; ASourceLinenumber: Integer): TPasElement;
Var
DN : TDocNode;
begin begin
Result := AClass.Create(AName, AParent); Result := AClass.Create(AName, AParent);
@ -478,6 +473,7 @@ Var
begin begin
Result:=0;
N:=Source.FirstChild; N:=Source.FirstChild;
While (N<>Nil) do While (N<>Nil) do
begin begin
@ -503,7 +499,6 @@ Function MergeTrees (Dest,Source : TXMLDocument) : Integer;
Var Var
S,D : TDomElement; S,D : TDomElement;
Count : Integer;
begin begin
Result:=0; Result:=0;
@ -524,6 +519,7 @@ Var
Engine: TClassTreeEngine; Engine: TClassTreeEngine;
begin begin
Result:='';
XML:=TXMLDocument.Create; XML:=TXMLDocument.Create;
Try Try
//XML. //XML.
@ -586,7 +582,6 @@ var
InputFiles, InputFiles,
MergeFiles : TStringList; MergeFiles : TStringList;
DocLang : String; DocLang : String;
PackageName,
OutputName: String; OutputName: String;
procedure InitOptions; procedure InitOptions;

3
utils/fpdoc/fpdocclasstree.pp
View File

@ -30,8 +30,7 @@ implementation
constructor TClassTreeBuilder.Create(APackage : TPasPackage; constructor TClassTreeBuilder.Create(APackage : TPasPackage;
AObjectKind: TPasObjKind); AObjectKind: TPasObjKind);
Var
N : TDomNode;
begin begin
FCLassTree:=TXMLDocument.Create; FCLassTree:=TXMLDocument.Create;
FPackage:=APAckage; FPackage:=APAckage;