From 4bf1ccf6cc0e74c66771ce6e3d247678b2858a2e Mon Sep 17 00:00:00 2001 From: inoussa Date: Fri, 6 Jun 2008 14:47:04 +0000 Subject: [PATCH] Mark helper routines as INLINE if supported. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@463 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- wst/trunk/wst_delphi_xml.pas | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/wst/trunk/wst_delphi_xml.pas b/wst/trunk/wst_delphi_xml.pas index 3bfccbd0c..0435557d4 100644 --- a/wst/trunk/wst_delphi_xml.pas +++ b/wst/trunk/wst_delphi_xml.pas @@ -18,21 +18,21 @@ type function FindNode(ANode : TDOMNode; const ANodeName : string):TDOMNode; function GetNodeItemsCount(const ANode : TDOMNode): Integer; - function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;overload; - function GetNodeListCount(ANodeList : TDOMNamedNodeMap) : Integer ;overload; - procedure ReleaseDomNode(ADomNode : IInterface);overload; - procedure ReleaseDomNode(var ADomNode : TXMLDocument);overload; + function GetNodeListCount(ANodeList : TDOMNodeList) : Integer ;overload;{$IFDEF USE_INLINE}inline;{$ENDIF} + function GetNodeListCount(ANodeList : TDOMNamedNodeMap) : Integer ;overload;{$IFDEF USE_INLINE}inline;{$ENDIF} + procedure ReleaseDomNode(ADomNode : IInterface);overload;{$IFDEF USE_INLINE}inline;{$ENDIF} + procedure ReleaseDomNode(var ADomNode : TXMLDocument);overload;{$IFDEF USE_INLINE}inline;{$ENDIF} function CreateDoc() : TXMLDocument ; - procedure WriteXML(Element: TDOMNode; const AFileName: String);overload; - procedure WriteXML(Element: TDOMNode; AStream: TStream); overload; + procedure WriteXML(Element: TDOMNode; const AFileName: String);overload;{$IFDEF USE_INLINE}inline;{$ENDIF} + procedure WriteXML(Element: TDOMNode; AStream: TStream); overload;{$IFDEF USE_INLINE}inline;{$ENDIF} procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String); overload; - procedure WriteXMLFile(ADoc : TXMLDocument; AStream : TStream);overload; - procedure ReadXMLFile(out ADoc : TXMLDocument; AStream : TStream);overload; + procedure WriteXMLFile(ADoc : TXMLDocument; AStream : TStream);overload;{$IFDEF USE_INLINE}inline;{$ENDIF} + procedure ReadXMLFile(out ADoc : TXMLDocument; AStream : TStream);overload;{$IFDEF USE_INLINE}inline;{$ENDIF} procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);overload; function NodeToBuffer(ANode : TDOMNode):string ; - function FilterList(const ALIst : IDOMNodeList; const ANodeName : widestring):IDOMNodeList ; + function FilterList(const ALIst : IDOMNodeList; const ANodeName : widestring):IDOMNodeList ;{$IFDEF USE_INLINE}inline;{$ENDIF} implementation uses XmlDoc;