[fpc-devel] Compiling error: Invalid Floating point operation

[Marc Weustink]

>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