Vincent Snijders wrote:
SteveG wrote:
Happens on XPPro SP2 Pentium 4 3G as well
Florian Klaempfl wrote:
Vincent Snijders wrote:
[EMAIL PROTECTED] wrote:
Compiling current cvs version on Windows XP (cpu Athlon XP 1800)
give me Invalid Floating point operation in /rtl/objpas/sysutils/sysstrh.inc 49:
I fixed it decreasing MaxCurrency by 1.0 and increasing MinCurrency by the same quantity.
I didn't investigate it further. But I'm wondering why I'm the only one with this problem.
sysstrh.inc is version 1.15 last change by peter at 2005/2/14 17:13:31
You are not the only one, it happens to me too, using windows xp sp2 on a Pentium4 2.6 Ghz, but not using windows 2k on a Pentium4 1.5Ghz.
Also Florian could not reproduce this problem, but somebody else on the Lazarus list reported this too.
I tried with Windows XP now (AMD64 though), no success, i.e. it works
The call to GetSystemMetrics changes the FPU control word from $1372 to $1272, i.e. the Rounding precision is changed from extended to double.
In the attached patch I set it back to the original value. Now I can build a new compiler again. :-)
Regards, Vincent.
------------------------------------------------------------------------
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;
+ Set8087CW(old8087CW);
InitAnsi;
GetFormatSettings;
end;
Applied with some modifications :) Thx.
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
