From abe195487f4f01227b1c44cfe722a2e49bb3ff4b Mon Sep 17 00:00:00 2001
From: carlokok <carlokok@5c9d2617-0215-0410-a2ee-e80e04d1c6d8>
Date: Fri, 18 Dec 2009 09:26:11 +0000
Subject: [PATCH] (code review 2): fix for ProcessFor (Problem with Int64)

git-svn-id: http://code.remobjects.com/svn/pascalscript@194 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
---
 Source/uPSCompiler.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/uPSCompiler.pas b/Source/uPSCompiler.pas
index 8904f2b..14179d3 100644
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@@ -9616,7 +9616,7 @@ begin
       exit;
     end;
     case lType.BaseType of
-      btVariant, btU8, btS8, btU16, btS16, btU32, btS32: ;
+      btVariant, btU8, btS8, btU16, btS16, btU32, {$IFNDEF PS_NOINT64} btS64, {$ENDIF} btS32: ;
     else
       begin
         MakeError('', ecTypeMismatch, '');