* support_fixed, becuase fixed is not 100% yet for the m68k

rtl/inc/sstrings.inc

@@ -250,10 +250,12 @@ end;
 {$endif SUPPORT_COMP}
 
 
+{$ifdef SUPPORT_FIXED}
 procedure int_str_fixed(d : fixed;len,fr : longint;var s : string);[public, alias : 'STR_FIXED'];
 begin
    str_real(len,fr,d,rt_f32bit,s);
 end;
+{$endif SUPPORT_FIXED}
 
 
 procedure int_str_longint(v : longint;len : longint;var s : string);[public, alias : 'STR_LONGINT'];
@@ -715,7 +717,10 @@ end;
 
 {
   $Log$
-  Revision 1.7  1998-07-02 12:14:19  carl
+  Revision 1.8  1998-07-10 11:02:38  peter
+    * support_fixed, becuase fixed is not 100% yet for the m68k
+
+  Revision 1.7  1998/07/02 12:14:19  carl
     * No SINGLE type for non-intel processors!!
 
   Revision 1.6  1998/06/25 09:44:19  daniel

rtl/inc/systemh.inc

@@ -39,6 +39,7 @@ Type
   {$define SUPPORT_EXTENDED}
   {$define SUPPORT_COMP}
   {$define SUPPORT_SINGLE}
+  {$define SUPPORT_FIXED}
 {$endif}
 
 { some type aliases }
@@ -389,7 +390,10 @@ Procedure halt;
 
 {
   $Log$
-  Revision 1.16  1998-07-02 12:13:18  carl
+  Revision 1.17  1998-07-10 11:02:39  peter
+    * support_fixed, becuase fixed is not 100% yet for the m68k
+
+  Revision 1.16  1998/07/02 12:13:18  carl
     * No SINGLE type for m68k or other non-intel processors!
 
   Revision 1.15  1998/07/01 14:43:46  carl

rtl/inc/text.inc

@@ -537,6 +537,7 @@ End;
 {$endif SUPPORT_COMP}
 
 
+{$ifdef SUPPORT_FIXED}
 Procedure Write_Fixed(fixkomma,Len : Longint;var t : TextRec;r : fixed);[Public,Alias: 'WRITE_TEXT_FIXED'];
 var
   s : String;
@@ -545,6 +546,7 @@ Begin
   Str_real(Len,fixkomma,r,rt_f32bit,s);
   Write_Str(Len,t,s);
 End;
+{$endif SUPPORT_FIXED}
 
 
 Procedure Write_Boolean(Len : Longint;var t : TextRec;b : Boolean);[Public,Alias: 'WRITE_TEXT_BOOLEAN'];
@@ -1133,7 +1135,10 @@ end;
 
 {
   $Log$
-  Revision 1.15  1998-07-06 15:56:43  michael
+  Revision 1.16  1998-07-10 11:02:40  peter
+    * support_fixed, becuase fixed is not 100% yet for the m68k
+
+  Revision 1.15  1998/07/06 15:56:43  michael
   Added length checking for string reading
 
   Revision 1.14  1998/07/02 12:14:56  carl

rtl/m68k/m68k.inc

@@ -56,7 +56,7 @@
  end;
 
 
-   Procedure FillChar(var x; count: longint; value: byte);[alias: 'L_FILL_OBJECT'];
+   Procedure FillChar(var x; count: longint; value: byte);
    begin
      asm
       move.l 8(a6), a0      { destination                   }
@@ -696,6 +696,7 @@
       end;
 
 
+{$IFNDEF NEW_READWRITE}
     procedure f1;[public,alias: 'FLUSH_STDOUT'];
 
       begin
@@ -709,6 +710,7 @@
             movem.l (sp)+,d0-a7
          end;
       end;
+{$ENDIF NEW_READWRITE}
 
 Function Sptr : Longint;
 begin
@@ -746,7 +748,10 @@ XDEF RE_BOUNDS_CHECK
 
 {
   $Log$
-  Revision 1.7  1998-07-02 12:20:58  carl
+  Revision 1.8  1998-07-10 11:02:41  peter
+    * support_fixed, becuase fixed is not 100% yet for the m68k
+
+  Revision 1.7  1998/07/02 12:20:58  carl
     + Io-Error and overflow print erroraddr in hex now
 
   Revision 1.6  1998/07/01 14:25:57  carl