Browse Source

rtl: HexStr nativeint

mattias 7 years ago
parent
commit
f6cee08d5d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl/system.pas

+ 1 - 1
packages/rtl/system.pas

@@ -256,7 +256,7 @@ function Pos(const Search, InString: String): Integer; assembler; overload;
 function Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;
 function Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;
 procedure Insert(const Insertion: String; var Target: String; Index: Integer); overload;
 procedure Insert(const Insertion: String; var Target: String; Index: Integer); overload;
 function upcase(c : char) : char; assembler;
 function upcase(c : char) : char; assembler;
-function HexStr(Val: int64; cnt: byte): string; external name 'rtl.hexStr'; overload;
+function HexStr(Val: NativeInt; cnt: byte): string; external name 'rtl.hexStr'; overload;
 
 
 procedure val(const S: String; out NI : NativeInt; out Code: Integer); overload;
 procedure val(const S: String; out NI : NativeInt; out Code: Integer); overload;
 procedure val(const S: String; out SI : ShortInt; out Code: Integer); overload;
 procedure val(const S: String; out SI : ShortInt; out Code: Integer); overload;