paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 06:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid random values and range/overflow checks

Browse Source 
git-svn-id: trunk@20600 -
This commit is contained in:
pierre 2012-03-23 15:15:21 +00:00
parent bcf9a2deb3
commit 5b10c0c403
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/tint641.pp
View File

@ -1,3 +1,7 @@
{$R-}
{$Q-}
const const
q2 : qword = 1234; q2 : qword = 1234;
i2 : int64 = -1234; i2 : int64 = -1234;
@ -16,11 +20,13 @@ procedure p1(q : qword;i : int64);
function f1 : qword; function f1 : qword;
begin begin
f1:=1;
end; end;
function f2 : int64; function f2 : int64;
begin begin
f2:=-1;
end; end;
var var