paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 08:11:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* sincos result parameters changed from var to out

Browse Source 
git-svn-id: trunk@5807 -
This commit is contained in:
florian 2007-01-04 10:55:21 +00:00
parent 1eefed6cfe
commit f6fe70ae0c
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/math.pp
View File

@ -262,7 +262,7 @@ function radtocycle(rad : float) : float;
function tan(x : float) : float; function tan(x : float) : float;
function cotan(x : float) : float; function cotan(x : float) : float;
procedure sincos(theta : float;var sinus,cosinus : float); procedure sincos(theta : float;out sinus,cosinus : float);
{ inverse functions } { inverse functions }
@ -668,7 +668,7 @@ function cotan(x : float) : float;
cotan:=Cos(X)/Sin(X); cotan:=Cos(X)/Sin(X);
end; end;
procedure sincos(theta : float;var sinus,cosinus : float); procedure sincos(theta : float;out sinus,cosinus : float);
begin begin
sinus:=sin(theta); sinus:=sin(theta);