paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 15:11:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed some (%ebp) to real parameters

Browse Source
This commit is contained in:
marco 2000-01-11 21:07:33 +00:00
parent edf419d5a7
commit dfe8d5e1ac
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/objpas/math.pp
View File

@ -254,12 +254,12 @@ procedure sincos(theta : float;var sinus,cosinus : float);
cosinus:=cos(theta); cosinus:=cos(theta);
{$else} {$else}
asm asm
fldl 8(%ebp) fldl theta
fsincos fsincos
fwait fwait
movl 20(%ebp),%eax movl cosinus,%eax
fstpl (%eax) fstpl (%eax)
movl 16(%ebp),%eax movl sinus,%eax
fstpl (%eax) fstpl (%eax)
end; end;
{$endif} {$endif}
@ -287,8 +287,8 @@ function arctan2( x,y : float) : float;
ArcTan2:=ArcTan(x/y); ArcTan2:=ArcTan(x/y);
{$else} {$else}
asm asm
fldt 8(%ebp) fldt X
fldt 18(%ebp) fldt Y
fpatan fpatan
leave leave
ret $20 ret $20
@ -666,7 +666,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.13 2000-01-07 16:41:43 daniel Revision 1.14 2000-01-11 21:07:33 marco
* Changed some (%ebp) to real parameters
Revision 1.13 2000/01/07 16:41:43 daniel
* copyright 2000 * copyright 2000
Revision 1.12 1999/09/21 20:47:05 florian Revision 1.12 1999/09/21 20:47:05 florian