paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 19:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed carg

Browse Source 
git-svn-id: trunk@3807 -
This commit is contained in:
florian 2006-06-05 14:25:39 +00:00
parent 03a0a4ca71
commit eb9eeffef0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/ucomplex.pp
View File

@ -12,6 +12,10 @@
**********************************************************************} **********************************************************************}
Unit UComplex; Unit UComplex;
{$ifndef VER2_0}
{$INLINE ON}
{$define TEST_INLINE}
{$endif VER2_0}
{ created for FPC by Pierre Muller } { created for FPC by Pierre Muller }
{ inpired from the complex unit from JD GAYRARD mai 95 } { inpired from the complex unit from JD GAYRARD mai 95 }
@ -347,7 +351,7 @@ Unit UComplex;
function carg (z : complex): real; function carg (z : complex): real;
{ argument : 0 / z = p ei0 } { argument : 0 / z = p ei0 }
begin begin
carg := arctan2(z.re, z.im); carg := arctan2(z.im, z.re);
end; end;
function cong (z : complex) : complex; function cong (z : complex) : complex;