|
@@ -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 bp, sp
|
|
|
|
|
- mov ax, ss:[bp + 4 + extra_param_offset] // off
|
|
|
|
|
- mov dx, ss:[bp + 8 + extra_param_offset] // sel
|
|
|
|
|
- pop bp
|
|
|
|
|
|
|
+ mov si, sp
|
|
|
|
|
+ mov ax, ss:[si + 4 + extra_param_offset] // off
|
|
|
|
|
+ mov dx, ss:[si + 8 + extra_param_offset] // sel
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
{$define FPC_SYSTEM_HAS_CSEG}
|
|
{$define FPC_SYSTEM_HAS_CSEG}
|
nickysn