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

* fixed test for 64 bit platforms

Browse Source 
git-svn-id: trunk@11591 -
This commit is contained in:
Jonas Maebe 2008-08-16 14:37:19 +00:00
parent e295053448
commit 6d9bf8081a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw4152.pp
View File

@ -6,7 +6,11 @@ var
p:^Byte; p:^Byte;
c:Byte; c:Byte;
d:Integer; d:Integer;
{$ifdef cpu64}
v : qword;
{$else}
v : cardinal; v : cardinal;
{$endif}
begin begin
v:=100; v:=100;
inc(v,-1); inc(v,-1);