Browse Source

Fix bootstrapping.

rtl/darwin/sysinit.pas:
  * enable the code only when no longer bootstrapping with 2.6.x

git-svn-id: branches/svenbarth/packages@31930 -
svenbarth 9 years ago
parent
commit
485cbeb3b9
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/darwin/sysinit.pas

+ 4 - 0
rtl/darwin/sysinit.pas

@@ -18,6 +18,8 @@ interface
 
 
 implementation
 implementation
 
 
+{$ifndef ver2_6}
+
 procedure PascalMain; cdecl; external name 'PASCALMAIN';
 procedure PascalMain; cdecl; external name 'PASCALMAIN';
 procedure SysEntry(constref info: TEntryInformation); external name 'FPC_SysEntry';
 procedure SysEntry(constref info: TEntryInformation); external name 'FPC_SysEntry';
 
 
@@ -72,4 +74,6 @@ begin
   SysEntry(SysInitEntryInformation);
   SysEntry(SysInitEntryInformation);
 end;
 end;
 
 
+{$endif ver2_6}
+
 end.
 end.