paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ generate more cfi on x86

Browse Source 
git-svn-id: branches/debug_eh@41287 -
This commit is contained in:
florian 2019-02-10 18:00:24 +00:00
parent 65cece7657
commit 72a02b467c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/cgx86.pas
View File

@ -3394,6 +3394,7 @@ unit cgx86;
r: longint;
usedregs: tcpuregisterset;
regs_to_save_int: tcpuregisterarray;
hreg: TRegister;
begin
regsize:=0;
usedregs:=rg[R_INTREGISTER].used_in_proc-paramanager.get_volatile_registers_int(current_procinfo.procdef.proccalloption);
@ -3402,7 +3403,9 @@ unit cgx86;
if regs_to_save_int[r] in usedregs then
begin
inc(regsize,sizeof(aint));
list.concat(Taicpu.Op_reg(A_PUSH,tcgsize2opsize[OS_ADDR],newreg(R_INTREGISTER,regs_to_save_int[r],R_SUBWHOLE)));
hreg:=newreg(R_INTREGISTER,regs_to_save_int[r],R_SUBWHOLE);
list.concat(Taicpu.Op_reg(A_PUSH,tcgsize2opsize[OS_ADDR],hreg));
current_asmdata.asmcfi.cfa_offset(list,hreg,-(regsize+localsize));
end;
end;
@ -3691,6 +3694,7 @@ unit cgx86;
a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,hreg);
inc(href.offset,sizeof(aint));
end;
current_asmdata.asmcfi.cfa_restore(list,hreg);
end;
end;
@ -3712,6 +3716,9 @@ unit cgx86;
list.Concat(taicpu.op_reg(A_POP,S_W,NR_BP));
{$endif}
end;
current_asmdata.asmcfi.cfa_restore(list,NR_EBP);
current_asmdata.asmcfi.cfa_def_cfa_register(list,NR_ESP);
current_asmdata.asmcfi.cfa_def_cfa_offset(list,4);
end;