feeeff5cfe
gcc:
* config.gcc (epiphany-*-*): New architecture.
(epiphany-*-elf): New configuration.
* config/epiphany, common/config/epiphany : New directories.
* doc/extend.texi (disinterrupt attribute): Add Epiphany.
(interrupt attribute): Add Epiphany.
(long_call, short_call attribute): Add Epiphany.
* doc/invoke.texi (Options): Add Epiphany options.
* doc/md.texi (Machine Constraints): Add Epiphany constraints.
* doc/install.texi (Options specification):
Add --with-stack-offset=@var{num} description.
(host/target specific issues): Add epiphany-*-elf.
* doc/contrib.texi (Contributors): Mention Epiphany port.
gcc/testsuite:
* gcc.c-torture/execute/ieee/mul-subnormal-single-1.x:
Disable test on Epiphany.
* gcc.c-torture/execute/20101011-1.c: Disable test on Epiphany.
* gcc.dg/stack-usage-1.c [__epiphany__] (SIZE): Define.
* gcc.dg/pragma-pack-3.c: Disable test on Epiphany.
* g++.dg/parse/pragma3.C: Likewise.
* stackalign/builtin-apply-2.c (STACK_ARGUMENTS_SIZE): Define.
(bar): Use it.
* gcc.dg/weak/typeof-2.c [epiphany-*-*]: Add option -mshort-calls.
* gcc.dg/tls/thr-cse-1.c: Likewise.
* g++.dg/opt/devirt2.C: Likewise.
* gcc.dg/20020312-2.c [epiphany-*-*] (PIC_REG): Define.
* gcc.dg/builtin-apply2.c [__epiphany__]: (STACK_ARGUMENTS_SIZE): 20.
* gcc.target/epiphany: New directory.
libgcc:
* config.host (epiphany-*-elf*): New configuration.
* config/epiphany: New Directory.
contrib:
* contrib-list.mk: Add Epiphany configurations.
From-SVN: r181016
107 lines
2.4 KiB
C
107 lines
2.4 KiB
C
/* Generic signed 32 bit modulo implementation.
|
|
Copyright (C) 2009 Free Software Foundation, Inc.
|
|
Contributed by Embecosm on behalf of Adapteva, Inc.
|
|
|
|
This file is part of GCC.
|
|
|
|
This file 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 3, or (at your option) any
|
|
later version.
|
|
|
|
This file 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.
|
|
|
|
Under Section 7 of GPL version 3, you are granted additional
|
|
permissions described in the GCC Runtime Library Exception, version
|
|
3.1, as published by the Free Software Foundation.
|
|
|
|
You should have received a copy of the GNU General Public License and
|
|
a copy of the GCC Runtime Library Exception along with this program;
|
|
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
typedef union { unsigned int i; float f; } fu;
|
|
|
|
unsigned int __modsi3 (unsigned int a, unsigned int b);
|
|
|
|
unsigned int
|
|
__modsi3 (unsigned int a, unsigned int b)
|
|
{
|
|
unsigned int sign = (int) a >> 31;
|
|
unsigned int d, t, s0, s1, s2, r0, r1;
|
|
fu u0, u1, u2, u1b, u2b;
|
|
|
|
a = abs (a);
|
|
b = abs (b);
|
|
|
|
if (b > a)
|
|
goto ret_a;
|
|
|
|
/* Compute difference in number of bits in S0. */
|
|
u0.i = 0x40000000;
|
|
u1b.i = u2b.i = u0.i;
|
|
u1.i = a;
|
|
u2.i = b;
|
|
u1.i = a | u0.i;
|
|
t = 0x4b800000 | ((a >> 23) & 0xffff);
|
|
if (a >> 23)
|
|
{
|
|
u1.i = t;
|
|
u1b.i = 0x4b800000;
|
|
}
|
|
u2.i = b | u0.i;
|
|
t = 0x4b800000 | ((b >> 23) & 0xffff);
|
|
if (b >> 23)
|
|
{
|
|
u2.i = t;
|
|
u2b.i = 0x4b800000;
|
|
}
|
|
u1.f = u1.f - u1b.f;
|
|
u2.f = u2.f - u2b.f;
|
|
s1 = u1.i >> 23;
|
|
s2 = u2.i >> 23;
|
|
s0 = s1 - s2;
|
|
|
|
#define STEP(n) case n: d = b << n; t = a - d; if (t <= a) a = t;
|
|
switch (s0)
|
|
{
|
|
STEP (31)
|
|
STEP (30)
|
|
STEP (29)
|
|
STEP (28)
|
|
STEP (27)
|
|
STEP (26)
|
|
STEP (25)
|
|
STEP (24)
|
|
STEP (23)
|
|
STEP (22)
|
|
STEP (21)
|
|
STEP (20)
|
|
STEP (19)
|
|
STEP (18)
|
|
STEP (17)
|
|
STEP (16)
|
|
STEP (15)
|
|
STEP (14)
|
|
STEP (13)
|
|
STEP (12)
|
|
STEP (11)
|
|
STEP (10)
|
|
STEP (9)
|
|
STEP (8)
|
|
STEP (7)
|
|
STEP (6)
|
|
STEP (5)
|
|
STEP (4)
|
|
STEP (3)
|
|
STEP (2)
|
|
STEP (1)
|
|
STEP (0)
|
|
}
|
|
ret_a:
|
|
return (a ^ sign) - sign;
|
|
}
|