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

* fix bug visible in new tests/webtbs/tbug788 file

Browse Source
This commit is contained in:
pierre 2000-04-20 13:12:40 +00:00
parent ab1254da22
commit 22d1fb12e6
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/math.pp
View File

@ -47,6 +47,8 @@ interface
{ the original delphi functions use extended as argument, }
{ but I would prefer double, because 8 bytes is a very }
{ natural size for the processor }
{ WARNING : changing float type will }
{ break all assembler code PM }
float = extended;
tpaymenttime = (ptendofperiod,ptstartofperiod);
@ -299,8 +301,8 @@ function arctan2( x,y : float) : float;
fldt X
fldt Y
fpatan
leave
ret $20
//leave
// ret $20 This is wrong for 4 byte aligned OS !!
end;
{$endif}
end;
@ -675,7 +677,10 @@ end;
end.
{
$Log$
Revision 1.16 2000-04-20 08:14:27 jonas
Revision 1.17 2000-04-20 13:12:40 pierre
* fix bug visible in new tests/webtbs/tbug788 file
Revision 1.16 2000/04/20 08:14:27 jonas
* better arcsin/arccos from Arjan van Dijk
Revision 1.15 2000/02/09 16:59:32 peter
@ -690,4 +695,4 @@ end.
Revision 1.12 1999/09/21 20:47:05 florian
* ceil and floor still had bugs :), hopefully it's the final fix now
}
}