diff options
author | Andreas Krebbel <Andreas.Krebbel@de.ibm.com> | 2015-02-27 10:14:20 +0000 |
---|---|---|
committer | Andreas Krebbel <krebbel@gcc.gnu.org> | 2015-02-27 10:14:20 +0000 |
commit | 004f64e1b05a568d974669c41a5c0f1af77914de (patch) | |
tree | 7d42d46f26e9dc1a5ab6cecf1d33e523b96c50c0 | |
parent | 9b80b7bc4de5b697b229be574246877a186fe859 (diff) | |
download | gcc-004f64e1b05a568d974669c41a5c0f1af77914de.zip gcc-004f64e1b05a568d974669c41a5c0f1af77914de.tar.gz gcc-004f64e1b05a568d974669c41a5c0f1af77914de.tar.bz2 |
S/390: Add builtins for efpc and sfpc
gcc/ChangeLog:
* config/s390/s390.c (enum s390_builtin):
Add S390_BUILTIN_S390_SFPC and S390_BUILTIN_S390_EFPC.
(code_for_builtin): Add CODE_FOR_s390_sfpc and CODE_FOR_s390_efpc.
(s390_init_builtins): Generate new builtin functions.
* config/s390/s390.md (UNSPECV_SFPC, UNSPECV_EFPC): New constants.
(s390_sfpc, s390_efpc): New pattern definitions.
From-SVN: r221047
-rw-r--r-- | gcc/ChangeLog | 9 | ||||
-rw-r--r-- | gcc/config/s390/s390.c | 19 | ||||
-rw-r--r-- | gcc/config/s390/s390.md | 19 |
3 files changed, 46 insertions, 1 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 6f2ce19..9e2e095 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,14 @@ 2015-02-27 Andreas Krebbel <Andreas.Krebbel@de.ibm.com> + * config/s390/s390.c (enum s390_builtin): + Add S390_BUILTIN_S390_SFPC and S390_BUILTIN_S390_EFPC. + (code_for_builtin): Add CODE_FOR_s390_sfpc and CODE_FOR_s390_efpc. + (s390_init_builtins): Generate new builtin functions. + * config/s390/s390.md (UNSPECV_SFPC, UNSPECV_EFPC): New constants. + (s390_sfpc, s390_efpc): New pattern definitions. + +2015-02-27 Andreas Krebbel <Andreas.Krebbel@de.ibm.com> + * config/s390/s390.c: (enum s390_builtin, s390_expand_builtin): Rename S390_BUILTIN_max to S390_BUILTIN_MAX. (s390_builtin_decls): New array. diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c index a4fb4c7..f4709da 100644 --- a/gcc/config/s390/s390.c +++ b/gcc/config/s390/s390.c @@ -9982,6 +9982,9 @@ enum s390_builtin S390_BUILTIN_TX_NESTING_DEPTH, S390_BUILTIN_TX_ASSIST, + S390_BUILTIN_S390_SFPC, + S390_BUILTIN_S390_EFPC, + S390_BUILTIN_MAX }; @@ -9997,7 +10000,10 @@ static enum insn_code const code_for_builtin[S390_BUILTIN_MAX] = { CODE_FOR_tabort, CODE_FOR_ntstg, CODE_FOR_etnd, - CODE_FOR_tx_assist + CODE_FOR_tx_assist, + + CODE_FOR_s390_sfpc, + CODE_FOR_s390_efpc }; static void @@ -10025,6 +10031,12 @@ s390_init_builtins (void) add_builtin_function ("__builtin_tx_assist", ftype, S390_BUILTIN_TX_ASSIST, BUILT_IN_MD, NULL, NULL_TREE); + /* void foo (unsigned) */ + ftype = build_function_type_list (void_type_node, unsigned_type_node, + NULL_TREE); + s390_builtin_decls[S390_BUILTIN_S390_SFPC] = + add_builtin_function ("__builtin_s390_sfpc", ftype, + S390_BUILTIN_S390_SFPC, BUILT_IN_MD, NULL, NULL_TREE); /* int foo (void *) */ ftype = build_function_type_list (integer_type_node, ptr_type_node, @@ -10061,6 +10073,11 @@ s390_init_builtins (void) add_builtin_function ("__builtin_tend", ftype, S390_BUILTIN_TEND, BUILT_IN_MD, NULL, NULL_TREE); + /* unsigned foo (void) */ + ftype = build_function_type_list (unsigned_type_node, NULL_TREE); + s390_builtin_decls[S390_BUILTIN_S390_EFPC] = + add_builtin_function ("__builtin_s390_efpc", ftype, + S390_BUILTIN_S390_EFPC, BUILT_IN_MD, NULL, NULL_TREE); /* void foo (uint64_t *, uint64_t) */ if (TARGET_64BIT) diff --git a/gcc/config/s390/s390.md b/gcc/config/s390/s390.md index f5ba132..bf698b1 100644 --- a/gcc/config/s390/s390.md +++ b/gcc/config/s390/s390.md @@ -162,6 +162,10 @@ UNSPECV_ETND UNSPECV_NTSTG UNSPECV_PPA + + ; Set and get floating point control register + UNSPECV_SFPC + UNSPECV_EFPC ]) ;; @@ -10300,3 +10304,18 @@ "TARGET_HTM && INTVAL (operands[2]) < 16" "ppa\t%0,%1,%2" [(set_attr "op_type" "RRF")]) + + +; Set and get floating point control register + +(define_insn "s390_sfpc" + [(unspec_volatile [(match_operand:SI 0 "register_operand" "d")] + UNSPECV_SFPC)] + "TARGET_HARD_FLOAT" + "sfpc\t%0") + +(define_insn "s390_efpc" + [(set (match_operand:SI 0 "register_operand" "=d") + (unspec_volatile:SI [(const_int 0)] UNSPECV_EFPC))] + "TARGET_HARD_FLOAT" + "efpc\t%0") |