فهرست منبع

- removed FPC_DARWIN_JMP_MAIN and FPC_DARWIN_PASCALMAIN defines and ifdefs

git-svn-id: trunk@12897 -
Jonas Maebe 16 سال پیش
والد
کامیت
a8eb1cc30b
2فایلهای تغییر یافته به همراه2 افزوده شده و 15 حذف شده
  1. 0 2
      compiler/options.pas
  2. 2 13
      rtl/bsd/system.pp

+ 0 - 2
compiler/options.pas

@@ -2358,8 +2358,6 @@ begin
 
 
 { Temporary defines, until things settle down }
 { Temporary defines, until things settle down }
   { "main" symbol is generated in the main program, and left out of the system unit }
   { "main" symbol is generated in the main program, and left out of the system unit }
-  def_system_macro('FPC_DARWIN_PASCALMAIN');
-  def_system_macro('FPC_DARWIN_JMP_MAIN');
   def_system_macro('PARAOUTFILE');
   def_system_macro('PARAOUTFILE');
   def_system_macro('RESSTRSECTIONS');
   def_system_macro('RESSTRSECTIONS');
   def_system_macro('FPC_HASFIXED64BITVARIANT');
   def_system_macro('FPC_HASFIXED64BITVARIANT');

+ 2 - 13
rtl/bsd/system.pp

@@ -1,5 +1,5 @@
 {
 {
-    This file is part of the Free Pascal run time librar~y.
+    This file is part of the Free Pascal run time library.
     Copyright (c) 2000 by Marco van de Voort
     Copyright (c) 2000 by Marco van de Voort
     member of the Free Pascal development team.
     member of the Free Pascal development team.
 
 
@@ -266,18 +266,9 @@ end;
 
 
 {$ifdef Darwin}
 {$ifdef Darwin}
 
 
-{$ifndef FPC_DARWIN_PASCALMAIN}
-procedure pascalmain;external name 'PASCALMAIN';
-{ Main entry point in C style, needed to capture program parameters. }
-
-procedure main(argcparam: Longint; argvparam: ppchar; envpparam: ppchar); cdecl; [public];
-{$else FPC_DARWIN_PASCALMAIN}
-
-{$ifdef FPC_DARWIN_JMP_MAIN}
 procedure pascalmain;cdecl;external name 'PASCALMAIN';
 procedure pascalmain;cdecl;external name 'PASCALMAIN';
-{$endif}
+
 procedure FPC_SYSTEMMAIN(argcparam: Longint; argvparam: ppchar; envpparam: ppchar); cdecl; [public];
 procedure FPC_SYSTEMMAIN(argcparam: Longint; argvparam: ppchar; envpparam: ppchar); cdecl; [public];
-{$endif FPC_DARWIN_PASCALMAIN}
 
 
 begin
 begin
   argc:= argcparam;
   argc:= argcparam;
@@ -286,9 +277,7 @@ begin
 {$ifdef cpui386}
 {$ifdef cpui386}
   Set8087CW(Default8087CW);  
   Set8087CW(Default8087CW);  
 {$endif cpui386}
 {$endif cpui386}
-{$if not defined(FPC_DARWIN_PASCALMAIN) or defined(FPC_DARWIN_JMP_MAIN)}
   pascalmain;  {run the pascal main program}
   pascalmain;  {run the pascal main program}
-{$endif}
 end;
 end;
 {$endif Darwin}
 {$endif Darwin}
 {$endif FPC_USE_LIBC}
 {$endif FPC_USE_LIBC}