diff options
| author | Rimvydas Jasinskas <rimvydas.jas@gmail.com> | 2023-02-12 06:16:51 +0000 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-02-13 18:35:26 +0100 |
| commit | 086a1df4374962787db37c1f0d1bd9beb828f9e3 (patch) | |
| tree | a94688f95cc312c3dece0c6cfee62c78d83856db /gcc/fortran/trans-decl.cc | |
| parent | 72ae1e5635648bd3f6a5760ca46d531ad1f2c6b1 (diff) | |
| download | gcc-086a1df4374962787db37c1f0d1bd9beb828f9e3.zip gcc-086a1df4374962787db37c1f0d1bd9beb828f9e3.tar.gz gcc-086a1df4374962787db37c1f0d1bd9beb828f9e3.tar.bz2 | |
Fortran: Add !GCC$ attributes NOINLINE,NORETURN,WEAK
gcc/fortran/ChangeLog:
* decl.cc: Add EXT_ATTR_NOINLINE, EXT_ATTR_NORETURN, EXT_ATTR_WEAK.
* gfortran.h (ext_attr_id_t): Ditto.
* gfortran.texi (GCC$ ATTRIBUTES): Document them.
* trans-decl.cc (build_function_decl): Apply them.
gcc/testsuite/ChangeLog:
* gfortran.dg/noinline.f90: New test.
* gfortran.dg/noreturn-1.f90: New test.
* gfortran.dg/noreturn-2.f90: New test.
* gfortran.dg/noreturn-3.f90: New test.
* gfortran.dg/noreturn-4.f90: New test.
* gfortran.dg/noreturn-5.f90: New test.
* gfortran.dg/weak-1.f90: New test.
Signed-off-by: Rimvydas Jasinskas <rimvydas.jas@gmail.com>
Diffstat (limited to 'gcc/fortran/trans-decl.cc')
| -rw-r--r-- | gcc/fortran/trans-decl.cc | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index f7a7ff6..ff64588 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -2338,7 +2338,7 @@ module_sym: } /* Mark non-returning functions. */ - if (sym->attr.noreturn) + if (sym->attr.noreturn || sym->attr.ext_attr & (1 << EXT_ATTR_NORETURN)) TREE_THIS_VOLATILE(fndecl) = 1; sym->backend_decl = fndecl; @@ -2482,6 +2482,17 @@ build_function_decl (gfc_symbol * sym, bool global) TREE_SIDE_EFFECTS (fndecl) = 0; } + /* Mark noinline functions. */ + if (attr.ext_attr & (1 << EXT_ATTR_NOINLINE)) + DECL_UNINLINABLE (fndecl) = 1; + + /* Mark noreturn functions. */ + if (attr.ext_attr & (1 << EXT_ATTR_NORETURN)) + TREE_THIS_VOLATILE (fndecl) = 1; + + /* Mark weak functions. */ + if (attr.ext_attr & (1 << EXT_ATTR_WEAK)) + declare_weak (fndecl); /* Layout the function declaration and put it in the binding level of the current function. */ |