From d6116bc7518ca7ee9532d1405d421b17076be62b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 3 Mar 2001 12:38:08 +0000
Subject: [PATCH]   * fixed low() for signed types < 64bit

---
 compiler/ninl.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index 60dea265d2..27cef20f9e 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -138,7 +138,8 @@ implementation
                       { because it's bigger than high(tconstexprint) (JM) }
                       v := 0
                     else
-                      v := cardinal(v);
+                      if not is_signed(adef) then
+                        v := cardinal(v);
                   hp:=genordinalconstnode(v,adef);
                   firstpass(hp);
                   { fix high(qword) }
@@ -1535,7 +1536,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.28  2001-02-26 19:44:53  peter
+  Revision 1.29  2001-03-03 12:38:08  jonas
+    * fixed low() for signed types < 64bit
+
+  Revision 1.28  2001/02/26 19:44:53  peter
     * merged generic m68k updates from fixes branch
 
   Revision 1.27  2001/02/22 11:24:40  jonas