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

* fixed compilation on x86_64

Browse Source 
git-svn-id: trunk@11858 -
This commit is contained in:
Vincent Snijders 2008-10-03 08:40:37 +00:00
parent 61f26d5a96
commit 1c98cda100
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/bench/shootout/src/meteorshower.pp
View File

@ -6,7 +6,7 @@ program meteorshower;
mostly based on Ben St. John's implementation.} mostly based on Ben St. John's implementation.}
{$Q-} {$Q-}{$PACKSET 4}
uses dos; uses dos;
@ -705,7 +705,7 @@ begin
isOdd:=parity(row and 1); isOdd:=parity(row and 1);
if not(cardinal(last_row) in alwaysBad[parity(row and 1)]) then if not(cardinal(last_row) in alwaysBad[parity(row and 1)]) then
if boardVec*bitvec(cardinal(TOP_ROW) shl N_COL*3)=[] then if boardVec*bitvec(cardinal(cardinal(TOP_ROW) shl N_COL*3))=[] then
begin begin
isClosed:=fixed(row>6); {because we track 3 rows} isClosed:=fixed(row>6); {because we track 3 rows}
if not(cardinal(last_row) in is_known[isClosed,isOdd]) then if not(cardinal(last_row) in is_known[isClosed,isOdd]) then