paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ also init Default8087CW in DetectFPU

Browse Source 
git-svn-id: trunk@26201 -
This commit is contained in:
nickysn 2013-12-08 22:39:48 +00:00
parent 180ddf2ddd
commit d0a7522e1f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/i8086/i8086.inc
View File

@ -216,7 +216,7 @@ const
fpucw : word = $1300 or FPU_StackUnderflow or FPU_Underflow or FPU_Denormal;
}
{ Detects the FPU and initializes the Test8087 variable:
{ Detects the FPU and initializes the Test8087 variable (and Default8087CW):
0 = NO FPU
1 = 8087
2 = 80287
@ -262,6 +262,10 @@ procedure DetectFPU;
@@Done:
mov Test8087, bl
end ['AX','BX'];
if Test8087<=2 then
Default8087CW:=$1330
else
Default8087CW:=$1332;
end;
{$define FPC_SYSTEM_HAS_SYSINITFPU}