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

* Fix bug #36244

Browse Source 
git-svn-id: trunk@43360 -
This commit is contained in:
michael 2019-11-02 13:07:34 +00:00
parent ccb169b0f1
commit 00e358f15a
1 changed files with 57 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,6 +34,58 @@ const
implementation implementation
{$IFDEF NO_EXTERNAL_VARS}
function GetxmlMalloc: xmlMallocFunc; inline;
begin
Result := varxmlMalloc^;
end;
procedure SetxmlMalloc(AValue: xmlMallocFunc); inline;
begin
varxmlMalloc^ := AValue;
end;
function GetxmlMallocAtomic: xmlMallocFunc; inline;
begin
Result := varxmlMallocAtomic^;
end;
procedure SetxmlMallocAtomic(AValue: xmlMallocFunc); inline;
begin
varxmlMallocAtomic^ := AValue;
end;
function GetxmlRealloc: xmlReallocFunc; inline;
begin
Result := varxmlRealloc^;
end;
procedure SetxmlRealloc(AValue: xmlReallocFunc); inline;
begin
varxmlRealloc^ := AValue;
end;
function GetxmlFree: xmlFreeFunc; inline;
begin
Result := varxmlFree^;
end;
procedure SetxmlFree(AValue: xmlFreeFunc); inline;
begin
varxmlFree^ := AValue;
end;
function GetxmlMemStrdup: xmlStrdupFunc; inline;
begin
Result := varxmlMemStrdup^;
end;
procedure SetxmlMemStrdup(AValue: xmlStrdupFunc); inline;
begin
varxmlMemStrdup^ := AValue;
end;
{$ENDIF}
procedure fpcxmlFree(mem: pointer); EXTDECL; procedure fpcxmlFree(mem: pointer); EXTDECL;
begin begin
FreeMem(mem); FreeMem(mem);
@ -282,11 +334,11 @@ begin
__xmlIsPubidChar_tab := GetProcAddress(libHandle, 'xmlIsPubidChar_tab'); __xmlIsPubidChar_tab := GetProcAddress(libHandle, 'xmlIsPubidChar_tab');
{ globals.inc } { globals.inc }
xmlMalloc := xmlMallocFunc(GetProcAddress(libHandle, 'xmlMalloc')); varxmlMalloc := PxmlMallocFunc(GetProcAddress(libHandle, 'xmlMalloc'));
xmlMallocAtomic := xmlMallocFunc(GetProcAddress(libHandle, 'xmlMallocAtomic')); varxmlMallocAtomic := PxmlMallocFunc(GetProcAddress(libHandle, 'xmlMallocAtomic'));
xmlRealloc := xmlReallocFunc(GetProcAddress(libHandle, 'xmlRealloc')); varxmlRealloc := PxmlReallocFunc(GetProcAddress(libHandle, 'xmlRealloc'));
xmlFree := xmlFreeFunc(GetProcAddress(libHandle, 'xmlFree')); varxmlFree := PxmlFreeFunc(GetProcAddress(libHandle, 'xmlFree'));
xmlMemStrdup := xmlStrdupFunc(GetProcAddress(libHandle, 'xmlMemStrdup')); varxmlMemStrdup := PxmlStrdupFunc(GetProcAddress(libHandle, 'xmlMemStrdup'));
{ xpath.inc } { xpath.inc }
{__xmlXPathNAN := PDouble(GetProcAddress(libHandle, 'xmlXPathNAN')); {__xmlXPathNAN := PDouble(GetProcAddress(libHandle, 'xmlXPathNAN'));