Ver Fonte

Fix problem in handling of tf_pic_default

git-svn-id: trunk@29140 -
pierre há 10 anos atrás
pai
commit
5c48eb2d96
1 ficheiros alterados com 5 adições e 5 exclusões
  1. 5 5
      compiler/options.pas

+ 5 - 5
compiler/options.pas

@@ -2914,11 +2914,11 @@ begin
       undef_system_macro('FPC_SECTION_THREADVARS');
 
   { Code generation flags }
-  if def and
-     (tf_pic_default in target_info.flags) then
-    include(init_settings.moduleswitches,cs_create_pic)
-  else
-    exclude(init_settings.moduleswitches,cs_create_pic);
+  if (tf_pic_default in target_info.flags) then
+    if def then
+      include(init_settings.moduleswitches,cs_create_pic)
+    else
+      exclude(init_settings.moduleswitches,cs_create_pic);
 
   { Resources support }
   if (tf_has_winlike_resources in target_info.flags) then