paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:09:32 +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}
Test8086 : byte = 2; { Always i386 or newer }
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}
{$ifdef m68k}
Test68000 : byte = 0; { Must be determined at startup for both }
@ -466,7 +470,11 @@ const
{
$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
Revision 1.56 1999/05/06 09:05:14 peter

11
rtl/inc/text.inc
View File

@ -364,6 +364,8 @@ End;
{*****************************************************************************
Write(Ln)
Remarks:
The routines for the int64/qword are in int64.inc
*****************************************************************************}
Procedure WriteBuffer(var f:TextRec;var b;len:longint);
@ -639,6 +641,9 @@ End;
{*****************************************************************************
Read(Ln)
Remarks:
The routines for the int64/qword are in int64.inc
*****************************************************************************}
Function NextChar(var f:TextRec;var s:string):Boolean;
@ -1225,7 +1230,11 @@ end;
{
$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
Revision 1.45 1999/04/26 18:27:26 peter