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

- xmlread.pp, removed redundant 'var' modifiers from TStream arguments of less common used functions. This should have been done a long ago, as part of r11788.

Browse Source 
git-svn-id: trunk@15717 -
This commit is contained in:
sergei 2010-08-06 07:44:51 +00:00
parent 7acdfa8932
commit e1eec8c687
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-xml/src/xmlread.pp
View File

@ -48,13 +48,13 @@ procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream; const ABaseURI: String
procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String); overload; procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: Text); overload; procedure ReadXMLFragment(AParentNode: TDOMNode; var f: Text); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream); overload; procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream; const ABaseURI: String); overload; procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream; const ABaseURI: String); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; const AFilename: String); overload; procedure ReadDTDFile(out ADoc: TXMLDocument; const AFilename: String); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: Text); overload; procedure ReadDTDFile(out ADoc: TXMLDocument; var f: Text); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream); overload; procedure ReadDTDFile(out ADoc: TXMLDocument; f: TStream); overload;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream; const ABaseURI: String); overload; procedure ReadDTDFile(out ADoc: TXMLDocument; f: TStream; const ABaseURI: String); overload;
type type
TDOMParseOptions = class(TObject) TDOMParseOptions = class(TObject)
@ -3871,7 +3871,7 @@ begin
end; end;
end; end;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream; const ABaseURI: String); procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream; const ABaseURI: String);
var var
Reader: TXMLReader; Reader: TXMLReader;
Src: TXMLCharSource; Src: TXMLCharSource;
@ -3886,7 +3886,7 @@ begin
end; end;
end; end;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream); procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream);
begin begin
ReadXMLFragment(AParentNode, f, 'stream:'); ReadXMLFragment(AParentNode, f, 'stream:');
end; end;
@ -3920,7 +3920,7 @@ begin
end; end;
end; end;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream; const ABaseURI: String); procedure ReadDTDFile(out ADoc: TXMLDocument; f: TStream; const ABaseURI: String);
var var
Reader: TXMLReader; Reader: TXMLReader;
Src: TXMLCharSource; Src: TXMLCharSource;
@ -3937,7 +3937,7 @@ begin
end; end;
end; end;
procedure ReadDTDFile(out ADoc: TXMLDocument; var f: TStream); procedure ReadDTDFile(out ADoc: TXMLDocument; f: TStream);
begin begin
ReadDTDFile(ADoc, f, 'stream:'); ReadDTDFile(ADoc, f, 'stream:');
end; end;