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