Marc Weustink wrote:
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 ?
It was on purpose, but it is wrong.
Vincent.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
