From d4d7b695c7125e5537ddc1b27b9ae183764326f7 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Wed, 17 Dec 2008 17:48:04 +0000 Subject: [PATCH] - 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 | 1 - rtl/beos/system.pp | 1 - rtl/bsd/system.pp | 1 - rtl/emx/system.pas | 1 - rtl/haiku/system.pp | 1 - rtl/morphos/system.pp | 1 - rtl/netware/system.pp | 1 - rtl/os2/system.pas | 2 -- rtl/solaris/system.pp | 1 - rtl/symbian/system.pp | 2 -- 10 files changed, 12 deletions(-) diff --git a/rtl/amiga/system.pp b/rtl/amiga/system.pp index 3b34410bce..6798909320 100644 --- a/rtl/amiga/system.pp +++ b/rtl/amiga/system.pp @@ -365,7 +365,6 @@ end; begin IsConsole := TRUE; - IsLibrary := FALSE; SysResetFPU; if not(IsLibrary) then SysInitFPU; diff --git a/rtl/beos/system.pp b/rtl/beos/system.pp index f515a79acb..9f1e5f70c8 100644 --- a/rtl/beos/system.pp +++ b/rtl/beos/system.pp @@ -350,7 +350,6 @@ var s : string; begin IsConsole := TRUE; - IsLibrary := FALSE; StackLength := CheckInitialStkLen(InitialStkLen); StackBottom := Sptr - StackLength; diff --git a/rtl/bsd/system.pp b/rtl/bsd/system.pp index fe4bcd8826..da2423c680 100644 --- a/rtl/bsd/system.pp +++ b/rtl/bsd/system.pp @@ -305,7 +305,6 @@ end; Begin IsConsole := TRUE; - IsLibrary := FALSE; StackLength := CheckInitialStkLen(InitialStkLen); StackBottom := Sptr - StackLength; { Set up signals handlers } diff --git a/rtl/emx/system.pas b/rtl/emx/system.pas index 8764c4c0b7..a1738fb34e 100644 --- a/rtl/emx/system.pas +++ b/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 diff --git a/rtl/haiku/system.pp b/rtl/haiku/system.pp index f515a79acb..9f1e5f70c8 100644 --- a/rtl/haiku/system.pp +++ b/rtl/haiku/system.pp @@ -350,7 +350,6 @@ var s : string; begin IsConsole := TRUE; - IsLibrary := FALSE; StackLength := CheckInitialStkLen(InitialStkLen); StackBottom := Sptr - StackLength; diff --git a/rtl/morphos/system.pp b/rtl/morphos/system.pp index db439075d8..188f1c2176 100644 --- a/rtl/morphos/system.pp +++ b/rtl/morphos/system.pp @@ -397,7 +397,6 @@ end; begin IsConsole := TRUE; - IsLibrary := FALSE; StackLength := CheckInitialStkLen(InitialStkLen); StackBottom := Sptr - StackLength; SysResetFPU; diff --git a/rtl/netware/system.pp b/rtl/netware/system.pp index c555c06bb4..0be2463215 100644 --- a/rtl/netware/system.pp +++ b/rtl/netware/system.pp @@ -476,7 +476,6 @@ Begin SysInitStdIO; {Delphi Compatible} - IsLibrary := FALSE; IsConsole := TRUE; ExitCode := 0; InitSystemThreads; diff --git a/rtl/os2/system.pas b/rtl/os2/system.pas index a5f97510e4..2eab03aa81 100644 --- a/rtl/os2/system.pas +++ b/rtl/os2/system.pas @@ -1086,8 +1086,6 @@ const {* ST: pointer;} {*} begin - IsLibrary := FALSE; - {$IFDEF OS2EXCEPTIONS} (* asm { allocate space for exception registration record } diff --git a/rtl/solaris/system.pp b/rtl/solaris/system.pp index 229dba0416..67195c0b94 100644 --- a/rtl/solaris/system.pp +++ b/rtl/solaris/system.pp @@ -218,7 +218,6 @@ end; Begin IsConsole := TRUE; - IsLibrary := FALSE; StackLength := CheckInitialStkLen(InitialStkLen); StackBottom := Sptr - StackLength; { Set up signals handlers } diff --git a/rtl/symbian/system.pp b/rtl/symbian/system.pp index 5c193dcd26..cd3b5921ce 100644 --- a/rtl/symbian/system.pp +++ b/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 }