Only add indirect symbol for constants if tf_supports_packages flag is set in target_info.flags

git-svn-id: trunk@33684 -

compiler/ptconst.pas

@@ -135,13 +135,16 @@ implementation
             current_asmdata.asmlists[al_const].concatlist(datalist);
             { the (empty) lists themselves are freed by tcbuilder }
 
-            { add indirect symbol }
-            { ToDo: do we also need this for the else part? }
-            new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment));
-            symind:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_INDIRECT,AT_DATA);
-            list.concat(Tai_symbol.Create_Global(symind,0));
-            list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0));
-            list.concat(tai_symbol_end.Create(symind));
+            if (tf_supports_packages in target_info.flags) then
+              begin
+                { add indirect symbol }
+                { ToDo: do we also need this for the else part? }
+                new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment));
+                symind:=current_asmdata.DefineAsmSymbol(sym.mangledname,AB_INDIRECT,AT_DATA);
+                list.concat(Tai_symbol.Create_Global(symind,0));
+                list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0));
+                list.concat(tai_symbol_end.Create(symind));
+              end;
           end
         else
           begin