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

[Vincent Snijders]

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.