paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 10:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* IsLibrary initialized by declaration

Browse Source 
* IsLibrary for linux is set in dllprt0.as

git-svn-id: trunk@4547 -
This commit is contained in:
florian 2006-09-03 20:41:51 +00:00
parent 2ecd4522be
commit 73083de898
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/systemh.inc
View File

@ -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';

1
rtl/linux/system.pp
View File

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