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

* cast only the longint

Browse Source 
git-svn-id: trunk@45325 -
This commit is contained in:
florian 2020-05-10 12:52:17 +00:00
parent b48c8d8596
commit 7a6bd84bc0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw36587.pp
View File

@ -30,7 +30,7 @@ begin
{$ifdef CPUINT64} {$ifdef CPUINT64}
if i64 <> P*T2 then if i64 <> P*T2 then
{$else CPUINT64} {$else CPUINT64}
if i64 <> Longint(P*T2) then if i64 <> P*Longint(T2) then
{$endif CPUINT64} {$endif CPUINT64}
Halt(3); Halt(3);
end; end;