paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-17 22:11:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed 'var' parameters to 'out' in order to avoid warnings (Mantis #22136)

Browse Source 
git-svn-id: trunk@21452 -
This commit is contained in:
sergei 2012-06-01 19:57:28 +00:00
parent 1759d5fc8e
commit e41a365f59
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-xml/src/sax_html.pp
View File

@ -108,8 +108,8 @@ type
// Helper functions; these ones are HTML equivalents of ReadXML[File|Fragment]
procedure ReadHTMLFile(var ADoc: THTMLDocument; const AFilename: String);
procedure ReadHTMLFile(var ADoc: THTMLDocument; f: TStream);
procedure ReadHTMLFile(out ADoc: THTMLDocument; const AFilename: String);
procedure ReadHTMLFile(out ADoc: THTMLDocument; f: TStream);
procedure ReadHTMLFragment(AParentNode: TDOMNode; const AFilename: String);
procedure ReadHTMLFragment(AParentNode: TDOMNode; f: TStream);
@ -696,7 +696,7 @@ begin
end;
procedure ReadHTMLFile(var ADoc: THTMLDocument; const AFilename: String);
procedure ReadHTMLFile(out ADoc: THTMLDocument; const AFilename: String);
var
f: TStream;
begin
@ -709,7 +709,7 @@ begin
end;
end;
procedure ReadHTMLFile(var ADoc: THTMLDocument; f: TStream);
procedure ReadHTMLFile(out ADoc: THTMLDocument; f: TStream);
var
Reader: THTMLReader;
Converter: THTMLToDOMConverter;

8
packages/fcl-xml/src/sax_xml.pp
View File

@ -94,8 +94,8 @@ type
// Helper functions; these ones are XML equivalents of ReadXML[File|Fragment]
procedure ReadXMLFile(var ADoc: TXMLDocument; const AFilename: String);
procedure ReadXMLFile(var ADoc: TXMLDocument; f: TStream);
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);
procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream);
procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String);
procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream);
@ -550,7 +550,7 @@ begin
end;
procedure ReadXMLFile(var ADoc: TXMLDocument; const AFilename: String);
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);
var
f: TStream;
begin
@ -563,7 +563,7 @@ begin
end;
end;
procedure ReadXMLFile(var ADoc: TXMLDocument; f: TStream);
procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream);
var
Reader: TSAXXMLReader;
Converter: TXMLToDOMConverter;