(code review 2): fix for ProcessFor (Problem with Int64)

git-svn-id: http://code.remobjects.com/svn/pascalscript@194 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
2009-12-18 09:26:11 +00:00 · 2009-12-18 09:26:11 +00:00 · abe195487f
commit abe195487f
parent 997b869e43
1 changed files with 1 additions and 1 deletions
--- 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, '');