| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 |
- {
- $Id$
- This file is part of the Free Pascal run time library.
- Copyright (c) 1993,97 by Florian Klaempfl,
- member of the Free Pascal development team
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- { declarations of the math routines }
- {$ifdef DEFAULT_EXTENDED}
- function abs(d : extended) : extended;
- function arctan(d : extended) : extended;
- function cos(d : extended) : extended;
- function exp(d : extended) : extended;
- function frac(d : extended) : extended;
- function int(d : extended) : extended;
- function ln(d : extended) : extended;
- function pi : extended;
- function round(d : extended) : longint;
- function sin(d : extended) : extended;
- function sqr(d : extended) : extended;
- function sqrt(d : extended) : extended;
- function trunc(d : extended) : longint;
- function power(bas,expo : extended) : extended;
- {$else DEFAULT_EXTENDED}
- function abs(d : real) : real;
- function arctan(d : real) : real;
- function cos(d : real) : real;
- function exp(d : real) : real;
- function frac(d : real) : real;
- function int(d : real) : real;
- function ln(d : real) : real;
- function round(d : real) : longint;
- function sin(d : real) : real;
- function sqr(d : real) : real;
- function sqrt(d : real) : real;
- function trunc(d : real) : longint;
- function power(bas,expo : real) : real;
- function pi : real;
- {$endif DEFAULT_EXTENDED}
- function power(bas,expo : longint) : longint;
- {$ifdef _SUPPORT_FIXED}
- function sqrt(d : fixed) : fixed;
- function Round(x: fixed): longint;
- function sqr(d : fixed) : fixed;
- function abs(d : fixed) : fixed;
- function frac(d : fixed) : fixed;
- function trunc(d : fixed) : longint;
- function int(d : fixed) : fixed;
- {$endif SUPPORT_FIXED}
- {
- $Log$
- Revision 1.5 1998-08-11 21:39:05 peter
- * splitted default_extended from support_extended
- Revision 1.4 1998/08/11 00:05:24 peter
- * $ifdef ver0_99_5 updates
- Revision 1.3 1998/08/08 12:28:11 florian
- * a lot small fixes to the extended data type work
- Revision 1.2 1998/05/12 10:42:45 peter
- * moved getopts to inc/, all supported OS's need argc,argv exported
- + strpas, strlen are now exported in the systemunit
- * removed logs
- * removed $ifdef ver_above
- }
|
