Browse Source

Add two more defines related to packages:
* 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 -

svenbarth 9 years ago
parent
commit
614c4f47a6
1 changed files with 6 additions and 0 deletions
  1. 6 0
      compiler/options.pas

+ 6 - 0
compiler/options.pas

@@ -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]);