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

* optimized version of Ptr() for i8086

Browse Source 
git-svn-id: trunk@25800 -
This commit is contained in:
nickysn 2013-10-16 12:29:22 +00:00
parent 1c53d24743
commit aa9fe36fd3
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/i8086/i8086.inc
View File

@ -27,11 +27,9 @@ end;
{$define FPC_SYSTEM_HAS_PTR} {$define FPC_SYSTEM_HAS_PTR}
function Ptr(sel,off: LongInt):farpointer;{$ifdef SYSTEMINLINE}inline;{$endif}assembler;nostackframe; function Ptr(sel,off: LongInt):farpointer;{$ifdef SYSTEMINLINE}inline;{$endif}assembler;nostackframe;
asm asm
push bp mov si, sp
mov bp, sp mov ax, ss:[si + 4 + extra_param_offset] // off
mov ax, ss:[bp + 4 + extra_param_offset] // off mov dx, ss:[si + 8 + extra_param_offset] // sel
mov dx, ss:[bp + 8 + extra_param_offset] // sel
pop bp
end; end;
{$define FPC_SYSTEM_HAS_CSEG} {$define FPC_SYSTEM_HAS_CSEG}