+ added HexStr() overload for huge pointers

git-svn-id: trunk@28180 -

rtl/i8086/i8086.inc

@@ -565,6 +565,11 @@ begin
   HexStr:=HexStr(TFarPointerRec(Val).Segment,4)+':'+HexStr(TFarPointerRec(Val).Offset,4);
 end;
 
+function HexStr(Val: HugePointer): ShortString;{$ifdef SYSTEMINLINE}inline;{$endif}
+begin
+  HexStr:=HexStr(FarPointer(Val));
+end;
+
 
 {****************************************************************************
                                   FPU

rtl/inc/systemh.inc

@@ -1090,6 +1090,7 @@ Function  binStr(Val:qword;cnt:byte):shortstring;
 {$ifdef CPUI8086}
 Function  hexStr(Val:NearPointer):shortstring;
 Function  hexStr(Val:FarPointer):shortstring;
+Function  hexStr(Val:HugePointer):shortstring;{$ifdef SYSTEMINLINE}inline;{$endif}
 {$else CPUI8086}
 Function  hexStr(Val:Pointer):shortstring;
 {$endif CPUI8086}