paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 07:59:27 +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);
EmptyCmdLine: array[0..0] of PAnsiChar = ( '' );
var
i: longint;
i: cardinal;
p: PPAnsiChar;
begin
// Get the current stack pointer, adjust and save it
@ -46,7 +46,7 @@ begin
while i < 200 do
begin
Dec(p);
if ptrint(p^) = i then
if ptruint(p^) = i then
begin
// argc found
operatingsystem_parameter_argc:=i;

2
rtl/linux/system.pp
View File

@ -455,7 +455,7 @@ begin
{$endif}
IsConsole := TRUE;
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}
StackBottom:=StackBottom + page_size;
{$endif}