paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 02:09:43 +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

4
tests/webtbs/tw4152.pp
View File

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