From 22d1fb12e6462fc9300baa083abb889693f38f09 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 20 Apr 2000 13:12:40 +0000
Subject: [PATCH]  * fix bug visible in new tests/webtbs/tbug788 file

---
 rtl/objpas/math.pp | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/rtl/objpas/math.pp b/rtl/objpas/math.pp
index 3977eb5b0a..f0d510845e 100644
--- a/rtl/objpas/math.pp
+++ b/rtl/objpas/math.pp
@@ -47,6 +47,8 @@ interface
        { the original delphi functions use extended as argument, }
        { but I would prefer double, because 8 bytes is a very    }
        { natural size for the processor                          }
+       { WARNING : changing float type will                      }
+       { break all assembler code  PM                            }
        float = extended;
 
        tpaymenttime = (ptendofperiod,ptstartofperiod);
@@ -299,8 +301,8 @@ function arctan2( x,y : float) : float;
     fldt X
     fldt Y
     fpatan
-    leave
-    ret $20
+    //leave
+    // ret $20 This is wrong for 4 byte aligned OS !!
     end;
   {$endif}
   end;
@@ -675,7 +677,10 @@ end;
 end.
 {
     $Log$
-    Revision 1.16  2000-04-20 08:14:27  jonas
+    Revision 1.17  2000-04-20 13:12:40  pierre
+     * fix bug visible in new tests/webtbs/tbug788 file
+
+    Revision 1.16  2000/04/20 08:14:27  jonas
       * better arcsin/arccos from Arjan van Dijk
 
     Revision 1.15  2000/02/09 16:59:32  peter
@@ -690,4 +695,4 @@ end.
     Revision 1.12  1999/09/21 20:47:05  florian
       * ceil and floor still had bugs :), hopefully it's the final fix now
 
-}
+}
\ No newline at end of file