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

* fixed windows version of libxml2 headers

Browse Source 
git-svn-id: trunk@13261 -
This commit is contained in:
ivost 2009-06-11 20:42:36 +00:00
parent f31d31049e
commit 746200eb49
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/libxml/src/xml2.pas
View File

@ -22,6 +22,7 @@ const
{$IF Defined(WINDOWS)}
xml2lib = 'libxml2.'+sharedsuffix;
{$DEFINE EXTDECL := cdecl}
{$DEFINE NO_EXTERNAL_VARS}
{$ELSEIF Defined(UNIX)}
xml2lib = 'libxml2.'+sharedsuffix;
{$DEFINE EXTDECL := cdecl}
@ -264,7 +265,7 @@ begin
Result := not assigned(ns) or (ns^.nodeNr = 0) or (ns^.nodeTab = nil);
end;
{$IFDEF WINDOWS}
{$IFDEF NO_EXTERNAL_VARS}
procedure LoadExternalVariables;
var
libHandle: THandle;
@ -311,7 +312,7 @@ end;
{$ENDIF}
initialization
{$IFDEF WINDOWS}
{$IFDEF NO_EXTERNAL_VARS}
LoadExternalVariables;
{$ENDIF}