- removed all "islibrary:=false;" assignments from system unit

    initialisation code, because that's a typed constant already initialised
    to that value and it interferes with a generic solution to set islibrary
    to true for libraries

git-svn-id: trunk@12376 -

rtl/amiga/system.pp

@@ -365,7 +365,6 @@ end;
 
 begin
   IsConsole := TRUE;
-  IsLibrary := FALSE;
   SysResetFPU;
   if not(IsLibrary) then
     SysInitFPU;

rtl/beos/system.pp

@@ -350,7 +350,6 @@ var
   s : string;
 begin
   IsConsole := TRUE;
-  IsLibrary := FALSE;
   StackLength := CheckInitialStkLen(InitialStkLen);
   StackBottom := Sptr - StackLength;
 

rtl/bsd/system.pp

@@ -305,7 +305,6 @@ end;
 
 Begin
   IsConsole := TRUE;
-  IsLibrary := FALSE;
   StackLength := CheckInitialStkLen(InitialStkLen);
   StackBottom := Sptr - StackLength;
   { Set up signals handlers }

rtl/emx/system.pas

@@ -460,7 +460,6 @@ const
  FatalHeap: array [0..33] of char = 'FATAL: Cannot initialize heap!!'#13#10'$';
 
 begin
-    IsLibrary := FALSE;
     {Determine the operating system we are running on.}
 {$ASMMODE INTEL}
     asm

rtl/haiku/system.pp

@@ -350,7 +350,6 @@ var
   s : string;
 begin
   IsConsole := TRUE;
-  IsLibrary := FALSE;
   StackLength := CheckInitialStkLen(InitialStkLen);
   StackBottom := Sptr - StackLength;
 

rtl/morphos/system.pp

@@ -397,7 +397,6 @@ end;
 
 begin
   IsConsole := TRUE;
-  IsLibrary := FALSE;
   StackLength := CheckInitialStkLen(InitialStkLen);
   StackBottom := Sptr - StackLength;
   SysResetFPU;

rtl/netware/system.pp

@@ -476,7 +476,6 @@ Begin
   SysInitStdIO;
 
 {Delphi Compatible}
-  IsLibrary := FALSE;
   IsConsole := TRUE;
   ExitCode  := 0;
   InitSystemThreads;

rtl/os2/system.pas

@@ -1086,8 +1086,6 @@ const
 {* ST: pointer;}
 {*}
 begin
-    IsLibrary := FALSE;
-
 {$IFDEF OS2EXCEPTIONS}
 (*    asm
       { allocate space for exception registration record }

rtl/solaris/system.pp

@@ -218,7 +218,6 @@ end;
 
 Begin
   IsConsole := TRUE;
-  IsLibrary := FALSE;
   StackLength := CheckInitialStkLen(InitialStkLen);
   StackBottom := Sptr - StackLength;
 { Set up signals handlers }

rtl/symbian/system.pp

@@ -182,8 +182,6 @@ function Pascal_E32Main: Integer; cdecl; [public, alias: '_Pascal_E32Main'];
 var
   ST : pointer;
 begin
-  IsLibrary := false;
-
   PascalMain;
 
   { if we pass here there was no error }