]> git.ipfire.org Git - thirdparty/gcc.git/blame - libgcc/config/h8300/fixunssfsi.c
Update copyright years.
[thirdparty/gcc.git] / libgcc / config / h8300 / fixunssfsi.c
CommitLineData
8c062645
R
1/* More subroutines needed by GCC output code on some machines. */
2/* Compile this one with gcc. */
7adcbafe 3/* Copyright (C) 1989-2022 Free Software Foundation, Inc.
8c062645 4
8aa063fb 5This file is part of GCC.
8c062645 6
8aa063fb 7GCC is free software; you can redistribute it and/or modify
8c062645 8it under the terms of the GNU General Public License as published by
748086b7 9the Free Software Foundation; either version 3, or (at your option)
8c062645
R
10any later version.
11
8aa063fb 12GCC is distributed in the hope that it will be useful,
8c062645
R
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15GNU General Public License for more details.
16
748086b7
JJ
17Under Section 7 of GPL version 3, you are granted additional
18permissions described in the GCC Runtime Library Exception, version
193.1, as published by the Free Software Foundation.
20
21You should have received a copy of the GNU General Public License and
22a copy of the GCC Runtime Library Exception along with this program;
23see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24<http://www.gnu.org/licenses/>. */
8c062645
R
25
26/* The libgcc2.c implementation gets confused by our type setup and creates
cb36ddba 27 a directly recursive call, so we do our own implementation. For
45b86625 28 the H8/300, that's in lib1funcs.S, for H8/300H and H8S, it's here. */
8c062645 29
cb36ddba 30#ifndef __H8300__
846d57c7
KH
31long __fixunssfsi (float a);
32
8c062645
R
33long
34__fixunssfsi (float a)
35{
36 if (a >= (float) 32768L)
aefc5826 37 return (long) (a - 32768L) + 32768L;
8c062645
R
38 return (long) a;
39}
cb36ddba 40#endif