Browse Source

Fixed free_fun function signature in zlib

fix! 2d00cab5
Sergey Larin 4 years ago
parent
commit
00efaece74
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/zlib/src/zlib.pp

+ 1 - 1
packages/zlib/src/zlib.pp

@@ -87,7 +87,7 @@ type
   alloc_func = function(opaque: pointer; items: uInt; size: uInt): pointer; cdecl;
   alloc_func = function(opaque: pointer; items: uInt; size: uInt): pointer; cdecl;
   TAllocfunc = alloc_func;
   TAllocfunc = alloc_func;
 
 
-  free_func = procedure(opaque: pointer; items: uInt; size: uInt); cdecl;
+  free_func = procedure(opaque: pointer; address: pointer); cdecl;
   TFreeFunc = free_func;
   TFreeFunc = free_func;
 
 
   internal_statep = ^internal_state;
   internal_statep = ^internal_state;