paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +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}
//unixtype,
{$ENDIF}
dynlibs,
ctypes;
//{$IF Sizeof(cbool) <> Sizeof(cint)}
@ -32,7 +33,7 @@ const
xml2lib = 'libxml2.dll';
{$DEFINE EXTDECL := cdecl}
{$ELSEIF Defined(UNIX)}
xml2lib = 'libxml2.so';
xml2lib = 'libxml2'+sharedsuffix;
{$DEFINE EXTDECL := cdecl}
{$ELSE}
{$MESSAGE ERROR 'DYNLINK not supported'}
@ -278,7 +279,7 @@ procedure LoadExternalVariables;
var
libHandle: THandle;
begin
libHandle := LoadLibrary(libxml2lib);
libHandle := LoadLibrary(xml2lib);
if libHandle <> 0 then
begin
{ xmlregexp.inc }