paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed the shortstring index variables that were previously longint and were later changed to sizeint (in r26917) to ObjpasInt after r27142

Browse Source 
git-svn-id: trunk@27185 -
This commit is contained in:
nickysn 2014-03-19 15:35:21 +00:00
parent fcfed19c84
commit 4c8e947f0c
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/sstrings.inc
View File

@ -205,7 +205,7 @@ const
function upcase(c : char) : char; function upcase(c : char) : char;
{$IFDEF IBM_CHAR_SET} {$IFDEF IBM_CHAR_SET}
var var
i : sizeint; i : ObjpasInt;
{$ENDIF} {$ENDIF}
begin begin
if (c in ['a'..'z']) then if (c in ['a'..'z']) then
@ -230,7 +230,7 @@ end;
{$define FPC_UPCASE_SHORTSTR} {$define FPC_UPCASE_SHORTSTR}
function upcase(const s : shortstring) : shortstring; function upcase(const s : shortstring) : shortstring;
var var
i : sizeint; i : ObjpasInt;
begin begin
upcase[0]:=s[0]; upcase[0]:=s[0];
for i := 1 to length (s) do for i := 1 to length (s) do
@ -244,7 +244,7 @@ end;
function lowercase(c : char) : char;overload; function lowercase(c : char) : char;overload;
{$IFDEF IBM_CHAR_SET} {$IFDEF IBM_CHAR_SET}
var var
i : sizeint; i : ObjpasInt;
{$ENDIF} {$ENDIF}
begin begin
if (c in ['A'..'Z']) then if (c in ['A'..'Z']) then
@ -269,7 +269,7 @@ end;
{$define FPC_LOWERCASE_SHORTSTR} {$define FPC_LOWERCASE_SHORTSTR}
function lowercase(const s : shortstring) : shortstring; overload; function lowercase(const s : shortstring) : shortstring; overload;
var var
i : sizeint; i : ObjpasInt;
begin begin
lowercase [0]:=s[0]; lowercase [0]:=s[0];
for i:=1 to length(s) do for i:=1 to length(s) do
@ -282,7 +282,7 @@ const
function hexstr(val : longint;cnt : byte) : shortstring; function hexstr(val : longint;cnt : byte) : shortstring;
var var
i : sizeint; i : ObjpasInt;
begin begin
hexstr[0]:=char(cnt); hexstr[0]:=char(cnt);
for i:=cnt downto 1 do for i:=cnt downto 1 do
@ -294,7 +294,7 @@ end;
function octstr(val : longint;cnt : byte) : shortstring; function octstr(val : longint;cnt : byte) : shortstring;
var var
i : sizeint; i : ObjpasInt;
begin begin
octstr[0]:=char(cnt); octstr[0]:=char(cnt);
for i:=cnt downto 1 do for i:=cnt downto 1 do
@ -307,7 +307,7 @@ end;
function binstr(val : longint;cnt : byte) : shortstring; function binstr(val : longint;cnt : byte) : shortstring;
var var
i : sizeint; i : ObjpasInt;
begin begin
binstr[0]:=char(cnt); binstr[0]:=char(cnt);
for i:=cnt downto 1 do for i:=cnt downto 1 do
@ -320,7 +320,7 @@ end;
function hexstr(val : int64;cnt : byte) : shortstring; function hexstr(val : int64;cnt : byte) : shortstring;
var var
i : sizeint; i : ObjpasInt;
begin begin
hexstr[0]:=char(cnt); hexstr[0]:=char(cnt);
for i:=cnt downto 1 do for i:=cnt downto 1 do
@ -333,7 +333,7 @@ end;
function octstr(val : int64;cnt : byte) : shortstring; function octstr(val : int64;cnt : byte) : shortstring;
var var
i : sizeint; i : ObjpasInt;
begin begin
octstr[0]:=char(cnt); octstr[0]:=char(cnt);
for i:=cnt downto 1 do for i:=cnt downto 1 do
@ -346,7 +346,7 @@ end;
function binstr(val : int64;cnt : byte) : shortstring; function binstr(val : int64;cnt : byte) : shortstring;
var var
i : sizeint; i : ObjpasInt;
begin begin
binstr[0]:=char(cnt); binstr[0]:=char(cnt);
for i:=cnt downto 1 do for i:=cnt downto 1 do
@ -387,7 +387,7 @@ end;
{$define FPC_HAS_HEXSTR_POINTER_SHORTSTR} {$define FPC_HAS_HEXSTR_POINTER_SHORTSTR}
function hexstr(val : pointer) : shortstring; function hexstr(val : pointer) : shortstring;
var var
i : sizeint; i : ObjpasInt;
v : ptruint; v : ptruint;
begin begin
v:=ptruint(val); v:=ptruint(val);