Port to new ULibc unit, drop dependency to compiler Libc libraryv0.6.43

(preparation for PPC port)

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;