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

Add two more defines related to packages:

Browse Source 
* FPC_HAS_DYNAMIC_PACKAGES is set if the target does support dynamic packages (currently none, but soon(TM) that should be i386-win32, {i386,x86_64}-linux and all darwin systems)
* FPC_HAS_INDIRECT_VAR_ACCESS is set if assembler code should assume that variables from another unit are accessed indirectly (thus different assembler code should be used)

git-svn-id: trunk@33953 -
This commit is contained in:
svenbarth 2016-06-12 09:14:51 +00:00
parent ca07a4f86f
commit 614c4f47a6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

@ -4077,6 +4077,12 @@ begin
if not (tf_winlikewidestring in target_info.flags) then
def_system_macro('FPC_WIDESTRING_EQUAL_UNICODESTRING');
if tf_supports_packages in target_info.flags then
def_system_macro('FPC_HAS_DYNAMIC_PACKAGES');
if target_info.system in systems_indirect_var_imports then
def_system_marco('FPC_HAS_INDIRECT_VAR_ACCESS');
for i:=low(tfeature) to high(tfeature) do
if i in features then
def_system_macro('FPC_HAS_FEATURE_'+featurestr[i]);