From c9c758e31887499e7868531934401169264fe685 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 12 Oct 1999 19:16:27 +0000
Subject: [PATCH]   * bug #645 fixed: format('%x',...) should writes unsigned
 hexadecimals, also     prec fixed: max. value in delphi is 15 (and not 32)

---
 rtl/objpas/sysstr.inc | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/rtl/objpas/sysstr.inc b/rtl/objpas/sysstr.inc
index 24ac171e31..aabd20985a 100644
--- a/rtl/objpas/sysstr.inc
+++ b/rtl/objpas/sysstr.inc
@@ -811,14 +811,14 @@ begin
               end;
         'X' : begin
               Checkarg(vtinteger,true);
-              If Prec>32 then
-                ToAdd:=HexStr(Args[Doarg].VInteger,32)
+              If Prec>15 then
+                ToAdd:=HexStr(Args[Doarg].VInteger,15)
               else
                 begin
                 // determine minimum needed number of hex digits.
                 Index:=1;
-                While ((1 shl (Index*4))<Args[DoArg].VInteger) and (index<8) do
-                    inc(Index);
+                While (DWord(1 shl (Index*4))<DWord(Args[DoArg].VInteger)) and (index<8) do
+                 inc(Index);
                 If Index>Prec then
                   Prec:=Index;
                 ToAdd:=HexStr(Args[DoArg].VInteger,Prec);
@@ -1137,7 +1137,11 @@ const
 
 {
   $Log$
-  Revision 1.27  1999-10-03 19:42:40  peter
+  Revision 1.28  1999-10-12 19:16:27  florian
+    * bug 645 fixed: format('%x',...) should writes unsigned hexadecimals, also
+      prec fixed: max. value in delphi is 15 (and not 32)
+
+  Revision 1.27  1999/10/03 19:42:40  peter
     * fixed comparetext
 
   Revision 1.26  1999/09/04 20:48:34  florian