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

* replace some longint by ObjpasInt

Browse Source 
git-svn-id: trunk@47047 -
This commit is contained in:
florian 2020-10-04 20:50:39 +00:00
parent c62d4e117c
commit e718cb985e
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/inc/system.inc
View File

@ -1399,7 +1399,7 @@ end;
Procedure dump_stack(var f : text;fp : Pointer; addr : CodePointer); Procedure dump_stack(var f : text;fp : Pointer; addr : CodePointer);
var var
i : Longint; i : ObjpasInt;
prevfp : Pointer; prevfp : Pointer;
is_dev : boolean; is_dev : boolean;
Begin Begin
@ -1435,7 +1435,7 @@ End;
procedure dump_stack(var f: text; skipframes: longint); procedure dump_stack(var f: text; skipframes: longint);
var var
i,count: longint; i,count: ObjpasInt;
frames: array [0..255] of codepointer; frames: array [0..255] of codepointer;
begin begin
if do_isdevice(textrec(f).handle) then if do_isdevice(textrec(f).handle) then
@ -1459,7 +1459,7 @@ end;
procedure DumpExceptionBackTrace(var f:text); procedure DumpExceptionBackTrace(var f:text);
var var
FrameNumber, FrameNumber,
FrameCount : longint; FrameCount : ObjpasInt;
Frames : PCodePointer; Frames : PCodePointer;
begin begin
if RaiseList=nil then if RaiseList=nil then
@ -1525,7 +1525,7 @@ end;
// if "s" goes out of scope in the parent procedure, the pointer is dangling. // if "s" goes out of scope in the parent procedure, the pointer is dangling.
var p : ppchar; var p : ppchar;
i : LongInt; i : ObjpasInt;
begin begin
if High(s)<Low(s) Then Exit(NIL); if High(s)<Low(s) Then Exit(NIL);
Getmem(p,sizeof(pchar)*(high(s)-low(s)+ReserveEntries+2)); // one more for NIL, one more Getmem(p,sizeof(pchar)*(high(s)-low(s)+ReserveEntries+2)); // one more for NIL, one more
@ -1560,7 +1560,7 @@ end;
Function StringToPPChar(S: PChar;ReserveEntries:integer):ppchar; Function StringToPPChar(S: PChar;ReserveEntries:integer):ppchar;
var var
i,nr : longint; i,nr : ObjpasInt;
Buf : ^char; Buf : ^char;
p : ppchar; p : ppchar;
@ -1731,7 +1731,7 @@ end;
{ Allow slash and backslash as separators } { Allow slash and backslash as separators }
procedure DoDirSeparators(var p: pchar; inplace: boolean = true); procedure DoDirSeparators(var p: pchar; inplace: boolean = true);
var var
i : longint; i : ObjpasInt;
len : sizeint; len : sizeint;
newp : pchar; newp : pchar;
begin begin
@ -1753,7 +1753,7 @@ end;
procedure DoDirSeparators(var p: pwidechar; inplace: boolean = true); procedure DoDirSeparators(var p: pwidechar; inplace: boolean = true);
var var
i : longint; i : ObjpasInt;
len : sizeint; len : sizeint;
newp : pwidechar; newp : pwidechar;
begin begin
@ -1776,7 +1776,7 @@ end;
procedure DoDirSeparators(var p:shortstring); procedure DoDirSeparators(var p:shortstring);
var var
i : longint; i : ObjpasInt;
begin begin
for i:=1 to length(p) do for i:=1 to length(p) do
if p[i] in AllowDirectorySeparators then if p[i] in AllowDirectorySeparators then
@ -1787,7 +1787,7 @@ end;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS} {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
procedure DoDirSeparators(var ps:RawByteString); procedure DoDirSeparators(var ps:RawByteString);
var var
i : longint; i : ObjpasInt;
p : pchar; p : pchar;
unique : boolean; unique : boolean;
begin begin
@ -1810,7 +1810,7 @@ end;
{$ifdef FPC_HAS_FEATURE_UNICODESTRINGS} {$ifdef FPC_HAS_FEATURE_UNICODESTRINGS}
procedure DoDirSeparators(var ps:UnicodeString); procedure DoDirSeparators(var ps:UnicodeString);
var var
i : longint; i : ObjpasInt;
p : pwidechar; p : pwidechar;
unique : boolean; unique : boolean;
begin begin