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

* make IsLibrary a constant if the target has no dyn. lib support

Browse Source 
git-svn-id: trunk@18867 -
This commit is contained in:
florian 2011-08-27 22:43:06 +00:00
parent df01d0209e
commit a683b7e9f1
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/systemh.inc
View File

@ -471,8 +471,15 @@ var
ExitCode : Longint; public name 'operatingsystem_result';
RandSeed : Cardinal;
{ Delphi compatibility }
{$ifdef FPC_HAS_FEATURE_DYNLIBS}
IsLibrary : boolean = false;
IsConsole : boolean;
{$else FPC_HAS_FEATURE_DYNLIBS}
const
IsLibrary = false;
var
{$endif FPC_HAS_FEATURE_DYNLIBS}
IsConsole : boolean = false;
{ Threading support }
fpc_threadvar_relocate_proc : pointer; public name 'FPC_THREADVAR_RELOCATE';