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

+ implementated get_frame() and get_pc_addr() for the i8086

Browse Source 
git-svn-id: trunk@25795 -
This commit is contained in:
nickysn 2013-10-15 20:16:13 +00:00
parent bf07fc077b
commit ea1370a89e
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/i8086/i8086.inc
View File

@ -52,6 +52,24 @@ asm
mov ax, ss mov ax, ss
end; end;
{$IFNDEF INTERNAL_BACKTRACE}
{$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
mov ax, bp
end;
{$ENDIF not INTERNAL_BACKTRACE}
{$define FPC_SYSTEM_HAS_GET_PC_ADDR}
Function Get_pc_addr : CodePointer;assembler;nostackframe;
asm
mov bx, bp
mov ax, ss:[bx]
{$ifdef FPC_X86_CODE_FAR}
mov dx, ss:[bx+2]
{$endif FPC_X86_CODE_FAR}
end;
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR} {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer;addr:codepointer=nil):codepointer;nostackframe;assembler; function get_caller_addr(framebp:pointer;addr:codepointer=nil):codepointer;nostackframe;assembler;
asm asm