From 6065bee1c21e314919bee2c7d35ff6399bcbfd8c Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 22 Jul 2007 08:32:49 +0000
Subject: [PATCH]   * qword(-int64) can cause an overflow error in case of
 low(int64). Harmless, so     disable overflow checking around it.

git-svn-id: trunk@8124 -
---
 compiler/constexp.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/constexp.pas b/compiler/constexp.pas
index 492d134390..3188e59880 100644
--- a/compiler/constexp.pas
+++ b/compiler/constexp.pas
@@ -342,12 +342,16 @@ begin
   result.overflow:=false;
   sa:=a.signed and (a.svalue<0);
   if sa then
+    {$Q-}
     aa:=qword(-a.svalue)
+    {$ifdef ena_q}{$Q+}{$endif}
   else
     aa:=a.uvalue;
   sb:=b.signed and (b.svalue<0);
   if sb then
+    {$Q-}
     bb:=qword(-b.svalue)
+    {$ifdef ena_q}{$Q+}{$endif}
   else
     bb:=b.uvalue;