anchor.diff:      binary : PPByte); cdecl;
   
   var
  +  bson_malloc: Tbson_malloc;
     bson_free: Tbson_free;
     bson_strfreev: Tbson_strfreev;
     bson_new: Tbson_new;
  
positive.code: begin
    dllHandle := dll;
  
    bson_free := LoadLibbsonFunc('bson_free');
    bson_strfreev := LoadLibbsonFunc('bson_strfreev');
    bson_new := LoadLibbsonFunc('bson_new');
  
negative.code: procedure FreeLibbsonLibrary;
  
  type
    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;
  