paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 17:59:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed CFI registers for leave on x86-64, and place CFI directives closer to

Browse Source 
the instructions they apply to

git-svn-id: branches/debug_eh@41576 -
This commit is contained in:
Jonas Maebe 2019-03-03 17:14:56 +00:00
parent 332af0bc4e
commit 866331de34
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/cgx86.pas
View File

@ -3710,19 +3710,22 @@ unit cgx86;
else
begin
{$if defined(x86_64)}
current_asmdata.asmcfi.cfa_def_cfa_register(list,NR_RSP);
list.Concat(taicpu.op_reg_reg(A_MOV,S_Q,NR_RBP,NR_RSP));
current_asmdata.asmcfi.cfa_restore(list,NR_RBP);
current_asmdata.asmcfi.cfa_def_cfa_offset(list,8);
list.Concat(taicpu.op_reg(A_POP,S_Q,NR_RBP));
{$elseif defined(i386)}
current_asmdata.asmcfi.cfa_def_cfa_register(list,NR_ESP);
list.Concat(taicpu.op_reg_reg(A_MOV,S_L,NR_EBP,NR_ESP));
current_asmdata.asmcfi.cfa_restore(list,NR_EBP);
current_asmdata.asmcfi.cfa_def_cfa_offset(list,4);
list.Concat(taicpu.op_reg(A_POP,S_L,NR_EBP));
{$elseif defined(i8086)}
list.Concat(taicpu.op_reg_reg(A_MOV,S_W,NR_BP,NR_SP));
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,sizeof(pint));
end;