Selaa lähdekoodia

* on targets with indirect main entry argc, argv and envp are provided through the indirect entry information instead of externals

git-svn-id: trunk@36686 -
svenbarth 8 vuotta sitten
vanhempi
commit
d5c8fe7455
1 muutettua tiedostoa jossa 6 lisäystä ja 0 poistoa
  1. 6 0
      rtl/unix/sysunixh.inc

+ 6 - 0
rtl/unix/sysunixh.inc

@@ -57,9 +57,15 @@ const
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
   DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
 
 
 {$if not defined(solaris) and not defined(darwin) and not defined(aix)}
 {$if not defined(solaris) and not defined(darwin) and not defined(aix)}
+{$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION}
+var argc:longint;
+    argv:PPchar;
+    envp:PPchar;
+{$else FPC_HAS_INDIRECT_ENTRY_INFORMATION}
 var argc:longint;external name 'operatingsystem_parameter_argc';
 var argc:longint;external name 'operatingsystem_parameter_argc';
     argv:PPchar;external name 'operatingsystem_parameter_argv';
     argv:PPchar;external name 'operatingsystem_parameter_argv';
     envp:PPchar;external name 'operatingsystem_parameter_envp';
     envp:PPchar;external name 'operatingsystem_parameter_envp';
+{$endif FPC_HAS_INDIRECT_ENTRY_INFORMATION}
 {$endif}
 {$endif}
 
 
 {$ifdef unix}
 {$ifdef unix}