paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 03:28:40 +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
q2 : qword = 1234;
i2 : int64 = -1234;
@ -16,11 +20,13 @@ procedure p1(q : qword;i : int64);
function f1 : qword;
begin
f1:=1;
end;
function f2 : int64;
begin
f2:=-1;
end;
var