diff --git a/compiler/ncgcon.pas b/compiler/ncgcon.pas index 6e30dbda8d..81853d229e 100644 --- a/compiler/ncgcon.pas +++ b/compiler/ncgcon.pas @@ -134,7 +134,7 @@ implementation { :-(, we must generate a new entry } if not(assigned(lab_real)) then begin - current_asmdata.getglobaldatalabel(lastlabel); + current_asmdata.getlocaldatalabel(lastlabel); entry^.Data:=lastlabel; lab_real:=lastlabel; maybe_new_object_file(current_asmdata.asmlists[al_typedconsts]); @@ -320,7 +320,7 @@ implementation end; cst_shortstring: begin - current_asmdata.getglobaldatalabel(lastlabel.lab); + current_asmdata.getlocaldatalabel(lastlabel.lab); { truncate strings larger than 255 chars } if len>255 then @@ -342,7 +342,7 @@ implementation end; cst_conststring: begin - current_asmdata.getglobaldatalabel(lastlabel.lab); + current_asmdata.getlocaldatalabel(lastlabel.lab); { include terminating zero } getmem(pc,len+1); @@ -406,7 +406,7 @@ implementation i: longint; tcb: ttai_typedconstbuilder; begin - current_asmdata.getglobaldatalabel(lab); + current_asmdata.getlocaldatalabel(lab); result:=lab; lab_set:=lab; tcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable,tcalo_apply_constalign]); @@ -510,7 +510,7 @@ implementation { :-(, we must generate a new entry } if not assigned(entry^.Data) then begin - current_asmdata.getglobaldatalabel(lastlabel); + current_asmdata.getlocaldatalabel(lastlabel); datatcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable,tcalo_apply_constalign]); datatcb.emit_guid_const(value); current_asmdata.asmlists[al_typedconsts].concatList( diff --git a/compiler/x86/nx86cnv.pas b/compiler/x86/nx86cnv.pas index c0a823a5eb..a7e95ab56a 100644 --- a/compiler/x86/nx86cnv.pas +++ b/compiler/x86/nx86cnv.pas @@ -412,7 +412,7 @@ implementation if it is 1 then we add 2**64 as float. Since 2**64 can be represented exactly, use a single-precision constant to save space. } - current_asmdata.getglobaldatalabel(l1); + current_asmdata.getlocaldatalabel(l1); current_asmdata.getjumplabel(l2); if not(signtested) then begin diff --git a/compiler/x86/nx86mat.pas b/compiler/x86/nx86mat.pas index 97cd82fde6..d0869e1f69 100644 --- a/compiler/x86/nx86mat.pas +++ b/compiler/x86/nx86mat.pas @@ -187,7 +187,7 @@ interface begin location_reset(location,LOC_MMREGISTER,def_cgsize(resultdef)); - current_asmdata.getglobaldatalabel(l1); + current_asmdata.getlocaldatalabel(l1); new_section(current_asmdata.asmlists[al_typedconsts],sec_rodata_norel,l1.name,const_align(16)); current_asmdata.asmlists[al_typedconsts].concat(Tai_label.Create(l1)); case def_cgsize(resultdef) of diff --git a/compiler/x86/nx86set.pas b/compiler/x86/nx86set.pas index 08279a077d..2e66bdb53f 100644 --- a/compiler/x86/nx86set.pas +++ b/compiler/x86/nx86set.pas @@ -154,7 +154,7 @@ implementation end; end; - current_asmdata.getglobaldatalabel(table); + current_asmdata.getlocaldatalabel(table); { make it a 32bit register } indexreg:=cg.makeregsize(current_asmdata.CurrAsmList,hregister,OS_INT); cg.a_load_reg_reg(current_asmdata.CurrAsmList,opcgsize,OS_INT,hregister,indexreg); diff --git a/compiler/x86_64/nx64cnv.pas b/compiler/x86_64/nx64cnv.pas index 7bd1eeedd7..bbf60b1d4e 100644 --- a/compiler/x86_64/nx64cnv.pas +++ b/compiler/x86_64/nx64cnv.pas @@ -110,7 +110,7 @@ implementation we load bits 0..62 and then check bit 63: if it is 1 then we add $80000000 000000000 as double } - current_asmdata.getglobaldatalabel(l1); + current_asmdata.getlocaldatalabel(l1); current_asmdata.getjumplabel(l2); { Get sign bit }