{
    $Id: math.inc,v 1.1.2.8 2001/07/31 01:14:35 carl Exp $
    Copyright (c) 1998-2001 by the FPC Team

    680x0 specific floating point mathematical routines

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    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.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

 ****************************************************************************
}

{$i lowmath.inc}

{ Linux emulates the complete FPU opcodes }
{ therefore use it in that case           }
{$ifdef LINUX}

{$define FPC_SYSTEM_HAS_TRUNC}
function trunc(d : double) : longint;assembler;[internconst:in_const_trunc];
asm
  fintrz.d d,fp0
  fmove.l  fp0,d0
end;

{$endif}


{
 $Log: math.inc,v $
 Revision 1.1.2.8  2001/07/31 01:14:35  carl
 - removed FPU_IN_RTL (replaced by ifdef linux)

 Revision 1.1.2.7  2001/07/30 12:16:43  pierre
  * use fintrz for m68k linux as long as the generic code fails

 Revision 1.1.2.6  2001/07/30 00:02:00  carl
 + new file (currently almost empty)

}
