* argv is a longint in fpc

git-svn-id: trunk@36640 -
This commit is contained in:
florian 2017-07-03 20:49:08 +00:00
parent 57a137068b
commit 0d296001a8

View File

@ -38,7 +38,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
sethi %hi(operatingsystem_parameter_argc),%o1
or %o1,%lo(operatingsystem_parameter_argc),%o1
{$endif FPC_PIC}
stx %o2, [%o1]
st %o2, [%o1]
{ extract argv }
{$ifdef FPC_PIC}
{$else FPC_PIC}