Index: fpc-1.9/rtl/win32/sysutils.pp =================================================================== RCS file: /FPC/CVS/fpc/rtl/win32/sysutils.pp,v retrieving revision 1.43 diff -u -r1.43 sysutils.pp --- fpc-1.9/rtl/win32/sysutils.pp 2 Mar 2005 21:10:08 -0000 1.43 +++ fpc-1.9/rtl/win32/sysutils.pp 10 Mar 2005 10:43:08 -0000 @@ -609,10 +609,15 @@ Procedure InitInternational; +var +{ A call to GetSystemMetrics changes the value if the 8087 Control Word} + old8087CW: word; begin InitInternationalGeneric; - SysLocale.MBCS:=GetSystemMetrics(SM_DBCSENABLED)<>0; - SysLocale.RightToLeft:=GetSystemMetrics(SM_MIDEASTENABLED)<>0; + old8087CW:=Get8087CW; + SysLocale.MBCS:=GetSystemMetrics(SM_MIDEASTENABLED)<>0; + SysLocale.RightToLeft:=GetSystemMetrics(SM_DBCSENABLED)<>0; + Set8087CW(old8087CW); InitAnsi; GetFormatSettings; end;