mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:26:15 +02:00
* use div instead of / in constant
This commit is contained in:
parent
b193bf7df3
commit
e3b5f763b7
@ -73,19 +73,19 @@ Const
|
|||||||
|
|
||||||
|
|
||||||
const
|
const
|
||||||
SI_PAD_SIZE = ((128/sizeof(longint)) - 3);
|
SI_PAD_SIZE = ((128 div sizeof(longint)) - 3);
|
||||||
|
|
||||||
type
|
type
|
||||||
tfpreg = record
|
tfpreg = record
|
||||||
significand: array[0..3] of word;
|
significand: array[0..3] of word;
|
||||||
exponent: word;
|
exponent: word;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
pfpstate = ^tfpstate;
|
pfpstate = ^tfpstate;
|
||||||
tfpstate = record
|
tfpstate = record
|
||||||
cw, sw, tag, ipoff, cssel, dataoff, datasel: cardinal;
|
cw, sw, tag, ipoff, cssel, dataoff, datasel: cardinal;
|
||||||
st: array[0..7] of tfpreg;
|
st: array[0..7] of tfpreg;
|
||||||
status: cardinal;
|
status: cardinal;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$Ifdef i386}
|
{$Ifdef i386}
|
||||||
@ -185,7 +185,10 @@ type
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.2 2000-09-11 14:05:31 marco
|
Revision 1.3 2001-04-04 22:50:59 peter
|
||||||
|
* use div instead of / in constant
|
||||||
|
|
||||||
|
Revision 1.2 2000/09/11 14:05:31 marco
|
||||||
* FreeBSD support and removed old signalhandling
|
* FreeBSD support and removed old signalhandling
|
||||||
|
|
||||||
Revision 1.1.2.1 2000/09/10 16:17:25 marco
|
Revision 1.1.2.1 2000/09/10 16:17:25 marco
|
||||||
|
Loading…
Reference in New Issue
Block a user