anchor.diff:  procedure FreeLibbsonLibrary;
   
   type
  -  Tbson_free = procedure(mem : PAnsiChar); cdecl;
  +  Tbson_malloc = function(length : Cardinal) : Pointer; cdecl;
  +  Tbson_free = procedure(mem : Pointer); cdecl;
     Tbson_strfreev = procedure(strv : PPAnsiChar); cdecl;
   
     Tbson_new = function : bson_p; cdecl;
  
positive.code: begin
    dllHandle := dll;
  
    bson_free := LoadLibbsonFunc('bson_free');
    bson_strfreev := LoadLibbsonFunc('bson_strfreev');
    bson_new := LoadLibbsonFunc('bson_new');
  
negative.code:     binary : PPByte); cdecl;
  
  var
    bson_malloc: Tbson_malloc;
    bson_free: Tbson_free;
    bson_strfreev: Tbson_strfreev;
    bson_new: Tbson_new;
  