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

* frexp has out instead of var parameter

Browse Source 
git-svn-id: trunk@2040 -
This commit is contained in:
Jonas Maebe 2005-12-23 22:03:21 +00:00
parent 25bc4956a2
commit 4c3fb9ae00
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/cgenmath.inc
View File

@ -45,9 +45,9 @@
{$ifndef SYSTEM_HAS_FREXP} {$ifndef SYSTEM_HAS_FREXP}
{$define SYSTEM_HAS_FREXP} {$define SYSTEM_HAS_FREXP}
function c_frexp(x: double; var e: longint): double; cdecl; external 'c' name 'frexp'; function c_frexp(x: double; out e: longint): double; cdecl; external 'c' name 'frexp';
function frexp(x:Real; var e:Integer ):Real; {$ifdef MATHINLINE}inline;{$endif} function frexp(x:Real; out e:Integer ):Real; {$ifdef MATHINLINE}inline;{$endif}
var var
l: longint; l: longint;
begin begin

2
rtl/inc/genmath.inc
View File

@ -404,7 +404,7 @@ type
{$ifndef SYSTEM_HAS_FREXP} {$ifndef SYSTEM_HAS_FREXP}
function frexp(x:Real; var e:Integer ):Real; function frexp(x:Real; out e:Integer ):Real;
{* frexp() extracts the exponent from x. It returns an integer *} {* frexp() extracts the exponent from x. It returns an integer *}
{* power of two to expnt and the significand between 0.5 and 1 *} {* power of two to expnt and the significand between 0.5 and 1 *}
{* to y. Thus x = y * 2**expn. *} {* to y. Thus x = y * 2**expn. *}