mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-03 12:10:26 +02:00
* argv is a longint in fpc
git-svn-id: trunk@36640 -
This commit is contained in:
parent
57a137068b
commit
0d296001a8
@ -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}
|
||||
|
Loading…
Reference in New Issue
Block a user