浏览代码

* set symbol type/binding of data referred by ppc and arm/darwin stubs (part
of r25264, fixes internalerror 2013081601 after r25266)

git-svn-id: trunk@25275 -

Jonas Maebe 12 年之前
父节点
当前提交
57cdd8c106
共有 2 个文件被更改,包括 3 次插入3 次删除
  1. 2 2
      compiler/arm/cgcpu.pas
  2. 1 1
      compiler/ppcgen/cgppc.pas

+ 2 - 2
compiler/arm/cgcpu.pas

@@ -3139,14 +3139,14 @@ unit cgcpu;
 
         if not(cs_create_pic in current_settings.moduleswitches) then
           begin
-            l1 := current_asmdata.RefAsmSymbol('L'+s+'$slp');
+            l1 := current_asmdata.DefineAsmSymbol('L'+s+'$slp',AB_LOCAL,AT_DATA);
             reference_reset_symbol(href,l1,0,sizeof(pint));
             href.refaddr:=addr_full;
             current_asmdata.asmlists[al_imports].concat(taicpu.op_reg_ref(A_LDR,NR_R12,href));
             reference_reset_base(href,NR_R12,0,sizeof(pint));
             current_asmdata.asmlists[al_imports].concat(taicpu.op_reg_ref(A_LDR,NR_R15,href));
             current_asmdata.asmlists[al_imports].concat(Tai_symbol.Create(l1,0));
-            l1 := current_asmdata.RefAsmSymbol('L'+s+'$lazy_ptr');
+            l1 := current_asmdata.DefineAsmSymbol('L'+s+'$lazy_ptr',AB_LOCAL,AT_DATA);
             current_asmdata.asmlists[al_imports].concat(tai_const.create_sym(l1));
           end
         else

+ 1 - 1
compiler/ppcgen/cgppc.pas

@@ -326,7 +326,7 @@ unit cgppc;
         if weak then
           current_asmdata.weakrefasmsymbol(s);
         current_asmdata.asmlists[al_imports].concat(tai_directive.create(asd_indirect_symbol,s));
-        l1 := current_asmdata.RefAsmSymbol('L'+s+'$lazy_ptr');
+        l1 := current_asmdata.DefineAsmSymbol('L'+s+'$lazy_ptr',AB_LOCAL,AT_DATA);
         reference_reset_symbol(href,l1,0,sizeof(pint));
         href.refaddr := addr_higha;
         if (cs_create_pic in current_settings.moduleswitches) then