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

+ fpuint64 to system unit interface added: if it is true, the rtl

Browse Source 
uses the fpu to do int64 operations, if possible
This commit is contained in:
florian 1999-06-30 22:17:22 +00:00
parent 497a3d3686
commit aaef13ac01
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/systemh.inc
View File

@ -105,6 +105,10 @@ const
{$ifdef i386} {$ifdef i386}
Test8086 : byte = 2; { Always i386 or newer } Test8086 : byte = 2; { Always i386 or newer }
Test8087 : byte = 3; { Always 387 or newer. Emulated if needed. } Test8087 : byte = 3; { Always 387 or newer. Emulated if needed. }
FPUInt64 : boolean = true; { set this to false if you don't want that }
{ the fpu does int64*int64 and }
{ int64 div int64, if the * is overflow }
{ checked, it is done in software }
{$endif i386} {$endif i386}
{$ifdef m68k} {$ifdef m68k}
Test68000 : byte = 0; { Must be determined at startup for both } Test68000 : byte = 0; { Must be determined at startup for both }
@ -466,7 +470,11 @@ const
{ {
$Log$ $Log$
Revision 1.57 1999-05-17 21:52:40 florian Revision 1.58 1999-06-30 22:17:22 florian
+ fpuint64 to system unit interface added: if it is true, the rtl
uses the fpu to do int64 operations, if possible
Revision 1.57 1999/05/17 21:52:40 florian
* most of the Object Pascal stuff moved to the system unit * most of the Object Pascal stuff moved to the system unit
Revision 1.56 1999/05/06 09:05:14 peter Revision 1.56 1999/05/06 09:05:14 peter

11
rtl/inc/text.inc
View File

@ -364,6 +364,8 @@ End;
{***************************************************************************** {*****************************************************************************
Write(Ln) Write(Ln)
Remarks:
The routines for the int64/qword are in int64.inc
*****************************************************************************} *****************************************************************************}
Procedure WriteBuffer(var f:TextRec;var b;len:longint); Procedure WriteBuffer(var f:TextRec;var b;len:longint);
@ -639,6 +641,9 @@ End;
{***************************************************************************** {*****************************************************************************
Read(Ln) Read(Ln)
Remarks:
The routines for the int64/qword are in int64.inc
*****************************************************************************} *****************************************************************************}
Function NextChar(var f:TextRec;var s:string):Boolean; Function NextChar(var f:TextRec;var s:string):Boolean;
@ -1225,7 +1230,11 @@ end;
{ {
$Log$ $Log$
Revision 1.46 1999-05-06 09:05:16 peter Revision 1.47 1999-06-30 22:17:24 florian
+ fpuint64 to system unit interface added: if it is true, the rtl
uses the fpu to do int64 operations, if possible
Revision 1.46 1999/05/06 09:05:16 peter
* generic write_float str_float * generic write_float str_float
Revision 1.45 1999/04/26 18:27:26 peter Revision 1.45 1999/04/26 18:27:26 peter