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

* fixed test for 64 bit platforms

Browse Source 
git-svn-id: trunk@10454 -
This commit is contained in:
Jonas Maebe 2008-03-07 09:15:03 +00:00
parent 914a8ec4b4
commit 1885e247b4
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/tw10931.pp
View File

@ -5,7 +5,11 @@ var
q: qword;
begin
a := not(ptruint(7));
{$ifdef cpu64}
if a<>ptruint($fffffffffffffff8) then
{$else}
if a<>$fffffff8 then
{$endif}
halt(1);
q := not(qword(7));
if q<>qword($fffffffffffffff8) then