* fixed wrong commit

rtl/inc/genmath.inc

@@ -284,7 +284,6 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
     {*  to y.  Thus  x = y * 2**expn.                                    *}
     begin
       e :=0;
-      {!!!!!! fix me
       if (abs(x)<0.5) then
        While (abs(x)<0.5) do
        begin
@@ -297,7 +296,6 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
          x := x/2;
          Inc(e);
        end;
-      }
       frexp := x;
     end;
 
@@ -1022,7 +1020,10 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
 
 {
   $Log$
-  Revision 1.7  2002-10-07 15:10:45  florian
+  Revision 1.8  2002-10-07 15:15:02  florian
+    * fixed wrong commit
+
+  Revision 1.7  2002/10/07 15:10:45  florian
     + variant wrappers for cmp operators added
 
   Revision 1.6  2002/09/07 15:07:45  peter
@@ -1035,4 +1036,4 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
     * several fixes for linux/powerpc
     * several fixes to MT
 
-}
+}