From fe6b662c376c01b62dee0a863711159f7fd24dcb Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 18 Dec 2016 13:57:09 +0000
Subject: [PATCH]   * fixed range error

git-svn-id: trunk@35151 -
---
 compiler/ncgrtti.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncgrtti.pas b/compiler/ncgrtti.pas
index d4ea20ffa2..533376dade 100644
--- a/compiler/ncgrtti.pas
+++ b/compiler/ncgrtti.pas
@@ -649,7 +649,7 @@ implementation
               otUQWord:
                 begin
                   tcb.emit_ord_const(def.low.uvalue,u64inttype);
-                  tcb.emit_ord_const(def.high.uvalue,u64inttype);
+                  tcb.emit_ord_const(int64(def.high.uvalue),u64inttype);
                 end;
               otSQWord:
                 begin