paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 02:22:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* arm: Labels to constants are now data labels and not jump labels

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-07-10 16:24:59 +01:00 committed by FPK
parent be39828fca
commit d1f035f456
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/arm/hlcgcpu.pas
View File

@ -79,7 +79,7 @@ implementation
list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R0,RS_R1])); list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R0,RS_R1]));
{ create consts entry } { create consts entry }
reference_reset(tmpref,4,[]); reference_reset(tmpref,4,[]);
current_asmdata.getjumplabel(l); current_asmdata.getlabel(l,alt_data);
current_procinfo.aktlocaldata.Concat(tai_align.Create(4)); current_procinfo.aktlocaldata.Concat(tai_align.Create(4));
cg.a_label(current_procinfo.aktlocaldata,l); cg.a_label(current_procinfo.aktlocaldata,l);
tmpref.symboldata:=current_procinfo.aktlocaldata.last; tmpref.symboldata:=current_procinfo.aktlocaldata.last;
@ -123,7 +123,7 @@ implementation
list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R0,RS_R1])); list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R0,RS_R1]));
{ create consts entry } { create consts entry }
reference_reset(tmpref,4,[]); reference_reset(tmpref,4,[]);
current_asmdata.getjumplabel(l); current_asmdata.getlabel(l,alt_data);
current_procinfo.aktlocaldata.Concat(tai_align.Create(4)); current_procinfo.aktlocaldata.Concat(tai_align.Create(4));
cg.a_label(current_procinfo.aktlocaldata,l); cg.a_label(current_procinfo.aktlocaldata,l);
tmpref.symboldata:=current_procinfo.aktlocaldata.last; tmpref.symboldata:=current_procinfo.aktlocaldata.last;