Browse Source

* optimized version of Ptr() for i8086

git-svn-id: trunk@25800 -
nickysn 12 years ago
parent
commit
aa9fe36fd3
1 changed files with 3 additions and 5 deletions
  1. 3 5
      rtl/i8086/i8086.inc

+ 3 - 5
rtl/i8086/i8086.inc

@@ -27,11 +27,9 @@ end;
 {$define FPC_SYSTEM_HAS_PTR}
 function Ptr(sel,off: LongInt):farpointer;{$ifdef SYSTEMINLINE}inline;{$endif}assembler;nostackframe;
 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;
 
 {$define FPC_SYSTEM_HAS_CSEG}