>Vincent Snijders wrote: > >> >> 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; ^^^^^^^^^^^^^^ Is the swap of constants on purpose ? Marc _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel