* disabled FIXED data type per default

rtl/i386/math.inc

@@ -255,7 +255,7 @@
                          Fixed data type routines
  ****************************************************************************}
 
-{$ifdef _SUPPORT_FIXED} { Not yet allowed }
+{$ifdef HASFIXED} { Not yet allowed }
 
     function sqrt(d : fixed) : fixed;
 
@@ -366,11 +366,14 @@
       Round:= longint(highf);
     end;
 
-{$endif SUPPORT_FIXED}
+{$endif HASFIXED}
 
 {
   $Log$
-  Revision 1.20  2000-02-09 16:59:29  peter
+  Revision 1.21  2000-02-15 14:37:36  florian
+    * disabled FIXED data type per default
+
+  Revision 1.20  2000/02/09 16:59:29  peter
     * truncated log
 
   Revision 1.19  2000/01/07 16:41:33  daniel
@@ -385,5 +388,4 @@
 
   Revision 1.16  1999/09/15 20:24:11  florian
     * some math functions are now coded inline by the compiler
-
 }

rtl/i386/mmx.pp

@@ -22,7 +22,9 @@ unit mmx;
        tmmxbyte = array[0..7] of byte;
        tmmxword = array[0..3] of word;
        tmmxinteger = array[0..3] of integer;
+{$ifdef HASFIXED}
        tmmxfixed = array[0..3] of fixed16;
+{$endif HASFIXED}
        tmmxlongint = array[0..1] of longint;
        tmmxcardinal = array[0..1] of cardinal;
        { for the AMD 3D }
@@ -32,7 +34,9 @@ unit mmx;
        pmmxbyte = ^tmmxbyte;
        pmmxword = ^tmmxword;
        pmmxinteger = ^tmmxinteger;
+{$ifdef HASFIXED}
        pmmxfixed = ^tmmxfixed;
+{$endif HASFIXED}
        pmmxlongint = ^tmmxlongint;
        pmmxcardinal = ^tmmxcardinal;
        { for the AMD 3D }
@@ -123,7 +127,10 @@ begin
 end.
 {
     $Log$
-    Revision 1.6  2000-02-09 16:59:29  peter
+    Revision 1.7  2000-02-15 14:37:36  florian
+      * disabled FIXED data type per default
+
+    Revision 1.6  2000/02/09 16:59:29  peter
       * truncated log
 
     Revision 1.5  2000/01/07 16:41:33  daniel

rtl/inc/mathh.inc

@@ -49,7 +49,7 @@
 
     function power(bas,expo : longint) : longint;
 
-{$ifdef _SUPPORT_FIXED}
+{$ifdef HASFIXED}
     function sqrt(d : fixed) : fixed;
     function Round(x: fixed): longint;
     function sqr(d : fixed) : fixed;
@@ -57,11 +57,14 @@
     function frac(d : fixed) : fixed;
     function trunc(d : fixed) : longint;
     function int(d : fixed) : fixed;
-{$endif SUPPORT_FIXED}
+{$endif HASFIXED}
 
 {
   $Log$
-  Revision 1.8  2000-02-09 16:59:30  peter
+  Revision 1.9  2000-02-15 14:36:57  florian
+    * disabled FIXED data type per default
+
+  Revision 1.8  2000/02/09 16:59:30  peter
     * truncated log
 
   Revision 1.7  2000/01/07 16:41:34  daniel

rtl/objpas/typinfo.pp

@@ -38,7 +38,9 @@ unit typinfo;
        PDouble      =^Double;
        PExtended    =^Extended;
        PComp        =^Comp;
+{$ifdef HASFIXED}
        PFixed16     =^Fixed16;
+{$endif HASFIXED}
        { Doesn't exist ?
        PFIxed32  = ^Fixed32;
        }
@@ -816,7 +818,10 @@ end.
 
 {
   $Log$
-  Revision 1.37  2000-02-09 16:59:33  peter
+  Revision 1.38  2000-02-15 14:39:56  florian
+    * disabled FIXED data type per default
+
+  Revision 1.37  2000/02/09 16:59:33  peter
     * truncated log
 
   Revision 1.36  2000/01/07 16:41:44  daniel