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

* Merging revisions r43360 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43360 | michael | 2019-11-02 14:07:34 +0100 (Sat, 02 Nov 2019) | 1 line
    
    * Fix bug #36244
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43736 -
This commit is contained in:
michael 2019-12-23 13:34:04 +00:00
parent 0e58449360
commit 13a835b99f
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
{$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;
begin
FreeMem(mem);
@ -282,11 +334,11 @@ begin
__xmlIsPubidChar_tab := GetProcAddress(libHandle, 'xmlIsPubidChar_tab');
{ globals.inc }
xmlMalloc := xmlMallocFunc(GetProcAddress(libHandle, 'xmlMalloc'));
xmlMallocAtomic := xmlMallocFunc(GetProcAddress(libHandle, 'xmlMallocAtomic'));
xmlRealloc := xmlReallocFunc(GetProcAddress(libHandle, 'xmlRealloc'));
xmlFree := xmlFreeFunc(GetProcAddress(libHandle, 'xmlFree'));
xmlMemStrdup := xmlStrdupFunc(GetProcAddress(libHandle, 'xmlMemStrdup'));
varxmlMalloc := PxmlMallocFunc(GetProcAddress(libHandle, 'xmlMalloc'));
varxmlMallocAtomic := PxmlMallocFunc(GetProcAddress(libHandle, 'xmlMallocAtomic'));
varxmlRealloc := PxmlReallocFunc(GetProcAddress(libHandle, 'xmlRealloc'));
varxmlFree := PxmlFreeFunc(GetProcAddress(libHandle, 'xmlFree'));
varxmlMemStrdup := PxmlStrdupFunc(GetProcAddress(libHandle, 'xmlMemStrdup'));
{ xpath.inc }
{__xmlXPathNAN := PDouble(GetProcAddress(libHandle, 'xmlXPathNAN'));