summaryrefslogtreecommitdiff
path: root/UChecksumDruid.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UChecksumDruid.pas')
-rw-r--r--UChecksumDruid.pas18
1 files changed, 9 insertions, 9 deletions
diff --git a/UChecksumDruid.pas b/UChecksumDruid.pas
index 188bac0..18e4243 100644
--- a/UChecksumDruid.pas
+++ b/UChecksumDruid.pas
@@ -76,7 +76,7 @@ var
implementation
-uses ULocale, UCoreUtils, Libc, UCore, DateUtils, UConfig, StrUtils;
+uses ULocale, UCoreUtils, ULibc, UCore, DateUtils, UConfig, StrUtils;
procedure TFChecksumDruid.FormCreate(Sender: TObject);
@@ -488,8 +488,8 @@ begin
HashString := '';
Result := False;
try
- Buffer := Libc.malloc(ChksumBlockSize);
- Libc.memset(Buffer, 0, ChksumBlockSize);
+ Buffer := malloc(ChksumBlockSize);
+ memset(Buffer, 0, ChksumBlockSize);
except
ErrorLabel.Caption := ErrorLabel.Caption + LANGAnErrorOccuredWhileInitializingMemoryBlock + #10;
Exit;
@@ -518,7 +518,7 @@ begin
CheckStop;
until (Count < ChksumBlockSize) or Stop;
Engine.CloseFile(FD);
- Libc.free(Buffer);
+ libc_free(Buffer);
if IsItSFV then HashString := IntToHex(not CRC, 8) else
begin
@@ -542,8 +542,8 @@ begin
Exit;
end;
try
- Buffer := Libc.malloc(ChksumBlockSize);
- Libc.memset(Buffer, 0, ChksumBlockSize);
+ Buffer := malloc(ChksumBlockSize);
+ memset(Buffer, 0, ChksumBlockSize);
except
ErrorLabel.Caption := ErrorLabel.Caption + LANGAnErrorOccuredWhileInitializingMemoryBlock + #10;
Exit;
@@ -576,7 +576,7 @@ begin
end;
BufferPos := -1;
Engine.CloseFile(FileDes);
- Libc.free(Buffer);
+ libc_free(Buffer);
end;
end;
@@ -591,8 +591,8 @@ begin
Exit;
end;
try
- Buffer := Libc.malloc(ChksumBlockSize);
- Libc.memset(Buffer, 0, ChksumBlockSize);
+ Buffer := malloc(ChksumBlockSize);
+ memset(Buffer, 0, ChksumBlockSize);
except
ErrorLabel.Caption := ErrorLabel.Caption + LANGAnErrorOccuredWhileInitializingMemoryBlock + #10;
Exit;