AuroraMiddleware/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2024-11-21 12:30:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

or1k: Add hard float support

Browse Source 
This patch adds hardware floating point support to OpenRISC.  Hardware
floating point toolchain builds are enabled by passing the machine
specific argument -mhard-float to gcc via CFLAGS.  With this enabled GCC
generates floating point instructions for single-precision operations
and exports __or1k_hard_float__.

There are 2 main parts to this patch.

 - Implement fenv functions to update the FPCSR flags keeping it in sync
   with sfp (software floating point).
 - Update machine context functions to store and restore the FPCSR
   state.

*On mcontext_t ABI*

This patch adds __fpcsr to mcontext_t.  This is an ABI change, but also
an ABI fix.  The Linux kernel has always defined padding in mcontext_t
that space was missing from the glibc ABI.  In Linux this unused space
has now been re-purposed for storing the FPCSR.  This patch brings
OpenRISC glibc in line with the Linux kernel and other libc
implementation (musl).

Compatibility getcontext, setcontext, etc symbols have been added to
allow for binaries expecting the old ABI to continue to work.

*Hard float ABI*

The calling conventions and types do not change with OpenRISC hard-float
so glibc hard-float builds continue to use dynamic linker
/lib/ld-linux-or1k.so.1.

*Testing*

I have tested this patch both with hard-float and soft-float builds and
the test results look fine to me.  Results are as follows:

Hard Float

    # failures
    FAIL: elf/tst-sprof-basic		(Haven't figured out yet, not related to hard-float)
    FAIL: gmon/tst-gmon-pie		(PIE bug in or1k toolchain)
    FAIL: gmon/tst-gmon-pie-gprof	(PIE bug in or1k toolchain)
    FAIL: iconvdata/iconv-test		(timeout, passed when run manually)
    FAIL: nptl/tst-cond24		(Timeout)
    FAIL: nptl/tst-mutex10		(Timeout)

    # summary
	  6 FAIL
       4289 PASS
	 86 UNSUPPORTED
	 16 XFAIL
	  2 XPASS

    # versions
    Toolchain: or1k-smhfpu-linux-gnu
    Compiler:  gcc version 14.0.1 20240324 (experimental) [master r14-9649-gbb04a11418f] (GCC)
    Binutils:  GNU assembler version 2.42.0 (or1k-smhfpu-linux-gnu) using BFD version (GNU Binutils) 2.42.0.20240324
    Linux:     Linux buildroot 6.9.0-rc1-00008-g4dc70e1aadfa #112 SMP Sat Apr 27 06:43:11 BST 2024 openrisc GNU/Linux
    Tester:    shorne
    Glibc:     2024-04-25 b62928f907 Florian Weimer   x86: In ld.so, diagnose missing APX support in APX-only builds  (origin/master, origin/HEAD)

Soft Float

    # failures
    FAIL: elf/tst-sprof-basic
    FAIL: gmon/tst-gmon-pie
    FAIL: gmon/tst-gmon-pie-gprof
    FAIL: nptl/tst-cond24
    FAIL: nptl/tst-mutex10

    # summary
	  5 FAIL
       4295 PASS
	 81 UNSUPPORTED
	 16 XFAIL
	  2 XPASS

    # versions
    Toolchain: or1k-smh-linux-gnu
    Compiler:  gcc version 14.0.1 20240324 (experimental) [master r14-9649-gbb04a11418f] (GCC)
    Binutils:  GNU assembler version 2.42.0 (or1k-smh-linux-gnu) using BFD version (GNU Binutils) 2.42.0.20240324
    Linux:     Linux buildroot 6.9.0-rc1-00008-g4dc70e1aadfa #112 SMP Sat Apr 27 06:43:11 BST 2024 openrisc GNU/Linux
    Tester:    shorne
    Glibc:     2024-04-25 b62928f907 Florian Weimer   x86: In ld.so, diagnose missing APX support in APX-only builds  (origin/master, origin/HEAD)

Documentation: https://raw.githubusercontent.com/openrisc/doc/master/openrisc-arch-1.4-rev0.pdf
Reviewed-by: Adhemerval Zanella  <adhemerval.zanella@linaro.org>
This commit is contained in:
Stafford Horne 2024-04-27 06:35:09 +01:00
parent b57adfa49b
commit 643d9d38d5
32 changed files with 1425 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
sysdeps/or1k/fpu/fclrexcpt.c Normal file
View File

@ -0,0 +1,44 @@
/* Clear given exceptions in current floating-point environment.
OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fpu_control.h>
int
feclearexcept (int excepts)
{
fpu_control_t cw;
fpu_control_t cw_new;
/* Mask out unsupported bits/exceptions. */
excepts &= FE_ALL_EXCEPT;
/* Read the complete control word. */
_FPU_GETCW (cw);
cw_new = cw & ~excepts;
/* Put the new data in effect. */
if (cw != cw_new)
_FPU_SETCW (cw_new);
/* Success. */
return 0;
}
libm_hidden_def (feclearexcept)

32
sysdeps/or1k/fpu/fegetenv.c Normal file
View File

@ -0,0 +1,32 @@
/* Store current floating-point environment.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fpu_control.h>
int
__fegetenv (fenv_t *envp)
{
_FPU_GETCW (*envp);
/* Success. */
return 0;
}
libm_hidden_def (__fegetenv)
weak_alias (__fegetenv, fegetenv)
libm_hidden_weak (fegetenv)

29
sysdeps/or1k/fpu/fegetmode.c Normal file
View File

@ -0,0 +1,29 @@
/* Store current floating-point control modes. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fpu_control.h>
int
fegetmode (femode_t *modep)
{
_FPU_GETCW (*modep);
/* Success. */
return 0;
}

29
sysdeps/or1k/fpu/fegetround.c Normal file
View File

@ -0,0 +1,29 @@
/* Return current rounding direction. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <get-rounding-mode.h>
int
__fegetround (void)
{
return get_rounding_mode ();
}
libm_hidden_def (__fegetround)
weak_alias (__fegetround, fegetround)
libm_hidden_weak (fegetround)

33
sysdeps/or1k/fpu/feholdexcpt.c Normal file
View File

@ -0,0 +1,33 @@
/* Store current floating-point environment and clear exceptions.
OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fenv_private.h>
int
__feholdexcept (fenv_t *envp)
{
libc_feholdexcept_or1k (envp);
/* Success. */
return 0;
}
libm_hidden_def (__feholdexcept)
weak_alias (__feholdexcept, feholdexcept)
libm_hidden_weak (feholdexcept)

199
sysdeps/or1k/fpu/fenv_private.h Normal file
View File

@ -0,0 +1,199 @@
/* Private floating point rounding and exceptions handling. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#ifndef OR1K_FENV_PRIVATE_H
#define OR1K_FENV_PRIVATE_H 1
#include <fenv.h>
#include <fpu_control.h>
static __always_inline void
libc_feholdexcept_or1k (fenv_t *envp)
{
fpu_control_t cw;
fpu_control_t cw_new;
/* Get and store the environment. */
_FPU_GETCW (cw);
*envp = cw;
/* Clear the exception status flags. */
cw_new = cw & ~FE_ALL_EXCEPT;
if (cw != cw_new)
_FPU_SETCW (cw_new);
}
#define libc_feholdexcept libc_feholdexcept_or1k
#define libc_feholdexceptf libc_feholdexcept_or1k
#define libc_feholdexceptl libc_feholdexcept_or1k
static __always_inline void
libc_fesetround_or1k (int round)
{
fpu_control_t cw;
fpu_control_t cw_new;
_FPU_GETCW (cw);
cw_new = cw & ~_FPU_FPCSR_RM_MASK;
cw_new |= round;
if (cw != cw_new)
_FPU_SETCW (cw_new);
}
#define libc_fesetround libc_fesetround_or1k
#define libc_fesetroundf libc_fesetround_or1k
#define libc_fesetroundl libc_fesetround_or1k
static __always_inline void
libc_feholdexcept_setround_or1k (fenv_t *envp, int round)
{
fpu_control_t cw;
fpu_control_t cw_new;
/* Get and store the environment. */
_FPU_GETCW (cw);
*envp = cw;
/* Clear the status flags and rounding mode. */
cw_new = cw & ~(FE_ALL_EXCEPT | _FPU_FPCSR_RM_MASK);
/* Set rounding mode. */
cw_new |= round;
if (cw != cw_new)
_FPU_SETCW (cw_new);
}
#define libc_feholdexcept_setround libc_feholdexcept_setround_or1k
#define libc_feholdexcept_setroundf libc_feholdexcept_setround_or1k
#define libc_feholdexcept_setroundl libc_feholdexcept_setround_or1k
static __always_inline int
libc_fetestexcept_or1k (int ex)
{
fpu_control_t cw;
/* Get current control word. */
_FPU_GETCW (cw);
/* Check if any of the queried exception flags are set. */
return cw & ex & FE_ALL_EXCEPT;
}
#define libc_fetestexcept libc_fetestexcept_or1k
#define libc_fetestexceptf libc_fetestexcept_or1k
#define libc_fetestexceptl libc_fetestexcept_or1k
static __always_inline void
libc_fesetenv_or1k (const fenv_t *envp)
{
if (envp == FE_DFL_ENV)
_FPU_SETCW (_FPU_DEFAULT);
else
_FPU_SETCW (*envp);
}
#define libc_fesetenv libc_fesetenv_or1k
#define libc_fesetenvf libc_fesetenv_or1k
#define libc_fesetenvl libc_fesetenv_or1k
#define libc_feresetround_noex libc_fesetenv_or1k
#define libc_feresetround_noexf libc_fesetenv_or1k
#define libc_feresetround_noexl libc_fesetenv_or1k
static __always_inline int
libc_feupdateenv_test_or1k (const fenv_t *envp, int ex)
{
fpu_control_t cw;
fpu_control_t cw_new;
int excepts;
/* Get current control word. */
_FPU_GETCW (cw);
/* Merge current exception flags with the passed fenv. */
excepts = cw & FE_ALL_EXCEPT;
cw_new = (envp == FE_DFL_ENV ? _FPU_DEFAULT : *envp) | excepts;
if (__glibc_unlikely (cw != cw_new))
_FPU_SETCW (cw_new);
/* Raise the exceptions if enabled in the new FP state. */
if (__glibc_unlikely (excepts))
__feraiseexcept (excepts);
return excepts & ex;
}
#define libc_feupdateenv_test libc_feupdateenv_test_or1k
#define libc_feupdateenv_testf libc_feupdateenv_test_or1k
#define libc_feupdateenv_testl libc_feupdateenv_test_or1k
static __always_inline void
libc_feupdateenv_or1k (const fenv_t *envp)
{
libc_feupdateenv_test_or1k (envp, 0);
}
#define libc_feupdateenv libc_feupdateenv_or1k
#define libc_feupdateenvf libc_feupdateenv_or1k
#define libc_feupdateenvl libc_feupdateenv_or1k
static __always_inline void
libc_feholdsetround_or1k (fenv_t *envp, int round)
{
fpu_control_t cw;
_FPU_GETCW (cw);
*envp = cw;
/* Check whether rounding modes are different. */
round = (cw ^ round) & _FPU_FPCSR_RM_MASK;
/* Set new rounding mode if different. */
if (__glibc_unlikely (round != 0))
_FPU_SETCW (cw ^ round);
}
#define libc_feholdsetround libc_feholdsetround_or1k
#define libc_feholdsetroundf libc_feholdsetround_or1k
#define libc_feholdsetroundl libc_feholdsetround_or1k
static __always_inline void
libc_feresetround_or1k (fenv_t *envp)
{
fpu_control_t cw;
int round;
_FPU_GETCW (cw);
/* Check whether rounding modes are different. */
round = (*envp ^ cw) & _FPU_FPCSR_RM_MASK;
/* Restore the rounding mode if it was changed. */
if (__glibc_unlikely (round != 0))
_FPU_SETCW (cw ^ round);
}
#define libc_feresetround libc_feresetround_or1k
#define libc_feresetroundf libc_feresetround_or1k
#define libc_feresetroundl libc_feresetround_or1k
#include_next <fenv_private.h>
#endif

32
sysdeps/or1k/fpu/fesetenv.c Normal file
View File

@ -0,0 +1,32 @@
/* Install given floating-point environment. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fenv_private.h>
int
__fesetenv (const fenv_t *envp)
{
libc_fesetenv_or1k (envp);
/* Success. */
return 0;
}
libm_hidden_def (__fesetenv)
weak_alias (__fesetenv, fesetenv)
libm_hidden_weak (fesetenv)

35
sysdeps/or1k/fpu/fesetexcept.c Normal file
View File

@ -0,0 +1,35 @@
/* Set given exception flags. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fpu_control.h>
int
fesetexcept (int excepts)
{
fpu_control_t cw;
fpu_control_t cw_new;
_FPU_GETCW (cw);
cw_new = cw | (excepts & FE_ALL_EXCEPT);
if (cw != cw_new)
_FPU_SETCW (cw_new);
/* Success. */
return 0;
}

39
sysdeps/or1k/fpu/fesetmode.c Normal file
View File

@ -0,0 +1,39 @@
/* Install given floating-point control modes. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fpu_control.h>
int
fesetmode (const femode_t *modep)
{
fpu_control_t cw;
fpu_control_t cw_new;
_FPU_GETCW (cw);
cw_new = cw & ~_FPU_FPCSR_RM_MASK;
if (modep == FE_DFL_MODE)
cw_new |= (_FPU_DEFAULT & _FPU_FPCSR_RM_MASK);
else
cw_new |= (*modep & _FPU_FPCSR_RM_MASK);
if (cw != cw_new)
_FPU_SETCW (cw_new);
/* Success. */
return 0;
}

39
sysdeps/or1k/fpu/fesetround.c Normal file
View File

@ -0,0 +1,39 @@
/* Set current rounding direction. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fenv_private.h>
int
__fesetround (int round)
{
switch (round)
{
case FE_TONEAREST:
case FE_TOWARDZERO:
case FE_DOWNWARD:
case FE_UPWARD:
libc_fesetround_or1k (round);
return 0;
default:
return round; /* A nonzero value. */
}
}
libm_hidden_def (__fesetround)
weak_alias (__fesetround, fesetround)
libm_hidden_weak (fesetround)

33
sysdeps/or1k/fpu/feupdateenv.c Normal file
View File

@ -0,0 +1,33 @@
/* Install given floating-point environment and raise exceptions.
OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fenv_private.h>
int
__feupdateenv (const fenv_t *envp)
{
libc_feupdateenv_or1k (envp);
/* Success. */
return 0;
}
libm_hidden_def (__feupdateenv)
weak_alias (__feupdateenv, feupdateenv)
libm_hidden_weak (feupdateenv)

29
sysdeps/or1k/fpu/fgetexcptflg.c Normal file
View File

@ -0,0 +1,29 @@
/* Store current state of exceptions. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fenv_private.h>
int
fegetexceptflag (fexcept_t *flagp, int excepts)
{
*flagp = libc_fetestexcept_or1k (excepts);
/* Success. */
return 0;
}

38
sysdeps/or1k/fpu/fix-fp-int-convert-overflow.h Normal file
View File

@ -0,0 +1,38 @@
/* Fix for conversion of floating point to integer overflow. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#ifndef FIX_FP_INT_CONVERT_OVERFLOW_H
#define FIX_FP_INT_CONVERT_OVERFLOW_H 1
/* The generic libgcc2.c conversions from floating point to long long
may not raise the correct exceptions on overflow (and may raise
spurious "inexact" exceptions even in non-overflow cases, see
<https://gcc.gnu.org/bugzilla/show_bug.cgi?id=59412>). */
#define FIX_FLT_LONG_CONVERT_OVERFLOW 0
#define FIX_FLT_LLONG_CONVERT_OVERFLOW 1
#define FIX_DBL_LONG_CONVERT_OVERFLOW 0
#define FIX_DBL_LLONG_CONVERT_OVERFLOW 1
#define FIX_LDBL_LONG_CONVERT_OVERFLOW 0
#define FIX_LDBL_LLONG_CONVERT_OVERFLOW 0
#define FIX_FLT128_LONG_CONVERT_OVERFLOW 0
#define FIX_FLT128_LLONG_CONVERT_OVERFLOW 0
#endif /* fix-fp-int-convert-overflow.h */

67
sysdeps/or1k/fpu/fraiseexcpt.c Normal file
View File

@ -0,0 +1,67 @@
/* Raise given exceptions. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fpu_control.h>
#include <float.h>
#include <math.h>
int
__feraiseexcept (int excepts)
{
if (excepts == 0)
return 0;
/* Raise exceptions represented by EXPECTS. */
if (excepts & FE_INEXACT)
{
float d = 1.0, x = 3.0;
__asm__ volatile ("lf.div.s %0, %0, %1" : "+r" (d) : "r" (x));
}
if (excepts & FE_UNDERFLOW)
{
float d = FLT_MIN;
__asm__ volatile ("lf.mul.s %0, %0, %0" : "+r" (d));
}
if (excepts & FE_OVERFLOW)
{
float d = FLT_MAX;
__asm__ volatile ("lf.mul.s %0, %0, %0" : "+r" (d) : "r" (d));
}
if (excepts & FE_DIVBYZERO)
{
float d = 1.0, x = 0.0;
__asm__ volatile ("lf.div.s %0, %0, %1" : "+r" (d) : "r" (x));
}
if (excepts & FE_INVALID)
{
float d = HUGE_VAL, x = 0.0;
__asm__ volatile ("lf.mul.s %0, %1, %0" : "+r" (d) : "r" (x));
}
/* Success. */
return 0;
}
libm_hidden_def (__feraiseexcept)
weak_alias (__feraiseexcept, feraiseexcept)
libm_hidden_weak (feraiseexcept)

43
sysdeps/or1k/fpu/fsetexcptflg.c Normal file
View File

@ -0,0 +1,43 @@
/* Set floating-point environment exception handling.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fpu_control.h>
int
fesetexceptflag (const fexcept_t *flagp, int excepts)
{
fpu_control_t cw;
fpu_control_t cw_new;
/* Get the current exceptions. */
_FPU_GETCW (cw);
/* Make sure the flags we want restored are legal. */
excepts &= FE_ALL_EXCEPT;
/* Now set selected bits from flagp. Note that we ignore all non-flag
bits from *flagp, so they don't matter. */
cw_new = (cw & ~excepts) | (*flagp & excepts);
if (cw != cw_new)
_FPU_SETCW (cw_new);
/* Success. */
return 0;
}

27
sysdeps/or1k/fpu/ftestexcept.c Normal file
View File

@ -0,0 +1,27 @@
/* Test exception in current environment. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#include <fenv.h>
#include <fenv_private.h>
int
fetestexcept (int excepts)
{
return libc_fetestexcept_or1k (excepts);
}
libm_hidden_def (fetestexcept)

38
sysdeps/or1k/fpu/get-rounding-mode.h Normal file
View File

@ -0,0 +1,38 @@
/* Determine floating-point rounding mode within libc. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#ifndef _OR1K_GET_ROUNDING_MODE_H
#define _OR1K_GET_ROUNDING_MODE_H 1
#include <fenv.h>
#include <fpu_control.h>
/* Return the floating-point rounding mode. */
static inline int
get_rounding_mode (void)
{
fpu_control_t cw;
_FPU_GETCW (cw);
return cw & _FPU_FPCSR_RM_MASK;
}
#endif /* get-rounding-mode.h */

89
sysdeps/or1k/fpu_control.h Normal file
View File

@ -0,0 +1,89 @@
/* FPU control word bits. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library. If not, see
<https://www.gnu.org/licenses/>. */
#ifndef _FPU_CONTROL_H
#define _FPU_CONTROL_H
#ifndef __or1k_hard_float__
# define _FPU_RESERVED 0xffffffff
# define _FPU_DEFAULT 0x00000000
# define _FPU_GETCW(cw) (cw) = 0
# define _FPU_SETCW(cw) (void) (cw)
#else /* __or1k_hard_float__ */
/* Layout of FPCSR:
The bits of the FPCSR are defined as follows, this should help
explain how the masks below have come to be.
+-----------+----------------------------+-----+----+
| 32 - 12 | 11 10 9 8 7 6 5 4 3 | 2-1 | 0 |
+-----------+----------------------------+-----+----+
| Reserved | DZ IN IV IX Z QN SN UN OV | RM | EE |
+-----------+----------------------------+-----+----+
Exception flags:
DZ - divide by zero flag.
IN - infinite flag.
IV - invalid flag.
IX - inexact flag.
Z - zero flag.
QN - qnan flag.
SN - snan flag.
UN - underflow flag.
OV - overflow flag.
Rounding modes:
The FPCSR bits 2-1 labeled above as RM specify the rounding mode.
00 - round to nearest
01 - round to zero
10 - round to positive infinity
11 - round to negative infinity
Enabling exceptions:
EE - set to enable FPU exceptions.
*/
# define _FPU_RESERVED 0xfffff000
/* Default: rounding to nearest with exceptions disabled. */
# define _FPU_DEFAULT 0
/* IEEE: Same as above with exceptions enabled. */
# define _FPU_IEEE (_FPU_DEFAULT | 1)
# define _FPU_FPCSR_RM_MASK (0x3 << 1)
/* Macros for accessing the hardware control word. */
# define _FPU_GETCW(cw) __asm__ volatile ("l.mfspr %0,r0,20" : "=r" (cw))
# define _FPU_SETCW(cw) __asm__ volatile ("l.mtspr r0,%0,20" : : "r" (cw))
#endif /* __or1k_hard_float__ */
/* Type of the control word. */
typedef unsigned int fpu_control_t;
/* Default control word set at startup. */
extern fpu_control_t __fpu_control;
#endif /* fpu_control.h */

26
sysdeps/or1k/math-tests-snan-payload.h Normal file
View File

@ -0,0 +1,26 @@
/* Configuration for math tests: sNaN payloads. OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#ifndef OR1K_MATH_TESTS_SNAN_PAYLOAD_H
#define OR1K_MATH_TESTS_SNAN_PAYLOAD_H 1
/* OpenRISC floating-point instructions do not preserve NaN
payloads. */
#define SNAN_TESTS_PRESERVE_PAYLOAD 0
#endif /* math-tests-snan-payload.h */

27
sysdeps/or1k/math-tests-trap.h Normal file
View File

@ -0,0 +1,27 @@
/* Configuration for math tests: support for enabling exception traps.
OpenRISC version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#ifndef OR1K_MATH_TESTS_TRAP_H
#define OR1K_MATH_TESTS_TRAP_H 1
#include <fenv.h>
#define EXCEPTION_ENABLE_SUPPORTED(EXCEPT) ((EXCEPT) == 0)
#endif /* math-tests-trap.h */

17
sysdeps/or1k/sfp-machine.h
View File

@ -90,4 +90,21 @@
#define FP_ROUNDMODE (_fpcsr & FP_RND_MASK)
#ifdef __or1k_hard_float__
#define FP_INIT_ROUNDMODE \
do { \
__asm__ volatile ("l.mfspr %0,r0,20" : "=r" (_fpcsr)); \
} while (0)
#define FP_HANDLE_EXCEPTIONS \
do { \
if (__builtin_expect (_fex, 0)) \
{ \
_fpcsr &= ~FP_EX_ALL; \
_fpcsr |= _fex; \
__asm__ volatile ("l.mtspr r0,%0,20" : : "r" (_fpcsr)); \
} \
} while (0)
#endif /* __or1k_hard_float__ */
#define _FP_TININESS_AFTER_ROUNDING 0

14
sysdeps/unix/sysv/linux/or1k/Versions Normal file
View File

@ -0,0 +1,14 @@
libc {
GLIBC_2.35 {
getcontext;
setcontext;
swapcontext;
makecontext;
}
GLIBC_2.40 {
getcontext;
setcontext;
swapcontext;
makecontext;
}
}

88
sysdeps/unix/sysv/linux/or1k/getcontext-common.S Normal file
View File

@ -0,0 +1,88 @@
/* Save current context. OpenRISC common version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
/* This common getcontext template helps define different
implementations using control macros. Before including
this file in another file define the following:
__CONTEXT_FUNC_NAME
__CONTEXT_ENABLE_FPCSR
__CONTEXT_SIGMASK_OFFSET
*/
/* int getcontext (ucontext_t *ucp)
Returns 0 on success -1 and errno on failure.
*/
.text
ENTRY(__CONTEXT_FUNC_NAME)
/* Store r1, the stack pointer. */
l.sw (UCONTEXT_MCONTEXT + 1*4)(r3), r1
/* Store r2, the frame pointer. */
l.sw (UCONTEXT_MCONTEXT + 2*4)(r3), r2
/* Store r9, the link register. */
l.sw (UCONTEXT_MCONTEXT + 9*4)(r3), r9
/* Store r9 to reg[11] too, as we need two links for makecontext. */
l.sw (UCONTEXT_MCONTEXT + 11*4)(r3), r9
/* Store r10, the TLS register. */
l.sw (UCONTEXT_MCONTEXT + 10*4)(r3), r10
/* Store r14-r30 even, callee saved registers. */
l.sw (UCONTEXT_MCONTEXT + 14*4)(r3), r14
l.sw (UCONTEXT_MCONTEXT + 16*4)(r3), r16
l.sw (UCONTEXT_MCONTEXT + 18*4)(r3), r18
l.sw (UCONTEXT_MCONTEXT + 20*4)(r3), r20
l.sw (UCONTEXT_MCONTEXT + 22*4)(r3), r22
l.sw (UCONTEXT_MCONTEXT + 24*4)(r3), r24
l.sw (UCONTEXT_MCONTEXT + 26*4)(r3), r26
l.sw (UCONTEXT_MCONTEXT + 28*4)(r3), r28
l.sw (UCONTEXT_MCONTEXT + 30*4)(r3), r30
#ifdef __CONTEXT_ENABLE_FPCSR
# ifdef __or1k_hard_float__
/* Store the floating point state. */
l.mfspr r4, r0, 20
l.sw (MCONTEXT_FPCSR)(r3), r4
# else
/* Store zero to indicate default rounding as per softfloat. */
l.sw (MCONTEXT_FPCSR)(r3), r0
# endif /* __or1k_hard_float__ */
#endif /* __CONTEXT_ENABLE_FPCSR */
/* Get signal mask. */
/* rt_sigprocmask (SIG_BLOCK, NULL, &ucp->uc_sigmask, _NSIG8) */
l.ori r6, r0, _NSIG8
l.addi r5, r3, __CONTEXT_SIGMASK_OFFSET
l.ori r4, r0, 0
l.ori r3, r0, SIG_BLOCK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
l.jr r9
l.ori r11, r0, 0
1: l.j __syscall_error
l.ori r3, r11, 0
END(__CONTEXT_FUNC_NAME)

69
sysdeps/unix/sysv/linux/or1k/getcontext.S
View File

@ -17,56 +17,35 @@
<https://www.gnu.org/licenses/>. */
#include <sysdep.h>
#include <shlib-compat.h>
#include "ucontext_i.h"
/* int getcontext (ucontext_t *ucp)
#define __CONTEXT_FUNC_NAME __getcontext
#define __CONTEXT_ENABLE_FPCSR 1
#define __CONTEXT_SIGMASK_OFFSET UCONTEXT_SIGMASK
Returns 0 on success -1 and errno on failure.
*/
.text
ENTRY(__getcontext)
/* Store r1, the stack pointer. */
l.sw (UCONTEXT_MCONTEXT + 1*4)(r3), r1
/* Store r2, the frame pointer. */
l.sw (UCONTEXT_MCONTEXT + 2*4)(r3), r2
/* Store r9, the link register. */
l.sw (UCONTEXT_MCONTEXT + 9*4)(r3), r9
/* Store r9 to reg[11] too, as we need two links for makecontext. */
l.sw (UCONTEXT_MCONTEXT + 11*4)(r3), r9
/* Store r10, the TLS register. */
l.sw (UCONTEXT_MCONTEXT + 10*4)(r3), r10
/* Store r14-r30 even, callee saved registers. */
l.sw (UCONTEXT_MCONTEXT + 14*4)(r3), r14
l.sw (UCONTEXT_MCONTEXT + 16*4)(r3), r16
l.sw (UCONTEXT_MCONTEXT + 18*4)(r3), r18
l.sw (UCONTEXT_MCONTEXT + 20*4)(r3), r20
l.sw (UCONTEXT_MCONTEXT + 22*4)(r3), r22
l.sw (UCONTEXT_MCONTEXT + 24*4)(r3), r24
l.sw (UCONTEXT_MCONTEXT + 26*4)(r3), r26
l.sw (UCONTEXT_MCONTEXT + 28*4)(r3), r28
l.sw (UCONTEXT_MCONTEXT + 30*4)(r3), r30
#include "getcontext-common.S"
/* Get signal mask. */
/* rt_sigprocmask (SIG_BLOCK, NULL, &ucp->uc_sigmask, _NSIG8) */
l.ori r6, r0, _NSIG8
l.addi r5, r3, UCONTEXT_SIGMASK
l.ori r4, r0, 0
l.ori r3, r0, SIG_BLOCK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
versioned_symbol (libc, __getcontext, getcontext, GLIBC_2_40)
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
#if SHLIB_COMPAT (libc, GLIBC_2_35, GLIBC_2_40)
l.jr r9
l.ori r11, r0, 0
/* Define a compat version of getcontext for glibc's before the fpcsr
field was added to mcontext_t. The offset sigmask changed with this
introduction, the change was done because glibc's definition of
ucontext_t was initially defined incompatible with the Linux
definition of ucontext_t. We keep the compatability definition to
allow getcontext, setcontext and swapcontext to work in older
binaries. */
1: l.j __syscall_error
l.ori r3, r11, 0
# undef __CONTEXT_FUNC_NAME
# undef __CONTEXT_ENABLE_FPCSR
# undef __CONTEXT_SIGMASK_OFFSET
# define __CONTEXT_FUNC_NAME __getcontext_nofpcsr
# define __CONTEXT_SIGMASK_OFFSET (UCONTEXT_SIGMASK - 4)
END(__getcontext)
weak_alias(__getcontext, getcontext)
# include "getcontext-common.S"
compat_symbol (libc, __getcontext_nofpcsr, getcontext, GLIBC_2_35)
#endif

4
sysdeps/unix/sysv/linux/or1k/libc.abilist
View File

@ -2255,3 +2255,7 @@ GLIBC_2.39 stdc_trailing_zeros_ui F
GLIBC_2.39 stdc_trailing_zeros_ul F
GLIBC_2.39 stdc_trailing_zeros_ull F
GLIBC_2.39 stdc_trailing_zeros_us F
GLIBC_2.40 getcontext F
GLIBC_2.40 makecontext F
GLIBC_2.40 setcontext F
GLIBC_2.40 swapcontext F

49
sysdeps/unix/sysv/linux/or1k/makecontext.c
View File

@ -16,6 +16,7 @@
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#include <shlib-compat.h>
#include <sysdep.h>
#include <stdarg.h>
#include <stdint.h>
@ -36,12 +37,11 @@
r1 : stack pointer
r2 : frame pointer, set to NULL
*/
void
__makecontext (ucontext_t *ucp, void (*func) (void), int argc, ...)
static void
do_makecontext (ucontext_t *ucp, void (*startcontext) (void),
void (*func) (void), int argc, va_list ap)
{
extern void __startcontext (void);
unsigned long int *sp;
va_list ap;
int i;
sp = (unsigned long int *)
@ -55,8 +55,8 @@ __makecontext (ucontext_t *ucp, void (*func) (void), int argc, ...)
/* Keep uc_link in r14. */
ucp->uc_mcontext.__gprs[14] = (uintptr_t) ucp->uc_link;
/* Return address points to function __startcontext. */
ucp->uc_mcontext.__gprs[9] = (uintptr_t) &__startcontext;
/* Return address points to function startcontext. */
ucp->uc_mcontext.__gprs[9] = (uintptr_t) startcontext;
/* Frame pointer is null. */
ucp->uc_mcontext.__gprs[2] = (uintptr_t) 0;
/* Restart in user-space starting at 'func'. */
@ -64,14 +64,47 @@ __makecontext (ucontext_t *ucp, void (*func) (void), int argc, ...)
/* Set stack pointer. */
ucp->uc_mcontext.__gprs[1] = (uintptr_t) sp;
va_start (ap, argc);
for (i = 0; i < argc; ++i)
if (i < 6)
ucp->uc_mcontext.__gprs[i + 3] = va_arg (ap, unsigned long int);
else
sp[i - 6] = va_arg (ap, unsigned long int);
}
void
__makecontext (ucontext_t *ucp, void (*func) (void), int argc, ...)
{
extern void __startcontext (void);
va_list ap;
va_start (ap, argc);
do_makecontext (ucp, &__startcontext, func, argc, ap);
va_end (ap);
}
weak_alias (__makecontext, makecontext)
versioned_symbol (libc, __makecontext, makecontext, GLIBC_2_40);
#if SHLIB_COMPAT (libc, GLIBC_2_35, GLIBC_2_40)
/* Define a compat version of makecontext for glibc's before the fpcsr
field was added to mcontext_t. The offset sigmask changed with this
introduction, the change was done because glibc's definition of
ucontext_t was initially defined incompatible with the Linux
definition of ucontext_t. We keep the compatability definition to
allow getcontext, setcontext and swapcontext to work in older
binaries. */
void
__makecontext_nofpcsr (ucontext_t *ucp, void (*func) (void), int argc, ...)
{
extern void __startcontext_nofpcsr (void);
va_list ap;
va_start (ap, argc);
do_makecontext (ucp, &__startcontext_nofpcsr, func, argc, ap);
va_end (ap);
}
compat_symbol (libc, __makecontext_nofpcsr, makecontext, GLIBC_2_35);
#endif

120
sysdeps/unix/sysv/linux/or1k/setcontext-common.S Normal file
View File

@ -0,0 +1,120 @@
/* Set current context. OpenRISC common version.
Copyright (C) 2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
/* This common setcontext and startcontext template helps define
different implementations using control macros. Before including
this file in another file define the following:
__CONTEXT_FUNC_NAME
__CONTEXT_ENABLE_FPCSR
__CONTEXT_SIGMASK_OFFSET
__STARTCONTEXT_FUNC_NAME
*/
/* int setcontext (const ucontext_t *ucp) */
.text
ENTRY(__CONTEXT_FUNC_NAME)
l.ori r30, r3, 0
/* Restore signal mask. */
/* rt_sigprocmask (SIG_SETMASK, &ucp->uc_sigmask, NULL, _NSIG8) */
l.ori r6, r0, _NSIG8
l.ori r5, r0, 0
l.addi r4, r3, __CONTEXT_SIGMASK_OFFSET
l.ori r3, r0, SIG_SETMASK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
#ifdef __CONTEXT_ENABLE_FPCSR
# ifdef __or1k_hard_float__
/* Restore the floating point state. */
l.lwz r28, (MCONTEXT_FPCSR)(r30)
l.mtspr r0, r28, 20
# endif /* __or1k_hard_float__ */
#endif /* __CONTEXT_ENABLE_FPCSR */
/* Restore argument registers, for the makecontext case. */
l.lwz r3, (UCONTEXT_MCONTEXT + 3*4)(r30)
l.lwz r4, (UCONTEXT_MCONTEXT + 4*4)(r30)
l.lwz r5, (UCONTEXT_MCONTEXT + 5*4)(r30)
l.lwz r6, (UCONTEXT_MCONTEXT + 6*4)(r30)
l.lwz r7, (UCONTEXT_MCONTEXT + 7*4)(r30)
l.lwz r8, (UCONTEXT_MCONTEXT + 8*4)(r30)
/* Restore registers stored in getcontext. */
l.lwz r1, (UCONTEXT_MCONTEXT + 1*4)(r30)
l.lwz r2, (UCONTEXT_MCONTEXT + 2*4)(r30)
l.lwz r9, (UCONTEXT_MCONTEXT + 9*4)(r30)
l.lwz r10, (UCONTEXT_MCONTEXT + 10*4)(r30)
l.lwz r11, (UCONTEXT_MCONTEXT + 11*4)(r30)
/* Restore r14-r30 even, callee saved registers. */
l.lwz r14, (UCONTEXT_MCONTEXT + 14*4)(r30)
l.lwz r16, (UCONTEXT_MCONTEXT + 16*4)(r30)
l.lwz r18, (UCONTEXT_MCONTEXT + 18*4)(r30)
l.lwz r20, (UCONTEXT_MCONTEXT + 20*4)(r30)
l.lwz r22, (UCONTEXT_MCONTEXT + 22*4)(r30)
l.lwz r24, (UCONTEXT_MCONTEXT + 24*4)(r30)
l.lwz r26, (UCONTEXT_MCONTEXT + 26*4)(r30)
l.lwz r28, (UCONTEXT_MCONTEXT + 28*4)(r30)
l.lwz r30, (UCONTEXT_MCONTEXT + 30*4)(r30)
l.jr r11
l.ori r11, r0, 0
1: l.j __syscall_error
l.ori r3, r11, 0
END (__CONTEXT_FUNC_NAME)
/* We add a NOP here because when the unwinder is looking for the
enclosing function of the link register (r9) address FDE lookup will
use '$r9 - 1' finding setcontext which is wrong. This is because in
makecontext we have set r9 to the start of &__startcontext.
If this NOP did not exist the unwinder would repeatedly find
__setcontext's FDE in an infinite loop. Modifying/deleting the below
__startcontext's FDE has no help on this. */
l.nop
ENTRY(__STARTCONTEXT_FUNC_NAME)
l.ori r3, r14, 0
l.sfeq r3, r0
/* If uc_link is not 0 resume there, otherwise exit. */
l.bnf __CONTEXT_FUNC_NAME
l.nop
#ifdef SHARED
/* Obtain a pointer to .got in r16 */
l.jal 0x8
l.movhi r16, gotpchi(_GLOBAL_OFFSET_TABLE_-4)
l.ori r16, r16, gotpclo(_GLOBAL_OFFSET_TABLE_+0)
l.add r16, r16, r9
l.lwz r16, got(exit)(r16)
l.jr r16
#else
l.j exit
#endif
l.nop
END(__STARTCONTEXT_FUNC_NAME)

102
sysdeps/unix/sysv/linux/or1k/setcontext.S
View File

@ -16,93 +16,39 @@
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#include <shlib-compat.h>
#include <sysdep.h>
#include "ucontext_i.h"
/* int setcontext (const ucontext_t *ucp) */
.text
ENTRY(__setcontext)
l.ori r30, r3, 0
#define __CONTEXT_FUNC_NAME __setcontext
#define __CONTEXT_ENABLE_FPCSR 1
#define __CONTEXT_SIGMASK_OFFSET UCONTEXT_SIGMASK
#define __STARTCONTEXT_FUNC_NAME __startcontext
/* Restore signal mask. */
/* rt_sigprocmask (SIG_SETMASK, &ucp->uc_sigmask, NULL, _NSIG8) */
l.ori r6, r0, _NSIG8
l.ori r5, r0, 0
l.addi r4, r3, UCONTEXT_SIGMASK
l.ori r3, r0, SIG_SETMASK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
#include "setcontext-common.S"
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
versioned_symbol (libc, __setcontext, setcontext, GLIBC_2_40)
/* Restore argument registers, for the makecontext case. */
l.lwz r3, (UCONTEXT_MCONTEXT + 3*4)(r30)
l.lwz r4, (UCONTEXT_MCONTEXT + 4*4)(r30)
l.lwz r5, (UCONTEXT_MCONTEXT + 5*4)(r30)
l.lwz r6, (UCONTEXT_MCONTEXT + 6*4)(r30)
l.lwz r7, (UCONTEXT_MCONTEXT + 7*4)(r30)
l.lwz r8, (UCONTEXT_MCONTEXT + 8*4)(r30)
#if SHLIB_COMPAT (libc, GLIBC_2_35, GLIBC_2_40)
/* Restore registers stored in getcontext. */
l.lwz r1, (UCONTEXT_MCONTEXT + 1*4)(r30)
l.lwz r2, (UCONTEXT_MCONTEXT + 2*4)(r30)
l.lwz r9, (UCONTEXT_MCONTEXT + 9*4)(r30)
l.lwz r10, (UCONTEXT_MCONTEXT + 10*4)(r30)
l.lwz r11, (UCONTEXT_MCONTEXT + 11*4)(r30)
/* Restore r14-r30 even, callee saved registers. */
l.lwz r14, (UCONTEXT_MCONTEXT + 14*4)(r30)
l.lwz r16, (UCONTEXT_MCONTEXT + 16*4)(r30)
l.lwz r18, (UCONTEXT_MCONTEXT + 18*4)(r30)
l.lwz r20, (UCONTEXT_MCONTEXT + 20*4)(r30)
l.lwz r22, (UCONTEXT_MCONTEXT + 22*4)(r30)
l.lwz r24, (UCONTEXT_MCONTEXT + 24*4)(r30)
l.lwz r26, (UCONTEXT_MCONTEXT + 26*4)(r30)
l.lwz r28, (UCONTEXT_MCONTEXT + 28*4)(r30)
l.lwz r30, (UCONTEXT_MCONTEXT + 30*4)(r30)
/* Define a compat version of setcontext for glibc's before the fpcsr
field was added to mcontext_t. The offset sigmask changed with this
introduction, the change was done because glibc's definition of
ucontext_t was initially defined incompatible with the Linux
definition of ucontext_t. We keep the compatability definition to
allow getcontext, setcontext and swapcontext to work in older
binaries. */
l.jr r11
l.ori r11, r0, 0
# undef __CONTEXT_FUNC_NAME
# undef __CONTEXT_ENABLE_FPCSR
# undef __CONTEXT_SIGMASK_OFFSET
# undef __STARTCONTEXT_FUNC_NAME
# define __CONTEXT_FUNC_NAME __setcontext_nofpcsr
# define __CONTEXT_SIGMASK_OFFSET (UCONTEXT_SIGMASK - 4)
# define __STARTCONTEXT_FUNC_NAME __startcontext_nofpcsr
1: l.j __syscall_error
l.ori r3, r11, 0
# include "setcontext-common.S"
END (__setcontext)
weak_alias (__setcontext, setcontext)
compat_symbol (libc, __setcontext_nofpcsr, setcontext, GLIBC_2_35)
/* We add a NOP here because when the unwinder is looking for the
enclosing function of the link register (r9) address FDE lookup will
use '$r9 - 1' finding setcontext which is wrong. This is because in
makecontext we have set r9 to the start of &__startcontext.
If this NOP did not exist the unwinder would repeatedly find
__setcontext's FDE in an infinite loop. Modifying/deleting the below
__startcontext's FDE has no help on this. */
l.nop
ENTRY(__startcontext)
l.ori r3, r14, 0
l.sfeq r3, r0
/* If uc_link is not 0 resume there, otherwise exit. */
l.bnf __setcontext
l.nop
#ifdef SHARED
/* Obtain a pointer to .got in r16 */
l.jal 0x8
l.movhi r16, gotpchi(_GLOBAL_OFFSET_TABLE_-4)
l.ori r16, r16, gotpclo(_GLOBAL_OFFSET_TABLE_+0)
l.add r16, r16, r9
l.lwz r16, got(exit)(r16)
l.jr r16
#else
l.j exit
#endif
l.nop
END(__startcontext)

139
sysdeps/unix/sysv/linux/or1k/swapcontext-common.S Normal file
View File

@ -0,0 +1,139 @@
/* Swap two contexts. OpenRISC version.
Copyright (C) 2022-2024 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
The GNU C Library 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
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
/* This common swapcontext template helps define different
implementations using control macros. Before including this file
in another file define the following:
__CONTEXT_FUNC_NAME
__CONTEXT_ENABLE_FPCSR
__CONTEXT_SIGMASK_OFFSET
*/
/* int swapcontext (ucontext_t *oucp, const ucontext_t *ucp) */
.text
ENTRY(__CONTEXT_FUNC_NAME)
/* Same as getcontext. */
/* Store r1, the stack pointer. */
l.sw (UCONTEXT_MCONTEXT + 1*4)(r3), r1
/* Store r2, the frame pointer. */
l.sw (UCONTEXT_MCONTEXT + 2*4)(r3), r2
/* Store r9, the link register. */
l.sw (UCONTEXT_MCONTEXT + 9*4)(r3), r9
/* Store r9 to reg[11] too, as we need two links for makecontext. */
l.sw (UCONTEXT_MCONTEXT + 11*4)(r3), r9
/* Store r10, the TLS register. */
l.sw (UCONTEXT_MCONTEXT + 10*4)(r3), r10
/* Store r14-r30 even, callee saved registers. */
l.sw (UCONTEXT_MCONTEXT + 14*4)(r3), r14
l.sw (UCONTEXT_MCONTEXT + 16*4)(r3), r16
l.sw (UCONTEXT_MCONTEXT + 18*4)(r3), r18
l.sw (UCONTEXT_MCONTEXT + 20*4)(r3), r20
l.sw (UCONTEXT_MCONTEXT + 22*4)(r3), r22
l.sw (UCONTEXT_MCONTEXT + 24*4)(r3), r24
l.sw (UCONTEXT_MCONTEXT + 26*4)(r3), r26
l.sw (UCONTEXT_MCONTEXT + 28*4)(r3), r28
l.sw (UCONTEXT_MCONTEXT + 30*4)(r3), r30
#ifdef __CONTEXT_ENABLE_FPCSR
# ifdef __or1k_hard_float__
/* Store the floating point state. */
l.mfspr r6, r0, 20
l.sw (MCONTEXT_FPCSR)(r3), r6
# else
/* Store zero to indicate default rounding as per softfloat. */
l.sw (MCONTEXT_FPCSR)(r3), r0
# endif /* __or1k_hard_float__ */
#endif /* __CONTEXT_ENABLE_FPCSR */
/* Store ucp to non-argument syscall preserved register. */
l.ori r30, r4, 0
/* Get signal mask. */
/* rt_sigprocmask (SIG_BLOCK, NULL, &ucp->uc_sigmask, _NSIG8) */
l.ori r6, r0, _NSIG8
l.addi r5, r3, __CONTEXT_SIGMASK_OFFSET
l.ori r4, r0, 0
l.ori r3, r0, SIG_BLOCK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
/* Same as setcontext. */
/* Restore signal mask. */
/* rt_sigprocmask (SIG_SETMASK, &ucp->uc_sigmask, NULL, _NSIG8) */
l.ori r6, r0, _NSIG8
l.ori r5, r0, 0
l.addi r4, r30, __CONTEXT_SIGMASK_OFFSET
l.ori r3, r0, SIG_SETMASK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
#ifdef __CONTEXT_ENABLE_FPCSR
# ifdef __or1k_hard_float__
/* Restore the floating point state. */
l.lwz r28, (MCONTEXT_FPCSR)(r30)
l.mtspr r0, r28, 20
# endif /* __or1k_hard_float__ */
#endif /* __CONTEXT_ENABLE_FPCSR */
/* Restore argument registers, for the makecontext case. */
l.lwz r3, (UCONTEXT_MCONTEXT + 3*4)(r30)
l.lwz r4, (UCONTEXT_MCONTEXT + 4*4)(r30)
l.lwz r5, (UCONTEXT_MCONTEXT + 5*4)(r30)
l.lwz r6, (UCONTEXT_MCONTEXT + 6*4)(r30)
l.lwz r7, (UCONTEXT_MCONTEXT + 7*4)(r30)
l.lwz r8, (UCONTEXT_MCONTEXT + 8*4)(r30)
/* Restore registers stored in getcontext. */
l.lwz r1, (UCONTEXT_MCONTEXT + 1*4)(r30)
l.lwz r2, (UCONTEXT_MCONTEXT + 2*4)(r30)
l.lwz r9, (UCONTEXT_MCONTEXT + 9*4)(r30)
l.lwz r10, (UCONTEXT_MCONTEXT + 10*4)(r30)
l.lwz r11, (UCONTEXT_MCONTEXT + 11*4)(r30)
l.lwz r14, (UCONTEXT_MCONTEXT + 14*4)(r30)
l.lwz r16, (UCONTEXT_MCONTEXT + 16*4)(r30)
l.lwz r18, (UCONTEXT_MCONTEXT + 18*4)(r30)
l.lwz r20, (UCONTEXT_MCONTEXT + 20*4)(r30)
l.lwz r22, (UCONTEXT_MCONTEXT + 22*4)(r30)
l.lwz r24, (UCONTEXT_MCONTEXT + 24*4)(r30)
l.lwz r26, (UCONTEXT_MCONTEXT + 26*4)(r30)
l.lwz r28, (UCONTEXT_MCONTEXT + 28*4)(r30)
l.lwz r30, (UCONTEXT_MCONTEXT + 30*4)(r30)
l.jr r11
l.ori r11, r0, 0
1: l.j __syscall_error
l.ori r3, r11, 0
END (__CONTEXT_FUNC_NAME)

109
sysdeps/unix/sysv/linux/or1k/swapcontext.S
View File

@ -16,101 +16,36 @@
License along with the GNU C Library; if not, see
<https://www.gnu.org/licenses/>. */
#include <shlib-compat.h>
#include <sysdep.h>
#include "ucontext_i.h"
/* int swapcontext (ucontext_t *oucp, const ucontext_t *ucp) */
.text
ENTRY(__swapcontext)
#define __CONTEXT_FUNC_NAME __swapcontext
#define __CONTEXT_ENABLE_FPCSR 1
#define __CONTEXT_SIGMASK_OFFSET UCONTEXT_SIGMASK
/* Same as getcontext. */
/* Store r1, the stack pointer. */
l.sw (UCONTEXT_MCONTEXT + 1*4)(r3), r1
/* Store r2, the frame pointer. */
l.sw (UCONTEXT_MCONTEXT + 2*4)(r3), r2
/* Store r9, the link register. */
l.sw (UCONTEXT_MCONTEXT + 9*4)(r3), r9
/* Store r9 to reg[11] too, as we need two links for makecontext. */
l.sw (UCONTEXT_MCONTEXT + 11*4)(r3), r9
/* Store r10, the TLS register. */
l.sw (UCONTEXT_MCONTEXT + 10*4)(r3), r10
/* Store r14-r30 even, callee saved registers. */
l.sw (UCONTEXT_MCONTEXT + 14*4)(r3), r14
l.sw (UCONTEXT_MCONTEXT + 16*4)(r3), r16
l.sw (UCONTEXT_MCONTEXT + 18*4)(r3), r18
l.sw (UCONTEXT_MCONTEXT + 20*4)(r3), r20
l.sw (UCONTEXT_MCONTEXT + 22*4)(r3), r22
l.sw (UCONTEXT_MCONTEXT + 24*4)(r3), r24
l.sw (UCONTEXT_MCONTEXT + 26*4)(r3), r26
l.sw (UCONTEXT_MCONTEXT + 28*4)(r3), r28
l.sw (UCONTEXT_MCONTEXT + 30*4)(r3), r30
#include "swapcontext-common.S"
/* Store ucp to non-argument syscall preserved register. */
l.ori r30, r4, 0
versioned_symbol (libc, __swapcontext, swapcontext, GLIBC_2_40)
/* Get signal mask. */
/* rt_sigprocmask (SIG_BLOCK, NULL, &ucp->uc_sigmask, _NSIG8) */
l.ori r6, r0, _NSIG8
l.addi r5, r3, UCONTEXT_SIGMASK
l.ori r4, r0, 0
l.ori r3, r0, SIG_BLOCK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
#if SHLIB_COMPAT (libc, GLIBC_2_35, GLIBC_2_40)
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
/* Define a compat version of swapcontext for glibc's before the fpcsr
field was added to mcontext_t. The offset sigmask changed with this
introduction, the change was done because glibc's definition of
ucontext_t was initially defined incompatible with the Linux
definition of ucontext_t. We keep the compatability definition to
allow getcontext, setcontext and swapcontext to work in older
binaries. */
/* Same as setcontext. */
# undef __CONTEXT_FUNC_NAME
# undef __CONTEXT_ENABLE_FPCSR
# undef __CONTEXT_SIGMASK_OFFSET
# define __CONTEXT_FUNC_NAME __swapcontext_nofpcsr
# define __CONTEXT_SIGMASK_OFFSET (UCONTEXT_SIGMASK - 4)
/* Restore signal mask. */
/* rt_sigprocmask (SIG_SETMASK, &ucp->uc_sigmask, NULL, _NSIG8) */
l.ori r6, r0, _NSIG8
l.ori r5, r0, 0
l.addi r4, r30, UCONTEXT_SIGMASK
l.ori r3, r0, SIG_SETMASK
l.ori r11, r0, SYS_ify (rt_sigprocmask)
/* Do the syscall. */
l.sys 1
l.nop
# include "swapcontext-common.S"
/* if -4096 < ret < 0 holds, it's an error */
l.sfgeui r11, 0xf001
l.bf 1f
l.nop
compat_symbol (libc, __swapcontext_nofpcsr, swapcontext, GLIBC_2_35)
/* Restore argument registers, for the makecontext case. */
l.lwz r3, (UCONTEXT_MCONTEXT + 3*4)(r30)
l.lwz r4, (UCONTEXT_MCONTEXT + 4*4)(r30)
l.lwz r5, (UCONTEXT_MCONTEXT + 5*4)(r30)
l.lwz r6, (UCONTEXT_MCONTEXT + 6*4)(r30)
l.lwz r7, (UCONTEXT_MCONTEXT + 7*4)(r30)
l.lwz r8, (UCONTEXT_MCONTEXT + 8*4)(r30)
/* Restore registers stored in getcontext. */
l.lwz r1, (UCONTEXT_MCONTEXT + 1*4)(r30)
l.lwz r2, (UCONTEXT_MCONTEXT + 2*4)(r30)
l.lwz r9, (UCONTEXT_MCONTEXT + 9*4)(r30)
l.lwz r10, (UCONTEXT_MCONTEXT + 10*4)(r30)
l.lwz r11, (UCONTEXT_MCONTEXT + 11*4)(r30)
l.lwz r14, (UCONTEXT_MCONTEXT + 14*4)(r30)
l.lwz r16, (UCONTEXT_MCONTEXT + 16*4)(r30)
l.lwz r18, (UCONTEXT_MCONTEXT + 18*4)(r30)
l.lwz r20, (UCONTEXT_MCONTEXT + 20*4)(r30)
l.lwz r22, (UCONTEXT_MCONTEXT + 22*4)(r30)
l.lwz r24, (UCONTEXT_MCONTEXT + 24*4)(r30)
l.lwz r26, (UCONTEXT_MCONTEXT + 26*4)(r30)
l.lwz r28, (UCONTEXT_MCONTEXT + 28*4)(r30)
l.lwz r30, (UCONTEXT_MCONTEXT + 30*4)(r30)
l.jr r11
l.ori r11, r0, 0
1: l.j __syscall_error
l.ori r3, r11, 0
END (__swapcontext)
weak_alias (__swapcontext, swapcontext)
#endif

1
sysdeps/unix/sysv/linux/or1k/sys/ucontext.h
View File

@ -38,6 +38,7 @@ typedef struct
unsigned long int __gprs[__NGREG];
unsigned long int __pc;
unsigned long int __sr;
unsigned long int __fpcsr;
} mcontext_t;
/* Userlevel context. */

3
sysdeps/unix/sysv/linux/or1k/ucontext_i.sym
View File

@ -13,6 +13,7 @@ _NSIG8 (_NSIG / 8)
-- Offsets of the fields in the ucontext_t structure.
#define ucontext(member) offsetof (ucontext_t, member)
#define stack(member) ucontext (uc_stack.member)
#define mcontext(member) ucontext (uc_mcontext.member)
UCONTEXT_LINK ucontext (uc_link)
UCONTEXT_STACK ucontext (uc_stack)
@ -23,4 +24,6 @@ STACK_SP stack (ss_sp)
STACK_SIZE stack (ss_size)
STACK_FLAGS stack (ss_flags)
MCONTEXT_FPCSR mcontext (__fpcsr)
UCONTEXT_SIZE sizeof (ucontext_t)