Changeset 30 for trunk

Timestamp:

Apr 9, 2016, 7:49:58 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Wrong drive size detection for larger drives (Int64 overflow).

File:

• trunk/UPhysDrive.pas (modified) (2 diffs)

trunk/UPhysDrive.pas

@@ -72 +72 @@
 procedure TDriveInfo.SetSize(AValue: Int64);
 begin
-  if FSize=AValue then Exit;
-  FSize:=AValue;
+  if FSize = AValue then Exit;
+  FSize := AValue;
 end;
 
@@ -145 +145 @@
       NewDriveInfo.Model := Trim(LoadFileToStr(List[I] + '/device/model'));
       NewDriveInfo.SectorSize := StrToInt(Trim(LoadFileToStr(List[I] + '/queue/physical_block_size')));
-      NewDriveInfo.Size := StrToInt(Trim(LoadFileToStr(List[I] + '/size'))) * 512;
+      NewDriveInfo.Size := StrToInt64(Trim(LoadFileToStr(List[I] + '/size'))) * 512;
       NewDriveInfo.Path := '/dev/' + ExtractFileName(List[I]);
       Add(NewDriveInfo);