|
@@ -1133,7 +1133,7 @@ procedure TCompileForm.OpenFile(AMemo: TCompScintFileEdit; AFilename: String;
|
|
Result := seAuto;
|
|
Result := seAuto;
|
|
var StreamSize := Stream.Size;
|
|
var StreamSize := Stream.Size;
|
|
var CappedSize: Integer;
|
|
var CappedSize: Integer;
|
|
- if Stream.Size > High(Integer) then
|
|
|
|
|
|
+ if StreamSize > High(Integer) then
|
|
CappedSize := High(Integer)
|
|
CappedSize := High(Integer)
|
|
else
|
|
else
|
|
CappedSize := Integer(StreamSize);
|
|
CappedSize := Integer(StreamSize);
|