Browse Source

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

git-svn-id: trunk@4547 -

florian 19 years ago
parent
commit
73083de898
2 changed files with 1 additions and 2 deletions
  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';
   ExitCode    : Word; public name 'operatingsystem_result';
   RandSeed    : Cardinal;
   RandSeed    : Cardinal;
   { Delphi compatibility }
   { Delphi compatibility }
-  IsLibrary : boolean;
+  IsLibrary : boolean = false;
   IsConsole : boolean;
   IsConsole : boolean;
   { Threading support }
   { Threading support }
   fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';
   fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';

+ 0 - 1
rtl/linux/system.pp

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