paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 17:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
peter 1998-07-10 11:02:38 +00:00
parent 2cd0720f62
commit 702043e165
4 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/sstrings.inc
View File

@ -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

6
rtl/inc/systemh.inc
View File

@ -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

7
rtl/inc/text.inc
View File

@ -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

9
rtl/m68k/m68k.inc
View File

@ -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