From 3015c3ff86a34324576f1041ef9a381afd13f54d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 22 Aug 2001 14:11:28 +0000
Subject: [PATCH]   + HexDisplayPrefix added

---
 rtl/objpas/sysutilh.inc | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/rtl/objpas/sysutilh.inc b/rtl/objpas/sysutilh.inc
index 966bdbb045..faa3670466 100644
--- a/rtl/objpas/sysutilh.inc
+++ b/rtl/objpas/sysutilh.inc
@@ -85,13 +85,14 @@ type
    { Run-time and I/O Errors }
    EInOutError = class(Exception)
      public
-     ErrorCode : Longint;
-     end;
+       ErrorCode : Longint;
+   end;
+
    EHeapMemoryError = class(Exception)
      protected
-     AllowFree : boolean;
-     procedure FreeInstance;override;
-     end;
+       AllowFree : boolean;
+       procedure FreeInstance;override;
+   end;
 
    EInvalidPointer  = Class(EHeapMemoryError);
    EOutOfMemory     = Class(EHeapMemoryError);
@@ -126,9 +127,12 @@ Var
   {$i filerec.inc}
   {$i textrec.inc}
 
+Const
+   HexDisplayPrefix : string = '$';
+
 Type
-  TFileRec=FileRec;
-  TTextRec=TextRec;
+   TFileRec=FileRec;
+   TTextRec=TextRec;
 
   { Read internationalization settings }
   {$i sysinth.inc}
@@ -149,8 +153,11 @@ Type
 
 {
   $Log$
-  Revision 1.11  2001-08-19 21:02:02  florian
-    * fixed and added a lot of stuff to get the Jedi DX( headers
+  Revision 1.12  2001-08-22 14:11:28  florian
+    + HexDisplayPrefix added
+
+  Revision 1.11  2001/08/19 21:02:02  florian
+    * fixed and added a lot of stuff to get the Jedi DX8 headers
       compiled
 
   Revision 1.10  2001/08/12 22:11:48  peter