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

* fix for libxml2xml

Browse Source 
git-svn-id: trunk@12689 -
This commit is contained in:
marco 2009-02-05 21:38:17 +00:00
parent 3f7f4a9ddf
commit 57e65411ad
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

@ -21,6 +21,7 @@ uses
{$IFDEF UNIX} {$IFDEF UNIX}
//unixtype, //unixtype,
{$ENDIF} {$ENDIF}
dynlibs,
ctypes; ctypes;
//{$IF Sizeof(cbool) <> Sizeof(cint)} //{$IF Sizeof(cbool) <> Sizeof(cint)}
@ -32,7 +33,7 @@ const
xml2lib = 'libxml2.dll'; xml2lib = 'libxml2.dll';
{$DEFINE EXTDECL := cdecl} {$DEFINE EXTDECL := cdecl}
{$ELSEIF Defined(UNIX)} {$ELSEIF Defined(UNIX)}
xml2lib = 'libxml2.so'; xml2lib = 'libxml2'+sharedsuffix;
{$DEFINE EXTDECL := cdecl} {$DEFINE EXTDECL := cdecl}
{$ELSE} {$ELSE}
{$MESSAGE ERROR 'DYNLINK not supported'} {$MESSAGE ERROR 'DYNLINK not supported'}
@ -278,7 +279,7 @@ procedure LoadExternalVariables;
var var
libHandle: THandle; libHandle: THandle;
begin begin
libHandle := LoadLibrary(libxml2lib); libHandle := LoadLibrary(xml2lib);
if libHandle <> 0 then if libHandle <> 0 then
begin begin
{ xmlregexp.inc } { xmlregexp.inc }