From e3812e3683f3e7a8a2b8aa07a83090fce367c726 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 22 Nov 2004 05:53:44 +0000
Subject: [PATCH]  * fixed little 1.0.xism

---
 rtl/objpas/sysutils/sysstr.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 626a838664..be587c793c 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -1088,7 +1088,11 @@ begin
 		{$endif}
                 If Index>Prec then
                   Prec:=Index;
+		{$ifdef ver1_0}
+                ToAdd:=HexStr(int64(vl),Prec);
+		{$else}
                 ToAdd:=HexStr(qword(vl),Prec);
+		{$endif}
                 end;
               end;
         '%': ToAdd:='%';
@@ -2230,7 +2234,10 @@ const
 
 {
   $Log$
-  Revision 1.19  2004-11-21 19:33:20  marco
+  Revision 1.20  2004-11-22 05:53:44  marco
+   * fixed little 1.0.xism
+
+  Revision 1.19  2004/11/21 19:33:20  marco
    * %x 64-bit support
 
   Revision 1.18  2004/11/21 16:44:01  marco