From 2486009d3746256e1852b0f75345d8e6ce80dc2a Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 7 Apr 2013 10:57:27 +0000
Subject: [PATCH] + support u64bit as well in defutil.range_to_basetype

git-svn-id: branches/i8086@24173 -
---
 compiler/defutil.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/defutil.pas b/compiler/defutil.pas
index d6fd4f0731..f46a01475d 100644
--- a/compiler/defutil.pas
+++ b/compiler/defutil.pas
@@ -392,8 +392,10 @@ implementation
          range_to_basetype:=s32bit
         else if (l>=low(cardinal)) and (h<=high(cardinal)) then
          range_to_basetype:=u32bit
+        else if (l>=low(int64)) and (h<=high(int64)) then
+         range_to_basetype:=s64bit
         else
-         range_to_basetype:=s64bit;
+         range_to_basetype:=u64bit;
       end;