paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:29:24 +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; r: longint;
usedregs: tcpuregisterset; usedregs: tcpuregisterset;
regs_to_save_int: tcpuregisterarray; regs_to_save_int: tcpuregisterarray;
hreg: TRegister;
begin begin
regsize:=0; regsize:=0;
usedregs:=rg[R_INTREGISTER].used_in_proc-paramanager.get_volatile_registers_int(current_procinfo.procdef.proccalloption); 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 if regs_to_save_int[r] in usedregs then
begin begin
inc(regsize,sizeof(aint)); 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;
end; end;
@ -3691,6 +3694,7 @@ unit cgx86;
a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,hreg); a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,hreg);
inc(href.offset,sizeof(aint)); inc(href.offset,sizeof(aint));
end; end;
current_asmdata.asmcfi.cfa_restore(list,hreg);
end; end;
end; end;
@ -3712,6 +3716,9 @@ unit cgx86;
list.Concat(taicpu.op_reg(A_POP,S_W,NR_BP)); list.Concat(taicpu.op_reg(A_POP,S_W,NR_BP));
{$endif} {$endif}
end; 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; end;