mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 00:08:16 +02:00
adf064cbb4
for the interface definition of float64 and float32 records, available to all systems if FPUNONE is not defined. rtl/inc/genmath.inc: Remove float64/float32, as they are now in rtl/inc/genmathh.inc rtl/inc/softfpu.pp: Use provided definitions of float32 and float64 if available (by checking presence of FPC_SYSTEM_HAS_floatXX macro) rtl/inc/systemh.inc: include genmathh.inc if FPUNONE is not defined. rtl/java/jsystemh_types.inc: Likewise. git-svn-id: trunk@45821 -
96 lines
4.0 KiB
PHP
96 lines
4.0 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2007 by Several contributors
|
|
|
|
Generic mathematical routines (on type real)
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
{*************************************************************************}
|
|
{ Credits }
|
|
{*************************************************************************}
|
|
{ Copyright Abandoned, 1987, Fred Fish }
|
|
{ }
|
|
{ This previously copyrighted work has been placed into the }
|
|
{ public domain by the author (Fred Fish) and may be freely used }
|
|
{ for any purpose, private or commercial. I would appreciate }
|
|
{ it, as a courtesy, if this notice is left in all copies and }
|
|
{ derivative works. Thank you, and enjoy... }
|
|
{ }
|
|
{ The author makes no warranty of any kind with respect to this }
|
|
{ product and explicitly disclaims any implied warranties of }
|
|
{ merchantability or fitness for any particular purpose. }
|
|
{-------------------------------------------------------------------------}
|
|
{ Copyright (c) 1992 Odent Jean Philippe }
|
|
{ }
|
|
{ The source can be modified as long as my name appears and some }
|
|
{ notes explaining the modifications done are included in the file. }
|
|
{-------------------------------------------------------------------------}
|
|
{ Copyright (c) 1997 Carl Eric Codere }
|
|
{-------------------------------------------------------------------------}
|
|
{-------------------------------------------------------------------------
|
|
Using functions from AMath/DAMath libraries, which are covered by the
|
|
following license:
|
|
|
|
(C) Copyright 2009-2013 Wolfgang Ehrhardt
|
|
|
|
This software is provided 'as-is', without any express or implied warranty.
|
|
In no event will the authors be held liable for any damages arising from
|
|
the use of this software.
|
|
|
|
Permission is granted to anyone to use this software for any purpose,
|
|
including commercial applications, and to alter it and redistribute it
|
|
freely, subject to the following restrictions:
|
|
|
|
1. The origin of this software must not be misrepresented; you must not
|
|
claim that you wrote the original software. If you use this software in
|
|
a product, an acknowledgment in the product documentation would be
|
|
appreciated but is not required.
|
|
|
|
2. Altered source versions must be plainly marked as such, and must not be
|
|
misrepresented as being the original software.
|
|
|
|
3. This notice may not be removed or altered from any source distribution.
|
|
----------------------------------------------------------------------------}
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_float64}
|
|
type
|
|
{ also necessary for Int() on systems with 64bit floats (JM) }
|
|
{ case record required to get correct alignement for floating point type }
|
|
{$ifdef ENDIAN_LITTLE}
|
|
float64 = record
|
|
case byte of
|
|
1: (dummy : double);
|
|
{$ifndef FPC_DOUBLE_HILO_SWAPPED}
|
|
2: (low,high: longword);
|
|
{$else}
|
|
2: (high,low: longword);
|
|
{$endif FPC_DOUBLE_HILO_SWAPPED}
|
|
end;
|
|
{$else}
|
|
float64 = record
|
|
case byte of
|
|
1: (dummy : double);
|
|
{$ifndef FPC_DOUBLE_HILO_SWAPPED}
|
|
2: (high,low: longword);
|
|
{$else}
|
|
2: (low,high: longword);
|
|
{$endif FPC_DOUBLE_HILO_SWAPPED}
|
|
end;
|
|
{$endif}
|
|
{$define FPC_SYSTEM_HAS_float64}
|
|
{$endif FPC_SYSTEM_HAS_float64}
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_float32}
|
|
type
|
|
float32 = longword;
|
|
{$define FPC_SYSTEM_HAS_float32}
|
|
{$endif FPC_SYSTEM_HAS_float32}
|
|
|