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

* fix compile error

Browse Source 
git-svn-id: trunk@6597 -
This commit is contained in:
peter 2007-02-22 06:57:50 +00:00
parent bfcfcdad8a
commit fcc873b202
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/tbs/tb0162.pp
View File

@ -75,20 +75,6 @@ begin
doerror(8); doerror(8);
end; end;
// The calculation will be done in int64 and
// give a rangecheck instead of a overflow
c := 0;
try
c := c-1;
doerror(9);
except
on erangecheck do
;
else
doerror(10);
end;
c := high(cardinal); c := high(cardinal);
try try
c := c+1; c := c+1;
@ -125,7 +111,6 @@ begin
{$endif CPU64} {$endif CPU64}
{$ifdef fpc} {$ifdef fpc}
{$ifndef ver1_0}
n := high(int64); n := high(int64);
try try
@ -226,7 +211,6 @@ begin
doerror(32); doerror(32);
end; end;
{$endif ver1_0}
{$endif fpc} {$endif fpc}
End. End.