From 40949b9509b23ebce2ad9a52be1af3fd3c30e5fe Mon Sep 17 00:00:00 2001
From: mgaertner <mgaertner@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 15 Dec 2008 11:40:11 +0000
Subject: [PATCH] multithreadprocs: fixed windows range check

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@630 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/multithreadprocs/mtpcpu.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/multithreadprocs/mtpcpu.pas b/components/multithreadprocs/mtpcpu.pas
index 93e864e28..f1b8cf575 100644
--- a/components/multithreadprocs/mtpcpu.pas
+++ b/components/multithreadprocs/mtpcpu.pas
@@ -50,7 +50,7 @@ begin
   then begin
     Result := 0;
     for i := 0 to 31 do begin
-      Mask := 1 shl i;
+      Mask := DWord(1) shl i;
       if (ProcessAffinityMask and Mask)<>0 then
         inc(Result);
     end;