pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

multithreadprocs: fixed windows range check

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@630 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2008-12-15 11:40:11 +00:00
parent 73a72ee52c
commit 40949b9509
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/multithreadprocs/mtpcpu.pas
View File

@ -50,7 +50,7 @@ begin
then begin then begin
Result := 0; Result := 0;
for i := 0 to 31 do begin for i := 0 to 31 do begin
Mask := 1 shl i; Mask := DWord(1) shl i;
if (ProcessAffinityMask and Mask)<>0 then if (ProcessAffinityMask and Mask)<>0 then
inc(Result); inc(Result);
end; end;