From ce31428aa487bca0d94ae7676d0b3b332136271b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 15 Oct 1998 16:26:19 +0000
Subject: [PATCH]   + fpuinit   + end of backtrace indicator

---
 rtl/win32/syswin32.pp | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/rtl/win32/syswin32.pp b/rtl/win32/syswin32.pp
index 4c526cb6cf..f2259cdfa0 100644
--- a/rtl/win32/syswin32.pp
+++ b/rtl/win32/syswin32.pp
@@ -684,10 +684,20 @@ end;
 
 
 {$ASMMODE DIRECT}
+var
+  fpucw : word;
 procedure Entry;[public,alias: '_mainCRTStartup'];
+{ Can't use here any locals, because ebp is set to zero to indicate end of
+  backtrace (PFV) }
 begin
-   { call to the pascal main }
+   { init fpu and call to the pascal main }
+   fpucw:=$1332;
    asm
+     finit
+     fwait
+     fldcw _FPUCW
+
+     xorl %ebp,%ebp
      call PASCALMAIN
    end;
    { that's all folks }
@@ -746,7 +756,11 @@ end.
 
 {
   $Log$
-  Revision 1.20  1998-09-14 10:48:33  peter
+  Revision 1.21  1998-10-15 16:26:19  peter
+    + fpuinit
+    + end of backtrace indicator
+
+  Revision 1.20  1998/09/14 10:48:33  peter
     * FPC_ names
     * Heap manager is now system independent