* optimized the i8086 version of Get8087CW

git-svn-id: trunk@27221 -

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;
 
 {****************************************************************************