paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 17:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converted tabs to spaces in toverflow.inc for consistency

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2021-11-18 13:28:12 +00:00 committed by FPK
parent da0260262d
commit 55d5b11deb
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
tests/test/cg/toverflow.inc
View File

@ -14,7 +14,7 @@ uses
var
Output: LongWord;
begin
Result := False;
Result := False;
if Subtract then
Write('Testing 32-bit subtraction of 128 from ', Initial, '... ')
else
@ -26,29 +26,29 @@ uses
else
Output := Initial + $80;
Write('no exception... ');
Write('no exception... ');
if OverflowExpected then
if OverflowExpected then
begin
WriteLn('FAIL: Overflow not triggered then it should have');
Exit(True);
end
else if Subtract then
begin
else if Subtract then
begin
if Output + $80 <> Initial then
begin
WriteLn('FAIL: Result of ', Output, ' was incorrect');
Exit(True);
end;
end
else
begin
end
else
begin
if Output - $80 <> Initial then
begin
WriteLn('FAIL: Result of ', Output, ' was incorrect');
Exit(True);
end;
end
end
except
on E: ERangeError do
@ -57,8 +57,8 @@ uses
WriteLn('FAIL: Range error triggered when it shouldn''t have');
Exit(True);
end
else
Write('ERangeError triggered... ');
else
Write('ERangeError triggered... ');
on E: EIntOverflow do
if not OverflowExpected then
@ -66,8 +66,8 @@ uses
WriteLn('FAIL: Overflow triggered when it shouldn''t have');
Exit(True);
end
else
Write('EIntOverflow triggered... ');
else
Write('EIntOverflow triggered... ');
on E: Exception do
begin
@ -83,7 +83,7 @@ uses
var
Output: QWord;
begin
Result := False;
Result := False;
if Subtract then
Write('Testing 64-bit subtraction of 128 from ', Initial, '... ')
else
@ -94,30 +94,30 @@ uses
Output := Initial - $80
else
Output := Initial + $80;
Write('no exception... ');
Write('no exception... ');
if OverflowExpected then
begin
WriteLn('FAIL: Overflow not triggered then it should have');
Exit(True);
end
else if Subtract then
begin
else if Subtract then
begin
if Output + $80 <> Initial then
begin
WriteLn('FAIL: Result of ', Output, ' was incorrect');
Exit(True);
end;
end
else
begin
end
else
begin
if Output - $80 <> Initial then
begin
WriteLn('FAIL: Result of ', Output, ' was incorrect');
Exit(True);
end;
end
end
except
on E: ERangeError do
@ -126,8 +126,8 @@ uses
WriteLn('FAIL: Range error triggered when it shouldn''t have');
Exit(True);
end
else
Write('ERangeError triggered... ');
else
Write('ERangeError triggered... ');
on E: EIntOverflow do
if not OverflowExpected then
@ -135,8 +135,8 @@ uses
WriteLn('FAIL: Overflow triggered when it shouldn''t have');
Exit(True);
end
else
Write('EIntOverflow triggered... ');
else
Write('EIntOverflow triggered... ');
on E: Exception do
begin