paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix for FCL-XML new ChildNodes policy

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@834 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-06-09 22:48:50 +00:00
parent f3259be492
commit c1f2dda660
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/wst_fpc_xml.pas
View File

@ -80,7 +80,9 @@ end;
procedure ReleaseDomNode(ADomNode : TDOMNodeList);overload;
begin
{$IFNDEF TDOMNodeList_RELEASE_NOT_FREE}
ADomNode.Free();
{$ENDIF}
end;
procedure ReleaseDomNode(ADomNode : TDOMNamedNodeMap);overload;

5
wst/trunk/wst_global.inc
View File

@ -16,10 +16,13 @@
{$IF Defined(FPC_RELEASE) }
{$IF Defined(FPC_VERSION) and (FPC_RELEASE > 0) }
{$define FPC_211}
{$IF Defined(FPC_VERSION) and (FPC_RELEASE > 2) }
{$IF Defined(FPC_RELEASE) and (FPC_RELEASE > 2) }
{$DEFINE WST_TKPROCVAR}
{$DEFINE WST_UNICODESTRING}
{$IFEND}
{$IF Defined(FPC_RELEASE) and ( (FPC_RELEASE > 2) or ( ( FPC_RELEASE = 2 ) and ( FPC_PATCH > 4 ) ) ) }
{$DEFINE TDOMNodeList_RELEASE_NOT_FREE}
{$IFEND}
{$IFEND}
{$IFEND}
{$IFEND}