paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 14:51:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove unused zmemcmp

Browse Source 
git-svn-id: trunk@1847 -
This commit is contained in:
daniel 2005-11-29 23:32:51 +00:00
parent 63ea645207
commit b66f95bdfd
1 changed files with 0 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/base/paszlib/zutil.pas
View File

@ -34,7 +34,6 @@ type
zushfArray = array[0..(MaxMemBlock div SizeOf(word))-1] of word;
pushfArray = ^zushfArray;
function zmemcmp(s1p, s2p : Pbyte; len : cardinal) : integer;
procedure zcfree(opaque : pointer; ptr : pointer);
function zcalloc (opaque : pointer; items : cardinal; size : cardinal) : pointer;
@ -46,27 +45,6 @@ type
end;
function zmemcmp(s1p, s2p : Pbyte; len : cardinal) : integer;
var
j : cardinal;
source,
dest : Pbyte;
begin
source := s1p;
dest := s2p;
for j := 0 to pred(len) do
begin
if (source^ <> dest^) then
begin
zmemcmp := 2*ord(source^ > dest^)-1;
exit;
end;
Inc(source);
Inc(dest);
end;
zmemcmp := 0;
end;
procedure zcfree(opaque : pointer; ptr : pointer);
var