>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
