diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-07 22:25:08 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-07 22:25:08 +0000 |
| commit | 4bfb5282bcf861add019d2c6133ecfe01a7dd319 (patch) | |
| tree | 79d5b55ac565ae07c2478c721b8819a796a18229 /gcc/fortran/trans-decl.c | |
| parent | 218a4f88d164d624eca9f0c278c9dfcbe596f2d2 (diff) | |
| download | gcc-4bfb5282bcf861add019d2c6133ecfe01a7dd319.tar.gz | |
* trans.h (gfor_fndecl_clz128, gfor_fndecl_ctz128): Remove.
* trans-decl.c (gfor_fndecl_clz128, gfor_fndecl_ctz128): Remove.
(gfc_build_intrinsic_function_decls): Don't build the
gfor_fndecl_clz128 and gfor_fndecl_ctz128.
* trans-intrinsic.c (gfc_conv_intrinsic_leadz,
gfc_conv_intrinsic_trailz): Generate inline arithmetic instead
of calling clz128/ctz128 library functions.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163976 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 3514adaa83e..d3d15dbf3af 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -150,12 +150,9 @@ tree gfor_fndecl_convert_char4_to_char1; /* Other misc. runtime library functions. */ - tree gfor_fndecl_size0; tree gfor_fndecl_size1; tree gfor_fndecl_iargc; -tree gfor_fndecl_clz128; -tree gfor_fndecl_ctz128; /* Intrinsic functions implemented in Fortran. */ tree gfor_fndecl_sc_kind; @@ -2775,21 +2772,6 @@ gfc_build_intrinsic_function_decls (void) gfor_fndecl_iargc = gfc_build_library_function_decl ( get_identifier (PREFIX ("iargc")), gfc_int4_type_node, 0); TREE_NOTHROW (gfor_fndecl_iargc) = 1; - - if (gfc_type_for_size (128, true)) - { - tree uint128 = gfc_type_for_size (128, true); - - gfor_fndecl_clz128 = gfc_build_library_function_decl ( - get_identifier (PREFIX ("clz128")), integer_type_node, 1, uint128); - TREE_READONLY (gfor_fndecl_clz128) = 1; - TREE_NOTHROW (gfor_fndecl_clz128) = 1; - - gfor_fndecl_ctz128 = gfc_build_library_function_decl ( - get_identifier (PREFIX ("ctz128")), integer_type_node, 1, uint128); - TREE_READONLY (gfor_fndecl_ctz128) = 1; - TREE_NOTHROW (gfor_fndecl_ctz128) = 1; - } } |