diff options
Diffstat (limited to 'UChecksumDruid.pas')
| -rw-r--r-- | UChecksumDruid.pas | 18 |
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; |
