1996-09-18 05:35:50 +00:00
|
|
|
|
/* More subroutines needed by GCC output code on some machines. */
|
|
|
|
|
/* Compile this one with gcc. */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
|
2002-10-10 04:50:29 +00:00
|
|
|
|
2000, 2001, 2002 Free Software Foundation, Inc.
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
This file is part of GCC.
|
|
|
|
|
|
|
|
|
|
GCC 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, or (at your option) any later
|
|
|
|
|
version.
|
|
|
|
|
|
|
|
|
|
In addition to the permissions in the GNU General Public License, the
|
|
|
|
|
Free Software Foundation gives you unlimited permission to link the
|
|
|
|
|
compiled version of this file into combinations with other programs,
|
|
|
|
|
and to distribute those combinations without any restriction coming
|
|
|
|
|
from the use of this file. (The General Public License restrictions
|
|
|
|
|
do apply in other respects; for example, they cover modification of
|
|
|
|
|
the file, and distribution when not linked into a combine
|
|
|
|
|
executable.)
|
|
|
|
|
|
|
|
|
|
GCC 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.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
2002-02-06 04:49:08 +00:00
|
|
|
|
along with GCC; see the file COPYING. If not, write to the Free
|
|
|
|
|
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|
|
|
|
02111-1307, USA. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* It is incorrect to include config.h here, because this file is being
|
|
|
|
|
compiled for the target, and hence definitions concerning only the host
|
|
|
|
|
do not apply. */
|
|
|
|
|
|
|
|
|
|
#include "tconfig.h"
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#include "tsystem.h"
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Don't use `fancy_abort' here even if config.h says to use it. */
|
|
|
|
|
#ifdef abort
|
|
|
|
|
#undef abort
|
|
|
|
|
#endif
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#include "libgcc2.h"
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
#ifdef DECLARE_LIBRARY_RENAMES
|
|
|
|
|
DECLARE_LIBRARY_RENAMES
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2003-07-11 04:00:23 +00:00
|
|
|
|
|
|
|
|
|
#if defined (L_negdi2)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__negdi2 (DWtype u)
|
|
|
|
|
{
|
|
|
|
|
DWunion w;
|
|
|
|
|
DWunion uu;
|
|
|
|
|
|
|
|
|
|
uu.ll = u;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w.s.low = -uu.s.low;
|
|
|
|
|
w.s.high = -uu.s.high - ((UWtype) w.s.low > 0);
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return w.ll;
|
|
|
|
|
}
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef L_addvsi3
|
|
|
|
|
Wtype
|
|
|
|
|
__addvsi3 (Wtype a, Wtype b)
|
|
|
|
|
{
|
|
|
|
|
Wtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w = a + b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (b >= 0 ? w < a : w > a)
|
|
|
|
|
abort ();
|
|
|
|
|
|
|
|
|
|
return w;
|
|
|
|
|
}
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
#ifdef L_addvdi3
|
|
|
|
|
DWtype
|
|
|
|
|
__addvdi3 (DWtype a, DWtype b)
|
|
|
|
|
{
|
|
|
|
|
DWtype w;
|
|
|
|
|
|
|
|
|
|
w = a + b;
|
|
|
|
|
|
|
|
|
|
if (b >= 0 ? w < a : w > a)
|
|
|
|
|
abort ();
|
1999-10-27 09:45:47 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return w;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_subvsi3
|
|
|
|
|
Wtype
|
|
|
|
|
__subvsi3 (Wtype a, Wtype b)
|
|
|
|
|
{
|
|
|
|
|
#ifdef L_addvsi3
|
|
|
|
|
return __addvsi3 (a, (-b));
|
|
|
|
|
#else
|
|
|
|
|
DWtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w = a - b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (b >= 0 ? w > a : w < a)
|
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
#ifdef L_subvdi3
|
|
|
|
|
DWtype
|
|
|
|
|
__subvdi3 (DWtype a, DWtype b)
|
|
|
|
|
{
|
|
|
|
|
#ifdef L_addvdi3
|
|
|
|
|
return (a, (-b));
|
|
|
|
|
#else
|
|
|
|
|
DWtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w = a - b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (b >= 0 ? w > a : w < a)
|
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return w;
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_mulvsi3
|
|
|
|
|
Wtype
|
|
|
|
|
__mulvsi3 (Wtype a, Wtype b)
|
|
|
|
|
{
|
|
|
|
|
DWtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w = a * b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (((a >= 0) == (b >= 0)) ? w < 0 : w > 0)
|
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return w;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
#ifdef L_negvsi2
|
|
|
|
|
Wtype
|
|
|
|
|
__negvsi2 (Wtype a)
|
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
Wtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = -a;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
if (a >= 0 ? w > 0 : w < 0)
|
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return w;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_negvdi2
|
|
|
|
|
DWtype
|
|
|
|
|
__negvdi2 (DWtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
DWtype w;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = -a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (a >= 0 ? w > 0 : w < 0)
|
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
return w;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_absvsi2
|
|
|
|
|
Wtype
|
|
|
|
|
__absvsi2 (Wtype a)
|
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
Wtype w = a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef L_negvsi2
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = __negvsi2 (a);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#else
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = -a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (w < 0)
|
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
return w;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef L_absvdi2
|
|
|
|
|
DWtype
|
|
|
|
|
__absvdi2 (DWtype a)
|
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
DWtype w = a;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef L_negvsi2
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = __negvsi2 (a);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#else
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = -a;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (w < 0)
|
|
|
|
|
abort ();
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
return w;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
#ifdef L_mulvdi3
|
|
|
|
|
DWtype
|
|
|
|
|
__mulvdi3 (DWtype u, DWtype v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
DWtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w = u * v;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (((u >= 0) == (v >= 0)) ? w < 0 : w > 0)
|
|
|
|
|
abort ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
/* Unless shift functions are defined whith full ANSI prototypes,
|
|
|
|
|
parameter b will be promoted to int if word_type is smaller than an int. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#ifdef L_lshrdi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__lshrdi3 (DWtype u, word_type b)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
word_type bm;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion uu;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (b == 0)
|
|
|
|
|
return u;
|
|
|
|
|
|
|
|
|
|
uu.ll = u;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
bm = (sizeof (Wtype) * BITS_PER_UNIT) - b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (bm <= 0)
|
|
|
|
|
{
|
|
|
|
|
w.s.high = 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w.s.low = (UWtype) uu.s.high >> -bm;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype carries = (UWtype) uu.s.high << bm;
|
|
|
|
|
|
|
|
|
|
w.s.high = (UWtype) uu.s.high >> b;
|
|
|
|
|
w.s.low = ((UWtype) uu.s.low >> b) | carries;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return w.ll;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_ashldi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__ashldi3 (DWtype u, word_type b)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
word_type bm;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion uu;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (b == 0)
|
|
|
|
|
return u;
|
|
|
|
|
|
|
|
|
|
uu.ll = u;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
bm = (sizeof (Wtype) * BITS_PER_UNIT) - b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (bm <= 0)
|
|
|
|
|
{
|
|
|
|
|
w.s.low = 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w.s.high = (UWtype) uu.s.low << -bm;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype carries = (UWtype) uu.s.low >> bm;
|
|
|
|
|
|
|
|
|
|
w.s.low = (UWtype) uu.s.low << b;
|
|
|
|
|
w.s.high = ((UWtype) uu.s.high << b) | carries;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return w.ll;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_ashrdi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__ashrdi3 (DWtype u, word_type b)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
word_type bm;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion uu;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (b == 0)
|
|
|
|
|
return u;
|
|
|
|
|
|
|
|
|
|
uu.ll = u;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
bm = (sizeof (Wtype) * BITS_PER_UNIT) - b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (bm <= 0)
|
|
|
|
|
{
|
|
|
|
|
/* w.s.high = 1..1 or 0..0 */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w.s.high = uu.s.high >> (sizeof (Wtype) * BITS_PER_UNIT - 1);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
w.s.low = uu.s.high >> -bm;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype carries = (UWtype) uu.s.high << bm;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
w.s.high = uu.s.high >> b;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w.s.low = ((UWtype) uu.s.low >> b) | carries;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return w.ll;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_ffsdi2
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__ffsdi2 (DWtype u)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion uu;
|
|
|
|
|
UWtype word, count, add;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
uu.ll = u;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (uu.s.low != 0)
|
|
|
|
|
word = uu.s.low, add = 0;
|
|
|
|
|
else if (uu.s.high != 0)
|
|
|
|
|
word = uu.s.high, add = BITS_PER_UNIT * sizeof (Wtype);
|
|
|
|
|
else
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
count_trailing_zeros (count, word);
|
|
|
|
|
return count + add + 1;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_muldi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__muldi3 (DWtype u, DWtype v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion w;
|
|
|
|
|
DWunion uu, vv;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
uu.ll = u,
|
|
|
|
|
vv.ll = v;
|
|
|
|
|
|
|
|
|
|
w.ll = __umulsidi3 (uu.s.low, vv.s.low);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w.s.high += ((UWtype) uu.s.low * (UWtype) vv.s.high
|
|
|
|
|
+ (UWtype) uu.s.high * (UWtype) vv.s.low);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
return w.ll;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
#if (defined (L_udivdi3) || defined (L_divdi3) || \
|
|
|
|
|
defined (L_umoddi3) || defined (L_moddi3))
|
|
|
|
|
#if defined (sdiv_qrnnd)
|
|
|
|
|
#define L_udiv_w_sdiv
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#ifdef L_udiv_w_sdiv
|
|
|
|
|
#if defined (sdiv_qrnnd)
|
2003-07-11 04:00:23 +00:00
|
|
|
|
#if (defined (L_udivdi3) || defined (L_divdi3) || \
|
|
|
|
|
defined (L_umoddi3) || defined (L_moddi3))
|
|
|
|
|
static inline __attribute__ ((__always_inline__))
|
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype
|
|
|
|
|
__udiv_w_sdiv (UWtype *rp, UWtype a1, UWtype a0, UWtype d)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype q, r;
|
|
|
|
|
UWtype c0, c1, b1;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if ((Wtype) d >= 0)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (a1 < d - a1 - (a0 >> (W_TYPE_SIZE - 1)))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* dividend, divisor, and quotient are nonnegative */
|
|
|
|
|
sdiv_qrnnd (q, r, a1, a0, d);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Compute c1*2^32 + c0 = a1*2^32 + a0 - 2^31*d */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
sub_ddmmss (c1, c0, a1, a0, d >> 1, d << (W_TYPE_SIZE - 1));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Divide (c1*2^32 + c0) by d */
|
|
|
|
|
sdiv_qrnnd (q, r, c1, c0, d);
|
|
|
|
|
/* Add 2^31 to quotient */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
q += (UWtype) 1 << (W_TYPE_SIZE - 1);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
b1 = d >> 1; /* d/2, between 2^30 and 2^31 - 1 */
|
|
|
|
|
c1 = a1 >> 1; /* A/2 */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
c0 = (a1 << (W_TYPE_SIZE - 1)) + (a0 >> 1);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (a1 < b1) /* A < 2^32*b1, so A/2 < 2^31*b1 */
|
|
|
|
|
{
|
|
|
|
|
sdiv_qrnnd (q, r, c1, c0, b1); /* (A/2) / (d/2) */
|
|
|
|
|
|
|
|
|
|
r = 2*r + (a0 & 1); /* Remainder from A/(2*b1) */
|
|
|
|
|
if ((d & 1) != 0)
|
|
|
|
|
{
|
|
|
|
|
if (r >= q)
|
|
|
|
|
r = r - q;
|
|
|
|
|
else if (q - r <= d)
|
|
|
|
|
{
|
|
|
|
|
r = r - q + d;
|
|
|
|
|
q--;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
r = r - q + 2*d;
|
|
|
|
|
q -= 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (c1 < b1) /* So 2^31 <= (A/2)/b1 < 2^32 */
|
|
|
|
|
{
|
|
|
|
|
c1 = (b1 - 1) - c1;
|
|
|
|
|
c0 = ~c0; /* logical NOT */
|
|
|
|
|
|
|
|
|
|
sdiv_qrnnd (q, r, c1, c0, b1); /* (A/2) / (d/2) */
|
|
|
|
|
|
|
|
|
|
q = ~q; /* (A/2)/b1 */
|
|
|
|
|
r = (b1 - 1) - r;
|
|
|
|
|
|
|
|
|
|
r = 2*r + (a0 & 1); /* A/(2*b1) */
|
|
|
|
|
|
|
|
|
|
if ((d & 1) != 0)
|
|
|
|
|
{
|
|
|
|
|
if (r >= q)
|
|
|
|
|
r = r - q;
|
|
|
|
|
else if (q - r <= d)
|
|
|
|
|
{
|
|
|
|
|
r = r - q + d;
|
|
|
|
|
q--;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
r = r - q + 2*d;
|
|
|
|
|
q -= 2;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else /* Implies c1 = b1 */
|
|
|
|
|
{ /* Hence a1 = d - 1 = 2*b1 - 1 */
|
|
|
|
|
if (a0 >= -d)
|
|
|
|
|
{
|
|
|
|
|
q = -1;
|
|
|
|
|
r = a0 + d;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
q = -2;
|
|
|
|
|
r = a0 + 2*d;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
*rp = r;
|
|
|
|
|
return q;
|
|
|
|
|
}
|
|
|
|
|
#else
|
|
|
|
|
/* If sdiv_qrnnd doesn't exist, define dummy __udiv_w_sdiv. */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype
|
|
|
|
|
__udiv_w_sdiv (UWtype *rp __attribute__ ((__unused__)),
|
|
|
|
|
UWtype a1 __attribute__ ((__unused__)),
|
|
|
|
|
UWtype a0 __attribute__ ((__unused__)),
|
|
|
|
|
UWtype d __attribute__ ((__unused__)))
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if (defined (L_udivdi3) || defined (L_divdi3) || \
|
|
|
|
|
defined (L_umoddi3) || defined (L_moddi3))
|
|
|
|
|
#define L_udivmoddi4
|
|
|
|
|
#endif
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef L_clz
|
|
|
|
|
const UQItype __clz_tab[] =
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
|
|
|
|
|
6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
|
|
|
|
|
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
|
|
|
|
|
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
|
|
|
|
|
8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
|
|
|
|
|
8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
|
|
|
|
|
8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
|
|
|
|
|
8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
|
|
|
|
|
};
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_udivmoddi4
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
#if (defined (L_udivdi3) || defined (L_divdi3) || \
|
|
|
|
|
defined (L_umoddi3) || defined (L_moddi3))
|
2003-07-11 04:00:23 +00:00
|
|
|
|
static inline __attribute__ ((__always_inline__))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype
|
|
|
|
|
__udivmoddi4 (UDWtype n, UDWtype d, UDWtype *rp)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion ww;
|
|
|
|
|
DWunion nn, dd;
|
|
|
|
|
DWunion rr;
|
|
|
|
|
UWtype d0, d1, n0, n1, n2;
|
|
|
|
|
UWtype q0, q1;
|
|
|
|
|
UWtype b, bm;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
nn.ll = n;
|
|
|
|
|
dd.ll = d;
|
|
|
|
|
|
|
|
|
|
d0 = dd.s.low;
|
|
|
|
|
d1 = dd.s.high;
|
|
|
|
|
n0 = nn.s.low;
|
|
|
|
|
n1 = nn.s.high;
|
|
|
|
|
|
|
|
|
|
#if !UDIV_NEEDS_NORMALIZATION
|
|
|
|
|
if (d1 == 0)
|
|
|
|
|
{
|
|
|
|
|
if (d0 > n1)
|
|
|
|
|
{
|
|
|
|
|
/* 0q = nn / 0D */
|
|
|
|
|
|
|
|
|
|
udiv_qrnnd (q0, n0, n1, n0, d0);
|
|
|
|
|
q1 = 0;
|
|
|
|
|
|
|
|
|
|
/* Remainder in n0. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* qq = NN / 0d */
|
|
|
|
|
|
|
|
|
|
if (d0 == 0)
|
|
|
|
|
d0 = 1 / d0; /* Divide intentionally by zero. */
|
|
|
|
|
|
|
|
|
|
udiv_qrnnd (q1, n1, 0, n1, d0);
|
|
|
|
|
udiv_qrnnd (q0, n0, n1, n0, d0);
|
|
|
|
|
|
|
|
|
|
/* Remainder in n0. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (rp != 0)
|
|
|
|
|
{
|
|
|
|
|
rr.s.low = n0;
|
|
|
|
|
rr.s.high = 0;
|
|
|
|
|
*rp = rr.ll;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#else /* UDIV_NEEDS_NORMALIZATION */
|
|
|
|
|
|
|
|
|
|
if (d1 == 0)
|
|
|
|
|
{
|
|
|
|
|
if (d0 > n1)
|
|
|
|
|
{
|
|
|
|
|
/* 0q = nn / 0D */
|
|
|
|
|
|
|
|
|
|
count_leading_zeros (bm, d0);
|
|
|
|
|
|
|
|
|
|
if (bm != 0)
|
|
|
|
|
{
|
|
|
|
|
/* Normalize, i.e. make the most significant bit of the
|
|
|
|
|
denominator set. */
|
|
|
|
|
|
|
|
|
|
d0 = d0 << bm;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
n1 = (n1 << bm) | (n0 >> (W_TYPE_SIZE - bm));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
n0 = n0 << bm;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
udiv_qrnnd (q0, n0, n1, n0, d0);
|
|
|
|
|
q1 = 0;
|
|
|
|
|
|
|
|
|
|
/* Remainder in n0 >> bm. */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* qq = NN / 0d */
|
|
|
|
|
|
|
|
|
|
if (d0 == 0)
|
|
|
|
|
d0 = 1 / d0; /* Divide intentionally by zero. */
|
|
|
|
|
|
|
|
|
|
count_leading_zeros (bm, d0);
|
|
|
|
|
|
|
|
|
|
if (bm == 0)
|
|
|
|
|
{
|
|
|
|
|
/* From (n1 >= d0) /\ (the most significant bit of d0 is set),
|
|
|
|
|
conclude (the most significant bit of n1 is set) /\ (the
|
|
|
|
|
leading quotient digit q1 = 1).
|
|
|
|
|
|
|
|
|
|
This special case is necessary, not an optimization.
|
2002-02-06 04:49:08 +00:00
|
|
|
|
(Shifts counts of W_TYPE_SIZE are undefined.) */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
n1 -= d0;
|
|
|
|
|
q1 = 1;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Normalize. */
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
b = W_TYPE_SIZE - bm;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
d0 = d0 << bm;
|
|
|
|
|
n2 = n1 >> b;
|
|
|
|
|
n1 = (n1 << bm) | (n0 >> b);
|
|
|
|
|
n0 = n0 << bm;
|
|
|
|
|
|
|
|
|
|
udiv_qrnnd (q1, n1, n2, n1, d0);
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
/* n1 != d0... */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
udiv_qrnnd (q0, n0, n1, n0, d0);
|
|
|
|
|
|
|
|
|
|
/* Remainder in n0 >> bm. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (rp != 0)
|
|
|
|
|
{
|
|
|
|
|
rr.s.low = n0 >> bm;
|
|
|
|
|
rr.s.high = 0;
|
|
|
|
|
*rp = rr.ll;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif /* UDIV_NEEDS_NORMALIZATION */
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (d1 > n1)
|
|
|
|
|
{
|
|
|
|
|
/* 00 = nn / DD */
|
|
|
|
|
|
|
|
|
|
q0 = 0;
|
|
|
|
|
q1 = 0;
|
|
|
|
|
|
|
|
|
|
/* Remainder in n1n0. */
|
|
|
|
|
if (rp != 0)
|
|
|
|
|
{
|
|
|
|
|
rr.s.low = n0;
|
|
|
|
|
rr.s.high = n1;
|
|
|
|
|
*rp = rr.ll;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* 0q = NN / dd */
|
|
|
|
|
|
|
|
|
|
count_leading_zeros (bm, d1);
|
|
|
|
|
if (bm == 0)
|
|
|
|
|
{
|
|
|
|
|
/* From (n1 >= d1) /\ (the most significant bit of d1 is set),
|
|
|
|
|
conclude (the most significant bit of n1 is set) /\ (the
|
|
|
|
|
quotient digit q0 = 0 or 1).
|
|
|
|
|
|
|
|
|
|
This special case is necessary, not an optimization. */
|
|
|
|
|
|
|
|
|
|
/* The condition on the next line takes advantage of that
|
|
|
|
|
n1 >= d1 (true due to program flow). */
|
|
|
|
|
if (n1 > d1 || n0 >= d0)
|
|
|
|
|
{
|
|
|
|
|
q0 = 1;
|
|
|
|
|
sub_ddmmss (n1, n0, n1, n0, d1, d0);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
q0 = 0;
|
|
|
|
|
|
|
|
|
|
q1 = 0;
|
|
|
|
|
|
|
|
|
|
if (rp != 0)
|
|
|
|
|
{
|
|
|
|
|
rr.s.low = n0;
|
|
|
|
|
rr.s.high = n1;
|
|
|
|
|
*rp = rr.ll;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype m1, m0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Normalize. */
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
b = W_TYPE_SIZE - bm;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
d1 = (d1 << bm) | (d0 >> b);
|
|
|
|
|
d0 = d0 << bm;
|
|
|
|
|
n2 = n1 >> b;
|
|
|
|
|
n1 = (n1 << bm) | (n0 >> b);
|
|
|
|
|
n0 = n0 << bm;
|
|
|
|
|
|
|
|
|
|
udiv_qrnnd (q0, n1, n2, n1, d1);
|
|
|
|
|
umul_ppmm (m1, m0, q0, d0);
|
|
|
|
|
|
|
|
|
|
if (m1 > n1 || (m1 == n1 && m0 > n0))
|
|
|
|
|
{
|
|
|
|
|
q0--;
|
|
|
|
|
sub_ddmmss (m1, m0, m1, m0, d1, d0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
q1 = 0;
|
|
|
|
|
|
|
|
|
|
/* Remainder in (n1n0 - m1m0) >> bm. */
|
|
|
|
|
if (rp != 0)
|
|
|
|
|
{
|
|
|
|
|
sub_ddmmss (n1, n0, n1, n0, m1, m0);
|
|
|
|
|
rr.s.low = (n1 << b) | (n0 >> bm);
|
|
|
|
|
rr.s.high = n1 >> bm;
|
|
|
|
|
*rp = rr.ll;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
ww.s.low = q0;
|
|
|
|
|
ww.s.high = q1;
|
|
|
|
|
return ww.ll;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_divdi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__divdi3 (DWtype u, DWtype v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
word_type c = 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion uu, vv;
|
|
|
|
|
DWtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
uu.ll = u;
|
|
|
|
|
vv.ll = v;
|
|
|
|
|
|
|
|
|
|
if (uu.s.high < 0)
|
|
|
|
|
c = ~c,
|
2003-07-11 04:00:23 +00:00
|
|
|
|
uu.ll = -uu.ll;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (vv.s.high < 0)
|
|
|
|
|
c = ~c,
|
2003-07-11 04:00:23 +00:00
|
|
|
|
vv.ll = -vv.ll;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
w = __udivmoddi4 (uu.ll, vv.ll, (UDWtype *) 0);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (c)
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = -w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
return w;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_moddi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__moddi3 (DWtype u, DWtype v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
word_type c = 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion uu, vv;
|
|
|
|
|
DWtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
uu.ll = u;
|
|
|
|
|
vv.ll = v;
|
|
|
|
|
|
|
|
|
|
if (uu.s.high < 0)
|
|
|
|
|
c = ~c,
|
2003-07-11 04:00:23 +00:00
|
|
|
|
uu.ll = -uu.ll;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (vv.s.high < 0)
|
2003-07-11 04:00:23 +00:00
|
|
|
|
vv.ll = -vv.ll;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
(void) __udivmoddi4 (uu.ll, vv.ll, &w);
|
|
|
|
|
if (c)
|
2003-07-11 04:00:23 +00:00
|
|
|
|
w = -w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
return w;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_umoddi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype
|
|
|
|
|
__umoddi3 (UDWtype u, UDWtype v)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype w;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
(void) __udivmoddi4 (u, v, &w);
|
|
|
|
|
|
|
|
|
|
return w;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_udivdi3
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype
|
|
|
|
|
__udivdi3 (UDWtype n, UDWtype d)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return __udivmoddi4 (n, d, (UDWtype *) 0);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_cmpdi2
|
|
|
|
|
word_type
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__cmpdi2 (DWtype a, DWtype b)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion au, bu;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
au.ll = a, bu.ll = b;
|
|
|
|
|
|
|
|
|
|
if (au.s.high < bu.s.high)
|
|
|
|
|
return 0;
|
|
|
|
|
else if (au.s.high > bu.s.high)
|
|
|
|
|
return 2;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if ((UWtype) au.s.low < (UWtype) bu.s.low)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
else if ((UWtype) au.s.low > (UWtype) bu.s.low)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 2;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_ucmpdi2
|
|
|
|
|
word_type
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__ucmpdi2 (DWtype a, DWtype b)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWunion au, bu;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
au.ll = a, bu.ll = b;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if ((UWtype) au.s.high < (UWtype) bu.s.high)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
else if ((UWtype) au.s.high > (UWtype) bu.s.high)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 2;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if ((UWtype) au.s.low < (UWtype) bu.s.low)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
else if ((UWtype) au.s.low > (UWtype) bu.s.low)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 2;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(L_fixunstfdi) && (LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 128)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__fixunstfDI (TFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
TFtype b;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype v;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (a < 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
/* Compute high word of result, as a flonum. */
|
|
|
|
|
b = (a / HIGH_WORD_COEFF);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Convert that to fixed (but not to DWtype!),
|
1996-09-18 05:35:50 +00:00
|
|
|
|
and shift it into the high word. */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v = (UWtype) b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
v <<= WORD_SIZE;
|
|
|
|
|
/* Remove high part from the TFtype, leaving the low part as flonum. */
|
|
|
|
|
a -= (TFtype)v;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Convert that to fixed (but not to DWtype!) and add it in.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
Sometimes A comes out negative. This is significant, since
|
|
|
|
|
A has more bits than a long int does. */
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v -= (UWtype) (- a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v += (UWtype) a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(L_fixtfdi) && (LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 128)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
1999-08-30 00:01:36 +00:00
|
|
|
|
__fixtfdi (TFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return - __fixunstfDI (-a);
|
|
|
|
|
return __fixunstfDI (a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(L_fixunsxfdi) && (LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 96)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__fixunsxfDI (XFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
XFtype b;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype v;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (a < 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
/* Compute high word of result, as a flonum. */
|
|
|
|
|
b = (a / HIGH_WORD_COEFF);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Convert that to fixed (but not to DWtype!),
|
1996-09-18 05:35:50 +00:00
|
|
|
|
and shift it into the high word. */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v = (UWtype) b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
v <<= WORD_SIZE;
|
|
|
|
|
/* Remove high part from the XFtype, leaving the low part as flonum. */
|
|
|
|
|
a -= (XFtype)v;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Convert that to fixed (but not to DWtype!) and add it in.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
Sometimes A comes out negative. This is significant, since
|
|
|
|
|
A has more bits than a long int does. */
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v -= (UWtype) (- a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v += (UWtype) a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(L_fixxfdi) && (LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 96)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
1999-08-30 00:01:36 +00:00
|
|
|
|
__fixxfdi (XFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return - __fixunsxfDI (-a);
|
|
|
|
|
return __fixunsxfDI (a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_fixunsdfdi
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__fixunsdfDI (DFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
DFtype b;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype v;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (a < 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
/* Compute high word of result, as a flonum. */
|
|
|
|
|
b = (a / HIGH_WORD_COEFF);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Convert that to fixed (but not to DWtype!),
|
1996-09-18 05:35:50 +00:00
|
|
|
|
and shift it into the high word. */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v = (UWtype) b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
v <<= WORD_SIZE;
|
|
|
|
|
/* Remove high part from the DFtype, leaving the low part as flonum. */
|
|
|
|
|
a -= (DFtype)v;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Convert that to fixed (but not to DWtype!) and add it in.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
Sometimes A comes out negative. This is significant, since
|
|
|
|
|
A has more bits than a long int does. */
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v -= (UWtype) (- a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v += (UWtype) a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_fixdfdi
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
1999-08-30 00:01:36 +00:00
|
|
|
|
__fixdfdi (DFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return - __fixunsdfDI (-a);
|
|
|
|
|
return __fixunsdfDI (a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_fixunssfdi
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
|
|
|
|
__fixunssfDI (SFtype original_a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* Convert the SFtype to a DFtype, because that is surely not going
|
|
|
|
|
to lose any bits. Some day someone else can write a faster version
|
|
|
|
|
that avoids converting to DFtype, and verify it really works right. */
|
|
|
|
|
DFtype a = original_a;
|
|
|
|
|
DFtype b;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UDWtype v;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (a < 0)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
/* Compute high word of result, as a flonum. */
|
|
|
|
|
b = (a / HIGH_WORD_COEFF);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Convert that to fixed (but not to DWtype!),
|
1996-09-18 05:35:50 +00:00
|
|
|
|
and shift it into the high word. */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v = (UWtype) b;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
v <<= WORD_SIZE;
|
|
|
|
|
/* Remove high part from the DFtype, leaving the low part as flonum. */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
a -= (DFtype) v;
|
|
|
|
|
/* Convert that to fixed (but not to DWtype!) and add it in.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
Sometimes A comes out negative. This is significant, since
|
|
|
|
|
A has more bits than a long int does. */
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v -= (UWtype) (- a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
2002-02-06 04:49:08 +00:00
|
|
|
|
v += (UWtype) a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return v;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_fixsfdi
|
2002-02-06 04:49:08 +00:00
|
|
|
|
DWtype
|
1996-09-18 05:35:50 +00:00
|
|
|
|
__fixsfdi (SFtype a)
|
|
|
|
|
{
|
|
|
|
|
if (a < 0)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return - __fixunssfDI (-a);
|
|
|
|
|
return __fixunssfDI (a);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(L_floatdixf) && (LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 96)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_HALFWORD_COEFF (((UDWtype) 1) << (WORD_SIZE / 2))
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
XFtype
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__floatdixf (DWtype u)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
XFtype d;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
d = (Wtype) (u >> WORD_SIZE);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
d *= HIGH_HALFWORD_COEFF;
|
|
|
|
|
d *= HIGH_HALFWORD_COEFF;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
d += (UWtype) (u & (HIGH_WORD_COEFF - 1));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
return d;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(L_floatditf) && (LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 128)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_HALFWORD_COEFF (((UDWtype) 1) << (WORD_SIZE / 2))
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
TFtype
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__floatditf (DWtype u)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
TFtype d;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
d = (Wtype) (u >> WORD_SIZE);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
d *= HIGH_HALFWORD_COEFF;
|
|
|
|
|
d *= HIGH_HALFWORD_COEFF;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
d += (UWtype) (u & (HIGH_WORD_COEFF - 1));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
return d;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_floatdidf
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_HALFWORD_COEFF (((UDWtype) 1) << (WORD_SIZE / 2))
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
DFtype
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__floatdidf (DWtype u)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
DFtype d;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
d = (Wtype) (u >> WORD_SIZE);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
d *= HIGH_HALFWORD_COEFF;
|
|
|
|
|
d *= HIGH_HALFWORD_COEFF;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
d += (UWtype) (u & (HIGH_WORD_COEFF - 1));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
return d;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_floatdisf
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define WORD_SIZE (sizeof (Wtype) * BITS_PER_UNIT)
|
|
|
|
|
#define HIGH_HALFWORD_COEFF (((UDWtype) 1) << (WORD_SIZE / 2))
|
|
|
|
|
#define HIGH_WORD_COEFF (((UDWtype) 1) << WORD_SIZE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
#define DI_SIZE (sizeof (DWtype) * BITS_PER_UNIT)
|
|
|
|
|
#define DF_SIZE DBL_MANT_DIG
|
|
|
|
|
#define SF_SIZE FLT_MANT_DIG
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
SFtype
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__floatdisf (DWtype u)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* Do the calculation in DFmode
|
|
|
|
|
so that we don't lose any of the precision of the high word
|
|
|
|
|
while multiplying it. */
|
|
|
|
|
DFtype f;
|
|
|
|
|
|
|
|
|
|
/* Protect against double-rounding error.
|
|
|
|
|
Represent any low-order bits, that might be truncated in DFmode,
|
|
|
|
|
by a bit that won't be lost. The bit can go in anywhere below the
|
|
|
|
|
rounding position of the SFmode. A fixed mask and bit position
|
|
|
|
|
handles all usual configurations. It doesn't handle the case
|
|
|
|
|
of 128-bit DImode, however. */
|
|
|
|
|
if (DF_SIZE < DI_SIZE
|
|
|
|
|
&& DF_SIZE > (DI_SIZE - DF_SIZE + SF_SIZE))
|
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define REP_BIT ((UDWtype) 1 << (DI_SIZE - DF_SIZE))
|
|
|
|
|
if (! (- ((DWtype) 1 << DF_SIZE) < u
|
|
|
|
|
&& u < ((DWtype) 1 << DF_SIZE)))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if ((UDWtype) u & (REP_BIT - 1))
|
2002-10-10 04:50:29 +00:00
|
|
|
|
{
|
|
|
|
|
u &= ~ (REP_BIT - 1);
|
|
|
|
|
u |= REP_BIT;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
2002-02-06 04:49:08 +00:00
|
|
|
|
f = (Wtype) (u >> WORD_SIZE);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
f *= HIGH_HALFWORD_COEFF;
|
|
|
|
|
f *= HIGH_HALFWORD_COEFF;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
f += (UWtype) (u & (HIGH_WORD_COEFF - 1));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
return (SFtype) f;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(L_fixunsxfsi) && LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 96
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Reenable the normal types, in case limits.h needs them. */
|
|
|
|
|
#undef char
|
|
|
|
|
#undef short
|
|
|
|
|
#undef int
|
|
|
|
|
#undef long
|
|
|
|
|
#undef unsigned
|
|
|
|
|
#undef float
|
|
|
|
|
#undef double
|
|
|
|
|
#undef MIN
|
|
|
|
|
#undef MAX
|
|
|
|
|
#include <limits.h>
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype
|
|
|
|
|
__fixunsxfSI (XFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (a >= - (DFtype) Wtype_MIN)
|
|
|
|
|
return (Wtype) (a + Wtype_MIN) - Wtype_MIN;
|
|
|
|
|
return (Wtype) a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_fixunsdfsi
|
|
|
|
|
/* Reenable the normal types, in case limits.h needs them. */
|
|
|
|
|
#undef char
|
|
|
|
|
#undef short
|
|
|
|
|
#undef int
|
|
|
|
|
#undef long
|
|
|
|
|
#undef unsigned
|
|
|
|
|
#undef float
|
|
|
|
|
#undef double
|
|
|
|
|
#undef MIN
|
|
|
|
|
#undef MAX
|
|
|
|
|
#include <limits.h>
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype
|
|
|
|
|
__fixunsdfSI (DFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (a >= - (DFtype) Wtype_MIN)
|
|
|
|
|
return (Wtype) (a + Wtype_MIN) - Wtype_MIN;
|
|
|
|
|
return (Wtype) a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_fixunssfsi
|
|
|
|
|
/* Reenable the normal types, in case limits.h needs them. */
|
|
|
|
|
#undef char
|
|
|
|
|
#undef short
|
|
|
|
|
#undef int
|
|
|
|
|
#undef long
|
|
|
|
|
#undef unsigned
|
|
|
|
|
#undef float
|
|
|
|
|
#undef double
|
|
|
|
|
#undef MIN
|
|
|
|
|
#undef MAX
|
|
|
|
|
#include <limits.h>
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
UWtype
|
|
|
|
|
__fixunssfSI (SFtype a)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (a >= - (SFtype) Wtype_MIN)
|
|
|
|
|
return (Wtype) (a + Wtype_MIN) - Wtype_MIN;
|
|
|
|
|
return (Wtype) a;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* From here on down, the routines use normal data types. */
|
|
|
|
|
|
|
|
|
|
#define SItype bogus_type
|
|
|
|
|
#define USItype bogus_type
|
|
|
|
|
#define DItype bogus_type
|
|
|
|
|
#define UDItype bogus_type
|
|
|
|
|
#define SFtype bogus_type
|
|
|
|
|
#define DFtype bogus_type
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#undef Wtype
|
|
|
|
|
#undef UWtype
|
|
|
|
|
#undef HWtype
|
|
|
|
|
#undef UHWtype
|
|
|
|
|
#undef DWtype
|
|
|
|
|
#undef UDWtype
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
#undef char
|
|
|
|
|
#undef short
|
|
|
|
|
#undef int
|
|
|
|
|
#undef long
|
|
|
|
|
#undef unsigned
|
|
|
|
|
#undef float
|
|
|
|
|
#undef double
|
|
|
|
|
|
|
|
|
|
#ifdef L__gcc_bcmp
|
|
|
|
|
|
|
|
|
|
/* Like bcmp except the sign is meaningful.
|
|
|
|
|
Result is negative if S1 is less than S2,
|
|
|
|
|
positive if S1 is greater, 0 if S1 and S2 are equal. */
|
|
|
|
|
|
|
|
|
|
int
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__gcc_bcmp (const unsigned char *s1, const unsigned char *s2, size_t size)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
while (size > 0)
|
|
|
|
|
{
|
|
|
|
|
unsigned char c1 = *s1++, c2 = *s2++;
|
|
|
|
|
if (c1 != c2)
|
|
|
|
|
return c1 - c2;
|
|
|
|
|
size--;
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* __eprintf used to be used by GCC's private version of <assert.h>.
|
|
|
|
|
We no longer provide that header, but this routine remains in libgcc.a
|
|
|
|
|
for binary backward compatibility. Note that it is not included in
|
|
|
|
|
the shared version of libgcc. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#ifdef L_eprintf
|
|
|
|
|
#ifndef inhibit_libc
|
|
|
|
|
|
|
|
|
|
#undef NULL /* Avoid errors if stdio.h and our stddef.h mismatch. */
|
|
|
|
|
#include <stdio.h>
|
1999-10-27 09:45:47 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
void
|
1999-08-30 00:01:36 +00:00
|
|
|
|
__eprintf (const char *string, const char *expression,
|
|
|
|
|
unsigned int line, const char *filename)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
fprintf (stderr, string, expression, line, filename);
|
|
|
|
|
fflush (stderr);
|
|
|
|
|
abort ();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef L_bb
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
struct bb_function_info {
|
|
|
|
|
long checksum;
|
|
|
|
|
int arc_count;
|
|
|
|
|
const char *name;
|
|
|
|
|
};
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Structure emitted by --profile-arcs */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
struct bb
|
|
|
|
|
{
|
|
|
|
|
long zero_word;
|
|
|
|
|
const char *filename;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
gcov_type *counts;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
long ncounts;
|
|
|
|
|
struct bb *next;
|
|
|
|
|
|
|
|
|
|
/* Older GCC's did not emit these fields. */
|
2003-07-11 04:00:23 +00:00
|
|
|
|
long sizeof_bb;
|
|
|
|
|
struct bb_function_info *function_infos;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
#ifndef inhibit_libc
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Arc profile dumper. Requires atexit and stdio. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
#undef NULL /* Avoid errors if stdio.h and our stddef.h mismatch. */
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#include "gcov-io.h"
|
|
|
|
|
#include <string.h>
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef TARGET_HAS_F_SETLKW
|
|
|
|
|
#include <fcntl.h>
|
|
|
|
|
#include <errno.h>
|
|
|
|
|
#endif
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Chain of per-object file bb structures. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static struct bb *bb_head;
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Dump the coverage counts. We merge with existing counts when
|
|
|
|
|
possible, to avoid growing the .da files ad infinitum. */
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
void
|
|
|
|
|
__bb_exit_func (void)
|
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
struct bb *ptr;
|
2003-07-11 04:00:23 +00:00
|
|
|
|
int i;
|
|
|
|
|
gcov_type program_sum = 0;
|
|
|
|
|
gcov_type program_max = 0;
|
|
|
|
|
long program_arcs = 0;
|
|
|
|
|
gcov_type merged_sum = 0;
|
|
|
|
|
gcov_type merged_max = 0;
|
|
|
|
|
long merged_arcs = 0;
|
|
|
|
|
|
|
|
|
|
#if defined (TARGET_HAS_F_SETLKW)
|
|
|
|
|
struct flock s_flock;
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
s_flock.l_type = F_WRLCK;
|
|
|
|
|
s_flock.l_whence = SEEK_SET;
|
|
|
|
|
s_flock.l_start = 0;
|
|
|
|
|
s_flock.l_len = 0; /* Until EOF. */
|
|
|
|
|
s_flock.l_pid = getpid ();
|
|
|
|
|
#endif
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Non-merged stats for this program. */
|
|
|
|
|
for (ptr = bb_head; ptr; ptr = ptr->next)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
for (i = 0; i < ptr->ncounts; i++)
|
|
|
|
|
{
|
|
|
|
|
program_sum += ptr->counts[i];
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (ptr->counts[i] > program_max)
|
|
|
|
|
program_max = ptr->counts[i];
|
|
|
|
|
}
|
|
|
|
|
program_arcs += ptr->ncounts;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (ptr = bb_head; ptr; ptr = ptr->next)
|
|
|
|
|
{
|
|
|
|
|
FILE *da_file;
|
|
|
|
|
gcov_type object_max = 0;
|
|
|
|
|
gcov_type object_sum = 0;
|
|
|
|
|
long object_functions = 0;
|
|
|
|
|
int merging = 0;
|
|
|
|
|
int error = 0;
|
|
|
|
|
struct bb_function_info *fn_info;
|
|
|
|
|
gcov_type *count_ptr;
|
|
|
|
|
|
|
|
|
|
/* Open for modification */
|
2002-02-06 04:49:08 +00:00
|
|
|
|
da_file = fopen (ptr->filename, "r+b");
|
2003-07-11 04:00:23 +00:00
|
|
|
|
|
|
|
|
|
if (da_file)
|
|
|
|
|
merging = 1;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Try for appending */
|
|
|
|
|
da_file = fopen (ptr->filename, "ab");
|
|
|
|
|
/* Some old systems might not allow the 'b' mode modifier.
|
|
|
|
|
Therefore, try to open without it. This can lead to a
|
|
|
|
|
race condition so that when you delete and re-create the
|
|
|
|
|
file, the file might be opened in text mode, but then,
|
|
|
|
|
you shouldn't delete the file in the first place. */
|
|
|
|
|
if (!da_file)
|
|
|
|
|
da_file = fopen (ptr->filename, "a");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!da_file)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
fprintf (stderr, "arc profiling: Can't open output file %s.\n",
|
|
|
|
|
ptr->filename);
|
2003-07-11 04:00:23 +00:00
|
|
|
|
ptr->filename = 0;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
continue;
|
|
|
|
|
}
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
#if defined (TARGET_HAS_F_SETLKW)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* After a fork, another process might try to read and/or write
|
|
|
|
|
the same file simultanously. So if we can, lock the file to
|
|
|
|
|
avoid race conditions. */
|
2003-07-11 04:00:23 +00:00
|
|
|
|
while (fcntl (fileno (da_file), F_SETLKW, &s_flock)
|
|
|
|
|
&& errno == EINTR)
|
|
|
|
|
continue;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#endif
|
2003-07-11 04:00:23 +00:00
|
|
|
|
for (fn_info = ptr->function_infos; fn_info->arc_count != -1; fn_info++)
|
|
|
|
|
object_functions++;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (merging)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Merge data from file. */
|
|
|
|
|
long tmp_long;
|
|
|
|
|
gcov_type tmp_gcov;
|
|
|
|
|
|
|
|
|
|
if (/* magic */
|
|
|
|
|
(__read_long (&tmp_long, da_file, 4) || tmp_long != -123l)
|
|
|
|
|
/* functions in object file. */
|
|
|
|
|
|| (__read_long (&tmp_long, da_file, 4)
|
|
|
|
|
|| tmp_long != object_functions)
|
|
|
|
|
/* extension block, skipped */
|
|
|
|
|
|| (__read_long (&tmp_long, da_file, 4)
|
|
|
|
|
|| fseek (da_file, tmp_long, SEEK_CUR)))
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
read_error:;
|
|
|
|
|
fprintf (stderr, "arc profiling: Error merging output file %s.\n",
|
1999-08-30 00:01:36 +00:00
|
|
|
|
ptr->filename);
|
2003-07-11 04:00:23 +00:00
|
|
|
|
clearerr (da_file);
|
1999-08-30 00:01:36 +00:00
|
|
|
|
}
|
2003-07-11 04:00:23 +00:00
|
|
|
|
else
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Merge execution counts for each function. */
|
|
|
|
|
count_ptr = ptr->counts;
|
|
|
|
|
|
|
|
|
|
for (fn_info = ptr->function_infos; fn_info->arc_count != -1;
|
|
|
|
|
fn_info++)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (/* function name delim */
|
|
|
|
|
(__read_long (&tmp_long, da_file, 4)
|
|
|
|
|
|| tmp_long != -1)
|
|
|
|
|
/* function name length */
|
|
|
|
|
|| (__read_long (&tmp_long, da_file, 4)
|
|
|
|
|
|| tmp_long != (long) strlen (fn_info->name))
|
|
|
|
|
/* skip string */
|
|
|
|
|
|| fseek (da_file, ((tmp_long + 1) + 3) & ~3, SEEK_CUR)
|
|
|
|
|
/* function name delim */
|
|
|
|
|
|| (__read_long (&tmp_long, da_file, 4)
|
|
|
|
|
|| tmp_long != -1))
|
|
|
|
|
goto read_error;
|
|
|
|
|
|
|
|
|
|
if (/* function checksum */
|
|
|
|
|
(__read_long (&tmp_long, da_file, 4)
|
|
|
|
|
|| tmp_long != fn_info->checksum)
|
|
|
|
|
/* arc count */
|
|
|
|
|
|| (__read_long (&tmp_long, da_file, 4)
|
|
|
|
|
|| tmp_long != fn_info->arc_count))
|
|
|
|
|
goto read_error;
|
|
|
|
|
|
|
|
|
|
for (i = fn_info->arc_count; i > 0; i--, count_ptr++)
|
|
|
|
|
if (__read_gcov_type (&tmp_gcov, da_file, 8))
|
|
|
|
|
goto read_error;
|
|
|
|
|
else
|
|
|
|
|
*count_ptr += tmp_gcov;
|
1999-08-30 00:01:36 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
2003-07-11 04:00:23 +00:00
|
|
|
|
fseek (da_file, 0, SEEK_SET);
|
2002-02-06 04:49:08 +00:00
|
|
|
|
}
|
2003-07-11 04:00:23 +00:00
|
|
|
|
|
|
|
|
|
/* Calculate the per-object statistics. */
|
|
|
|
|
for (i = 0; i < ptr->ncounts; i++)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
object_sum += ptr->counts[i];
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (ptr->counts[i] > object_max)
|
|
|
|
|
object_max = ptr->counts[i];
|
|
|
|
|
}
|
|
|
|
|
merged_sum += object_sum;
|
|
|
|
|
if (merged_max < object_max)
|
|
|
|
|
merged_max = object_max;
|
|
|
|
|
merged_arcs += ptr->ncounts;
|
|
|
|
|
|
|
|
|
|
/* Write out the data. */
|
|
|
|
|
if (/* magic */
|
|
|
|
|
__write_long (-123, da_file, 4)
|
|
|
|
|
/* number of functions in object file. */
|
|
|
|
|
|| __write_long (object_functions, da_file, 4)
|
|
|
|
|
/* length of extra data in bytes. */
|
|
|
|
|
|| __write_long ((4 + 8 + 8) + (4 + 8 + 8), da_file, 4)
|
|
|
|
|
|
|
|
|
|
/* whole program statistics. If merging write per-object
|
|
|
|
|
now, rewrite later */
|
|
|
|
|
/* number of instrumented arcs. */
|
|
|
|
|
|| __write_long (merging ? ptr->ncounts : program_arcs, da_file, 4)
|
|
|
|
|
/* sum of counters. */
|
|
|
|
|
|| __write_gcov_type (merging ? object_sum : program_sum, da_file, 8)
|
|
|
|
|
/* maximal counter. */
|
|
|
|
|
|| __write_gcov_type (merging ? object_max : program_max, da_file, 8)
|
|
|
|
|
|
|
|
|
|
/* per-object statistics. */
|
|
|
|
|
/* number of counters. */
|
|
|
|
|
|| __write_long (ptr->ncounts, da_file, 4)
|
|
|
|
|
/* sum of counters. */
|
|
|
|
|
|| __write_gcov_type (object_sum, da_file, 8)
|
|
|
|
|
/* maximal counter. */
|
|
|
|
|
|| __write_gcov_type (object_max, da_file, 8))
|
|
|
|
|
{
|
|
|
|
|
write_error:;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
fprintf (stderr, "arc profiling: Error writing output file %s.\n",
|
|
|
|
|
ptr->filename);
|
2003-07-11 04:00:23 +00:00
|
|
|
|
error = 1;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Write execution counts for each function. */
|
|
|
|
|
count_ptr = ptr->counts;
|
|
|
|
|
|
|
|
|
|
for (fn_info = ptr->function_infos; fn_info->arc_count != -1;
|
|
|
|
|
fn_info++)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (__write_gcov_string (fn_info->name,
|
|
|
|
|
strlen (fn_info->name), da_file, -1)
|
|
|
|
|
|| __write_long (fn_info->checksum, da_file, 4)
|
|
|
|
|
|| __write_long (fn_info->arc_count, da_file, 4))
|
|
|
|
|
goto write_error;
|
|
|
|
|
|
|
|
|
|
for (i = fn_info->arc_count; i > 0; i--, count_ptr++)
|
|
|
|
|
if (__write_gcov_type (*count_ptr, da_file, 8))
|
|
|
|
|
goto write_error; /* RIP Edsger Dijkstra */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
if (fclose (da_file))
|
|
|
|
|
{
|
|
|
|
|
fprintf (stderr, "arc profiling: Error closing output file %s.\n",
|
|
|
|
|
ptr->filename);
|
|
|
|
|
error = 1;
|
|
|
|
|
}
|
|
|
|
|
if (error || !merging)
|
|
|
|
|
ptr->filename = 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Upate whole program statistics. */
|
|
|
|
|
for (ptr = bb_head; ptr; ptr = ptr->next)
|
|
|
|
|
if (ptr->filename)
|
|
|
|
|
{
|
|
|
|
|
FILE *da_file;
|
|
|
|
|
|
|
|
|
|
da_file = fopen (ptr->filename, "r+b");
|
|
|
|
|
if (!da_file)
|
|
|
|
|
{
|
|
|
|
|
fprintf (stderr, "arc profiling: Cannot reopen %s.\n",
|
|
|
|
|
ptr->filename);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#if defined (TARGET_HAS_F_SETLKW)
|
|
|
|
|
while (fcntl (fileno (da_file), F_SETLKW, &s_flock)
|
|
|
|
|
&& errno == EINTR)
|
|
|
|
|
continue;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (fseek (da_file, 4 * 3, SEEK_SET)
|
|
|
|
|
/* number of instrumented arcs. */
|
|
|
|
|
|| __write_long (merged_arcs, da_file, 4)
|
|
|
|
|
/* sum of counters. */
|
|
|
|
|
|| __write_gcov_type (merged_sum, da_file, 8)
|
|
|
|
|
/* maximal counter. */
|
|
|
|
|
|| __write_gcov_type (merged_max, da_file, 8))
|
|
|
|
|
fprintf (stderr, "arc profiling: Error updating program header %s.\n",
|
|
|
|
|
ptr->filename);
|
|
|
|
|
if (fclose (da_file))
|
|
|
|
|
fprintf (stderr, "arc profiling: Error reclosing %s\n",
|
|
|
|
|
ptr->filename);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Add a new object file onto the bb chain. Invoked automatically
|
|
|
|
|
when running an object file's global ctors. */
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
void
|
|
|
|
|
__bb_init_func (struct bb *blocks)
|
|
|
|
|
{
|
|
|
|
|
if (blocks->zero_word)
|
|
|
|
|
return;
|
|
|
|
|
|
2003-07-11 04:00:23 +00:00
|
|
|
|
/* Initialize destructor and per-thread data. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (!bb_head)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
atexit (__bb_exit_func);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Set up linked list. */
|
|
|
|
|
blocks->zero_word = 1;
|
|
|
|
|
blocks->next = bb_head;
|
|
|
|
|
bb_head = blocks;
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Called before fork or exec - write out profile information gathered so
|
|
|
|
|
far and reset it to zero. This avoids duplication or loss of the
|
|
|
|
|
profile information gathered so far. */
|
2003-07-11 04:00:23 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
void
|
|
|
|
|
__bb_fork_func (void)
|
|
|
|
|
{
|
|
|
|
|
struct bb *ptr;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__bb_exit_func ();
|
|
|
|
|
for (ptr = bb_head; ptr != (struct bb *) 0; ptr = ptr->next)
|
|
|
|
|
{
|
|
|
|
|
long i;
|
|
|
|
|
for (i = ptr->ncounts - 1; i >= 0; i--)
|
|
|
|
|
ptr->counts[i] = 0;
|
|
|
|
|
}
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#endif /* not inhibit_libc */
|
|
|
|
|
#endif /* L_bb */
|
|
|
|
|
|
|
|
|
|
#ifdef L_clear_cache
|
|
|
|
|
/* Clear part of an instruction cache. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#define INSN_CACHE_PLANE_SIZE (INSN_CACHE_SIZE / INSN_CACHE_DEPTH)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
void
|
|
|
|
|
__clear_cache (char *beg __attribute__((__unused__)),
|
|
|
|
|
char *end __attribute__((__unused__)))
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef CLEAR_INSN_CACHE
|
|
|
|
|
CLEAR_INSN_CACHE (beg, end);
|
|
|
|
|
#else
|
|
|
|
|
#ifdef INSN_CACHE_SIZE
|
|
|
|
|
static char array[INSN_CACHE_SIZE + INSN_CACHE_PLANE_SIZE + INSN_CACHE_LINE_WIDTH];
|
|
|
|
|
static int initialized;
|
|
|
|
|
int offset;
|
|
|
|
|
void *start_addr
|
|
|
|
|
void *end_addr;
|
|
|
|
|
typedef (*function_ptr) (void);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#if (INSN_CACHE_SIZE / INSN_CACHE_LINE_WIDTH) < 16
|
|
|
|
|
/* It's cheaper to clear the whole cache.
|
|
|
|
|
Put in a series of jump instructions so that calling the beginning
|
|
|
|
|
of the cache will clear the whole thing. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (! initialized)
|
|
|
|
|
{
|
|
|
|
|
int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1)
|
|
|
|
|
& -INSN_CACHE_LINE_WIDTH);
|
|
|
|
|
int end_ptr = ptr + INSN_CACHE_SIZE;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
while (ptr < end_ptr)
|
|
|
|
|
{
|
|
|
|
|
*(INSTRUCTION_TYPE *)ptr
|
|
|
|
|
= JUMP_AHEAD_INSTRUCTION + INSN_CACHE_LINE_WIDTH;
|
|
|
|
|
ptr += INSN_CACHE_LINE_WIDTH;
|
|
|
|
|
}
|
|
|
|
|
*(INSTRUCTION_TYPE *) (ptr - INSN_CACHE_LINE_WIDTH) = RETURN_INSTRUCTION;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
initialized = 1;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Call the beginning of the sequence. */
|
|
|
|
|
(((function_ptr) (((int) array + INSN_CACHE_LINE_WIDTH - 1)
|
|
|
|
|
& -INSN_CACHE_LINE_WIDTH))
|
|
|
|
|
());
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#else /* Cache is large. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
if (! initialized)
|
|
|
|
|
{
|
|
|
|
|
int ptr = (((int) array + INSN_CACHE_LINE_WIDTH - 1)
|
|
|
|
|
& -INSN_CACHE_LINE_WIDTH);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
while (ptr < (int) array + sizeof array)
|
|
|
|
|
{
|
|
|
|
|
*(INSTRUCTION_TYPE *)ptr = RETURN_INSTRUCTION;
|
|
|
|
|
ptr += INSN_CACHE_LINE_WIDTH;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
initialized = 1;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Find the location in array that occupies the same cache line as BEG. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
offset = ((int) beg & -INSN_CACHE_LINE_WIDTH) & (INSN_CACHE_PLANE_SIZE - 1);
|
|
|
|
|
start_addr = (((int) (array + INSN_CACHE_PLANE_SIZE - 1)
|
|
|
|
|
& -INSN_CACHE_PLANE_SIZE)
|
|
|
|
|
+ offset);
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
|
|
|
|
/* Compute the cache alignment of the place to stop clearing. */
|
|
|
|
|
#if 0 /* This is not needed for gcc's purposes. */
|
|
|
|
|
/* If the block to clear is bigger than a cache plane,
|
2002-02-06 04:49:08 +00:00
|
|
|
|
we clear the entire cache, and OFFSET is already correct. */
|
1999-08-30 00:01:36 +00:00
|
|
|
|
if (end < beg + INSN_CACHE_PLANE_SIZE)
|
|
|
|
|
#endif
|
|
|
|
|
offset = (((int) (end + INSN_CACHE_LINE_WIDTH - 1)
|
|
|
|
|
& -INSN_CACHE_LINE_WIDTH)
|
|
|
|
|
& (INSN_CACHE_PLANE_SIZE - 1));
|
|
|
|
|
|
|
|
|
|
#if INSN_CACHE_DEPTH > 1
|
|
|
|
|
end_addr = (start_addr & -INSN_CACHE_PLANE_SIZE) + offset;
|
|
|
|
|
if (end_addr <= start_addr)
|
|
|
|
|
end_addr += INSN_CACHE_PLANE_SIZE;
|
|
|
|
|
|
|
|
|
|
for (plane = 0; plane < INSN_CACHE_DEPTH; plane++)
|
|
|
|
|
{
|
|
|
|
|
int addr = start_addr + plane * INSN_CACHE_PLANE_SIZE;
|
|
|
|
|
int stop = end_addr + plane * INSN_CACHE_PLANE_SIZE;
|
|
|
|
|
|
|
|
|
|
while (addr != stop)
|
|
|
|
|
{
|
|
|
|
|
/* Call the return instruction at ADDR. */
|
|
|
|
|
((function_ptr) addr) ();
|
|
|
|
|
|
|
|
|
|
addr += INSN_CACHE_LINE_WIDTH;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#else /* just one plane */
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
/* Call the return instruction at START_ADDR. */
|
|
|
|
|
((function_ptr) start_addr) ();
|
|
|
|
|
|
|
|
|
|
start_addr += INSN_CACHE_LINE_WIDTH;
|
|
|
|
|
}
|
|
|
|
|
while ((start_addr % INSN_CACHE_SIZE) != offset);
|
|
|
|
|
#endif /* just one plane */
|
|
|
|
|
#endif /* Cache is large */
|
|
|
|
|
#endif /* Cache exists */
|
|
|
|
|
#endif /* CLEAR_INSN_CACHE */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* L_clear_cache */
|
|
|
|
|
|
|
|
|
|
#ifdef L_trampoline
|
|
|
|
|
|
|
|
|
|
/* Jump to a trampoline, loading the static chain address. */
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#if defined(WINNT) && ! defined(__CYGWIN__) && ! defined (_UWIN)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
long
|
|
|
|
|
getpagesize (void)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#ifdef _ALPHA_
|
|
|
|
|
return 8192;
|
|
|
|
|
#else
|
1999-08-30 00:01:36 +00:00
|
|
|
|
return 4096;
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef __i386__
|
1999-08-30 00:01:36 +00:00
|
|
|
|
extern int VirtualProtect (char *, int, int, int *) __attribute__((stdcall));
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
mprotect (char *addr, int len, int prot)
|
|
|
|
|
{
|
|
|
|
|
int np, op;
|
|
|
|
|
|
|
|
|
|
if (prot == 7)
|
|
|
|
|
np = 0x40;
|
|
|
|
|
else if (prot == 5)
|
|
|
|
|
np = 0x20;
|
|
|
|
|
else if (prot == 4)
|
|
|
|
|
np = 0x10;
|
|
|
|
|
else if (prot == 3)
|
|
|
|
|
np = 0x04;
|
|
|
|
|
else if (prot == 1)
|
|
|
|
|
np = 0x02;
|
|
|
|
|
else if (prot == 0)
|
|
|
|
|
np = 0x01;
|
|
|
|
|
|
|
|
|
|
if (VirtualProtect (addr, len, np, &op))
|
|
|
|
|
return 0;
|
|
|
|
|
else
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#endif /* WINNT && ! __CYGWIN__ && ! _UWIN */
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef TRANSFER_FROM_TRAMPOLINE
|
|
|
|
|
TRANSFER_FROM_TRAMPOLINE
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef __sysV68__
|
|
|
|
|
|
|
|
|
|
#include <sys/signal.h>
|
|
|
|
|
#include <errno.h>
|
|
|
|
|
|
|
|
|
|
/* Motorola forgot to put memctl.o in the libp version of libc881.a,
|
|
|
|
|
so define it here, because we need it in __clear_insn_cache below */
|
|
|
|
|
/* On older versions of this OS, no memctl or MCT_TEXT are defined;
|
|
|
|
|
hence we enable this stuff only if MCT_TEXT is #define'd. */
|
|
|
|
|
|
|
|
|
|
#ifdef MCT_TEXT
|
|
|
|
|
asm("\n\
|
|
|
|
|
global memctl\n\
|
|
|
|
|
memctl:\n\
|
|
|
|
|
movq &75,%d0\n\
|
|
|
|
|
trap &0\n\
|
|
|
|
|
bcc.b noerror\n\
|
|
|
|
|
jmp cerror%\n\
|
|
|
|
|
noerror:\n\
|
|
|
|
|
movq &0,%d0\n\
|
|
|
|
|
rts");
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Clear instruction cache so we can call trampolines on stack.
|
|
|
|
|
This is called from FINALIZE_TRAMPOLINE in mot3300.h. */
|
|
|
|
|
|
|
|
|
|
void
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__clear_insn_cache (void)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
|
|
|
|
#ifdef MCT_TEXT
|
|
|
|
|
int save_errno;
|
|
|
|
|
|
|
|
|
|
/* Preserve errno, because users would be surprised to have
|
2002-02-06 04:49:08 +00:00
|
|
|
|
errno changing without explicitly calling any system-call. */
|
1999-08-30 00:01:36 +00:00
|
|
|
|
save_errno = errno;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Keep it simple : memctl (MCT_TEXT) always fully clears the insn cache.
|
|
|
|
|
No need to use an address derived from _start or %sp, as 0 works also. */
|
1999-08-30 00:01:36 +00:00
|
|
|
|
memctl(0, 4096, MCT_TEXT);
|
|
|
|
|
errno = save_errno;
|
|
|
|
|
#endif
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#endif /* __sysV68__ */
|
|
|
|
|
#endif /* L_trampoline */
|
|
|
|
|
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#ifndef __CYGWIN__
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#ifdef L__main
|
|
|
|
|
|
|
|
|
|
#include "gbl-ctors.h"
|
|
|
|
|
/* Some systems use __main in a way incompatible with its use in gcc, in these
|
|
|
|
|
cases use the macros NAME__MAIN to give a quoted symbol and SYMBOL__MAIN to
|
|
|
|
|
give the same symbol without quotes for an alternative entry point. You
|
|
|
|
|
must define both, or neither. */
|
|
|
|
|
#ifndef NAME__MAIN
|
|
|
|
|
#define NAME__MAIN "__main"
|
|
|
|
|
#define SYMBOL__MAIN __main
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifdef INIT_SECTION_ASM_OP
|
|
|
|
|
#undef HAS_INIT_SECTION
|
|
|
|
|
#define HAS_INIT_SECTION
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if !defined (HAS_INIT_SECTION) || !defined (OBJECT_FORMAT_ELF)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
|
|
|
|
|
/* Some ELF crosses use crtstuff.c to provide __CTOR_LIST__, but use this
|
|
|
|
|
code to run constructors. In that case, we need to handle EH here, too. */
|
|
|
|
|
|
|
|
|
|
#ifdef EH_FRAME_SECTION_NAME
|
|
|
|
|
#include "unwind-dw2-fde.h"
|
|
|
|
|
extern unsigned char __EH_FRAME_BEGIN__[];
|
|
|
|
|
#endif
|
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
/* Run all the global destructors on exit from the program. */
|
|
|
|
|
|
|
|
|
|
void
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__do_global_dtors (void)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
|
|
|
|
#ifdef DO_GLOBAL_DTORS_BODY
|
|
|
|
|
DO_GLOBAL_DTORS_BODY;
|
|
|
|
|
#else
|
|
|
|
|
static func_ptr *p = __DTOR_LIST__ + 1;
|
|
|
|
|
while (*p)
|
|
|
|
|
{
|
|
|
|
|
p++;
|
|
|
|
|
(*(p-1)) ();
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#if defined (EH_FRAME_SECTION_NAME) && !defined (HAS_INIT_SECTION)
|
|
|
|
|
{
|
|
|
|
|
static int completed = 0;
|
|
|
|
|
if (! completed)
|
|
|
|
|
{
|
|
|
|
|
completed = 1;
|
|
|
|
|
__deregister_frame_info (__EH_FRAME_BEGIN__);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#ifndef HAS_INIT_SECTION
|
|
|
|
|
/* Run all the global constructors on entry to the program. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
void
|
2002-02-06 04:49:08 +00:00
|
|
|
|
__do_global_ctors (void)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#ifdef EH_FRAME_SECTION_NAME
|
|
|
|
|
{
|
|
|
|
|
static struct object object;
|
|
|
|
|
__register_frame_info (__EH_FRAME_BEGIN__, &object);
|
|
|
|
|
}
|
|
|
|
|
#endif
|
1999-08-30 00:01:36 +00:00
|
|
|
|
DO_GLOBAL_CTORS_BODY;
|
2002-02-06 04:49:08 +00:00
|
|
|
|
atexit (__do_global_dtors);
|
1999-08-30 00:01:36 +00:00
|
|
|
|
}
|
|
|
|
|
#endif /* no HAS_INIT_SECTION */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#if !defined (HAS_INIT_SECTION) || defined (INVOKE__main)
|
|
|
|
|
/* Subroutine called automatically by `main'.
|
|
|
|
|
Compiling a global function named `main'
|
|
|
|
|
produces an automatic call to this function at the beginning.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
For many systems, this routine calls __do_global_ctors.
|
|
|
|
|
For systems which support a .init section we use the .init section
|
|
|
|
|
to run __do_global_ctors, so we need not do anything here. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
SYMBOL__MAIN ()
|
|
|
|
|
{
|
|
|
|
|
/* Support recursive calls to `main': run initializers just once. */
|
|
|
|
|
static int initialized;
|
|
|
|
|
if (! initialized)
|
|
|
|
|
{
|
|
|
|
|
initialized = 1;
|
|
|
|
|
__do_global_ctors ();
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#endif /* no HAS_INIT_SECTION or INVOKE__main */
|
|
|
|
|
|
|
|
|
|
#endif /* L__main */
|
1999-10-27 09:45:47 +00:00
|
|
|
|
#endif /* __CYGWIN__ */
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
|
|
|
|
#ifdef L_ctors
|
|
|
|
|
|
|
|
|
|
#include "gbl-ctors.h"
|
|
|
|
|
|
|
|
|
|
/* Provide default definitions for the lists of constructors and
|
|
|
|
|
destructors, so that we don't get linker errors. These symbols are
|
|
|
|
|
intentionally bss symbols, so that gld and/or collect will provide
|
|
|
|
|
the right values. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
/* We declare the lists here with two elements each,
|
1999-10-27 09:45:47 +00:00
|
|
|
|
so that they are valid empty lists if no other definition is loaded.
|
|
|
|
|
|
|
|
|
|
If we are using the old "set" extensions to have the gnu linker
|
|
|
|
|
collect ctors and dtors, then we __CTOR_LIST__ and __DTOR_LIST__
|
|
|
|
|
must be in the bss/common section.
|
|
|
|
|
|
|
|
|
|
Long term no port should use those extensions. But many still do. */
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#if !defined(INIT_SECTION_ASM_OP) && !defined(CTOR_LISTS_DEFINED_EXTERNALLY)
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#if defined (TARGET_ASM_CONSTRUCTOR) || defined (USE_COLLECT2)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
func_ptr __CTOR_LIST__[2] = {0, 0};
|
|
|
|
|
func_ptr __DTOR_LIST__[2] = {0, 0};
|
|
|
|
|
#else
|
|
|
|
|
func_ptr __CTOR_LIST__[2];
|
|
|
|
|
func_ptr __DTOR_LIST__[2];
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#endif /* no INIT_SECTION_ASM_OP and not CTOR_LISTS_DEFINED_EXTERNALLY */
|
|
|
|
|
#endif /* L_ctors */
|
|
|
|
|
|
|
|
|
|
#ifdef L_exit
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#include "gbl-ctors.h"
|
|
|
|
|
|
|
|
|
|
#ifdef NEED_ATEXIT
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
#ifndef ON_EXIT
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-30 00:01:36 +00:00
|
|
|
|
# include <errno.h>
|
|
|
|
|
|
|
|
|
|
static func_ptr *atexit_chain = 0;
|
|
|
|
|
static long atexit_chain_length = 0;
|
|
|
|
|
static volatile long last_atexit_chain_slot = -1;
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
int
|
|
|
|
|
atexit (func_ptr func)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
|
|
|
|
if (++last_atexit_chain_slot == atexit_chain_length)
|
|
|
|
|
{
|
|
|
|
|
atexit_chain_length += 32;
|
|
|
|
|
if (atexit_chain)
|
|
|
|
|
atexit_chain = (func_ptr *) realloc (atexit_chain, atexit_chain_length
|
|
|
|
|
* sizeof (func_ptr));
|
|
|
|
|
else
|
|
|
|
|
atexit_chain = (func_ptr *) malloc (atexit_chain_length
|
|
|
|
|
* sizeof (func_ptr));
|
|
|
|
|
if (! atexit_chain)
|
|
|
|
|
{
|
|
|
|
|
atexit_chain_length = 0;
|
|
|
|
|
last_atexit_chain_slot = -1;
|
|
|
|
|
errno = ENOMEM;
|
|
|
|
|
return (-1);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
atexit_chain[last_atexit_chain_slot] = func;
|
|
|
|
|
return (0);
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
extern void _cleanup (void);
|
|
|
|
|
extern void _exit (int) __attribute__ ((__noreturn__));
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
void
|
1999-08-30 00:01:36 +00:00
|
|
|
|
exit (int status)
|
|
|
|
|
{
|
|
|
|
|
if (atexit_chain)
|
|
|
|
|
{
|
|
|
|
|
for ( ; last_atexit_chain_slot-- >= 0; )
|
|
|
|
|
{
|
|
|
|
|
(*atexit_chain[last_atexit_chain_slot + 1]) ();
|
|
|
|
|
atexit_chain[last_atexit_chain_slot + 1] = 0;
|
|
|
|
|
}
|
|
|
|
|
free (atexit_chain);
|
|
|
|
|
atexit_chain = 0;
|
|
|
|
|
}
|
|
|
|
|
#ifdef EXIT_BODY
|
|
|
|
|
EXIT_BODY;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#else
|
1999-08-30 00:01:36 +00:00
|
|
|
|
_cleanup ();
|
|
|
|
|
#endif
|
|
|
|
|
_exit (status);
|
|
|
|
|
}
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#else /* ON_EXIT */
|
1999-08-30 00:01:36 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
/* Simple; we just need a wrapper for ON_EXIT. */
|
|
|
|
|
int
|
|
|
|
|
atexit (func_ptr func)
|
1999-08-30 00:01:36 +00:00
|
|
|
|
{
|
2002-02-06 04:49:08 +00:00
|
|
|
|
return ON_EXIT (func);
|
1999-08-30 00:01:36 +00:00
|
|
|
|
}
|
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#endif /* ON_EXIT */
|
|
|
|
|
#endif /* NEED_ATEXIT */
|
1999-10-27 09:45:47 +00:00
|
|
|
|
|
2002-02-06 04:49:08 +00:00
|
|
|
|
#endif /* L_exit */
|