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

* fixed the stack param offsets in Ptr, get_caller_addr and get_caller_frame after the stackframe elimination

Browse Source 
git-svn-id: trunk@25802 -
This commit is contained in:
nickysn 2013-10-16 12:39:39 +00:00
parent 9bf3d1edff
commit 6596ba9036
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/i8086/i8086.inc
View File

@ -28,8 +28,8 @@ end;
function Ptr(sel,off: LongInt):farpointer;{$ifdef SYSTEMINLINE}inline;{$endif}assembler;nostackframe;
asm
mov si, sp
mov ax, ss:[si + 4 + extra_param_offset] // off
mov dx, ss:[si + 8 + extra_param_offset] // sel
mov ax, ss:[si + 2 + extra_param_offset] // off
mov dx, ss:[si + 6 + extra_param_offset] // sel
end;
{$define FPC_SYSTEM_HAS_CSEG}
@ -75,7 +75,7 @@ asm
{$ifdef FPC_X86_CODE_FAR}
xor dx, dx
{$endif FPC_X86_CODE_FAR}
mov ax, ss:[si + 6 + extra_param_offset + extra_param_offset] // framebp
mov ax, ss:[si + 4 + extra_param_offset + extra_param_offset] // framebp
or ax, ax
jz @@Lg_a_null
xchg ax, bx
@ -91,7 +91,7 @@ end;
function get_caller_frame(framebp:pointer;addr:codepointer=nil):pointer;nostackframe;assembler;
asm
mov si, sp
mov ax, ss:[si + 6 + extra_param_offset + extra_param_offset] // framebp
mov ax, ss:[si + 4 + extra_param_offset + extra_param_offset] // framebp
or ax, ax
jz @@Lgnf_null
xchg ax, bx