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

* Fixed warnings.

Browse Source 
git-svn-id: trunk@40187 -
This commit is contained in:
yury 2018-11-02 19:04:52 +00:00
parent a077e0dd90
commit 78a26e53f8
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/android/sysandroid.inc
View File

@ -26,7 +26,7 @@ const
EmptyEnv: array[0..2] of PAnsiChar = (nil, nil, nil); EmptyEnv: array[0..2] of PAnsiChar = (nil, nil, nil);
EmptyCmdLine: array[0..0] of PAnsiChar = ( '' ); EmptyCmdLine: array[0..0] of PAnsiChar = ( '' );
var var
i: longint; i: cardinal;
p: PPAnsiChar; p: PPAnsiChar;
begin begin
// Get the current stack pointer, adjust and save it // Get the current stack pointer, adjust and save it
@ -46,7 +46,7 @@ begin
while i < 200 do while i < 200 do
begin begin
Dec(p); Dec(p);
if ptrint(p^) = i then if ptruint(p^) = i then
begin begin
// argc found // argc found
operatingsystem_parameter_argc:=i; operatingsystem_parameter_argc:=i;

2
rtl/linux/system.pp
View File

@ -455,7 +455,7 @@ begin
{$endif} {$endif}
IsConsole := TRUE; IsConsole := TRUE;
StackLength := CheckInitialStkLen(initialStkLen); StackLength := CheckInitialStkLen(initialStkLen);
StackBottom := pointer((ptruint(initialstkptr) or (page_size - 1)) + 1 - StackLength); StackBottom := pointer(ptruint((ptruint(initialstkptr) or (page_size - 1)) + 1 - StackLength));
{$ifdef LAST_PAGE_GENERATES_SIGNAL} {$ifdef LAST_PAGE_GENERATES_SIGNAL}
StackBottom:=StackBottom + page_size; StackBottom:=StackBottom + page_size;
{$endif} {$endif}