From 47aed8b01fbb9c7abe9007e9f9bc0728e990f6d5 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 21 Mar 2014 13:46:38 +0000
Subject: [PATCH] * optimized the i8086 version of Get8087CW

git-svn-id: trunk@27221 -
---
 rtl/i8086/math.inc | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/rtl/i8086/math.inc b/rtl/i8086/math.inc
index 5549a6c658..b8707fff1e 100644
--- a/rtl/i8086/math.inc
+++ b/rtl/i8086/math.inc
@@ -33,13 +33,10 @@
 
     function Get8087CW:word;assembler;
       asm
-        push bp
-        mov bp, sp
-        push ax
-        fnstcw [bp - 2]
-        pop ax
-        mov sp, bp
-        pop bp
+	    push ax
+		mov bx, sp
+		fnstcw word ptr ss:[bx]
+		pop ax
       end;
 
 {****************************************************************************