Pārlūkot izejas kodu

sysunixh.inc:
* don't use externals for argc, argv and envp if FPC_HAS_INDIRECT_MAIN_INFORMATION is set

git-svn-id: branches/svenbarth/packages@32483 -

svenbarth 9 gadi atpakaļ
vecāks
revīzija
d49b6264a1
1 mainītis faili ar 6 papildinājumiem un 0 dzēšanām
  1. 6 0
      rtl/unix/sysunixh.inc

+ 6 - 0
rtl/unix/sysunixh.inc

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