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

* always pop DS in huge memory models in asm routines that don't specify

Browse Source 
'nostackframe'

git-svn-id: trunk@31520 -
This commit is contained in:
nickysn 2015-09-04 21:51:04 +00:00
parent 98ec7a2211
commit a1d29b8251
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i8086/cgcpu.pas
View File

@ -1762,6 +1762,9 @@ unit cgcpu;
{ remove stackframe }
if not nostackframe then
begin
if (current_settings.x86memorymodel=mm_huge) and
not (po_interrupt in current_procinfo.procdef.procoptions) then
list.concat(Taicpu.Op_reg(A_POP,S_W,NR_DS));
if (current_procinfo.framepointer=NR_STACK_POINTER_REG) then
begin
stacksize:=current_procinfo.calc_stackframe_size;
@ -1776,12 +1779,7 @@ unit cgcpu;
cg.a_op_const_reg(list,OP_ADD,OS_ADDR,stacksize,current_procinfo.framepointer);
end
else
begin
if (current_settings.x86memorymodel=mm_huge) and
not (po_interrupt in current_procinfo.procdef.procoptions) then
list.concat(Taicpu.Op_reg(A_POP,S_W,NR_DS));
generate_leave(list);
end;
generate_leave(list);
list.concat(tai_regalloc.dealloc(current_procinfo.framepointer,nil));
end;