瀏覽代碼

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 年之前
父節點
當前提交
d49b6264a1
共有 1 個文件被更改,包括 6 次插入0 次删除
  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