Bladeren bron

* IsLibrary initialized by declaration
* IsLibrary for linux is set in dllprt0.as

git-svn-id: trunk@4547 -

florian 19 jaren geleden
bovenliggende
commit
73083de898
2 gewijzigde bestanden met toevoegingen van 1 en 2 verwijderingen
  1. 1 1
      rtl/inc/systemh.inc
  2. 0 1
      rtl/linux/system.pp

+ 1 - 1
rtl/inc/systemh.inc

@@ -341,7 +341,7 @@ var
   ExitCode    : Word; public name 'operatingsystem_result';
   RandSeed    : Cardinal;
   { Delphi compatibility }
-  IsLibrary : boolean;
+  IsLibrary : boolean = false;
   IsConsole : boolean;
   { Threading support }
   fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';

+ 0 - 1
rtl/linux/system.pp

@@ -251,7 +251,6 @@ var
 Begin
   SysResetFPU;
   IsConsole := TRUE;
-  IsLibrary := FALSE;
   StackLength := CheckInitialStkLen(initialStkLen);
   StackBottom := initialstkptr - StackLength;
   { Set up signals handlers }