Fix Ada runtime library breakage on Solaris
[official-gcc.git] / gcc / tree-hash-traits.h
blob84d8cde1813a2afb9086b992da7f5dfdf7cac09c
1 /* Traits for hashing trees.
2 Copyright (C) 2014-2024 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
20 #ifndef tree_hash_traits_h
21 #define tree_hash_traits_h
23 /* Hash for trees based on operand_equal_p. */
24 struct tree_operand_hash : ggc_ptr_hash <tree_node>
26 static inline hashval_t hash (const value_type &);
27 static inline bool equal (const value_type &,
28 const compare_type &);
31 inline hashval_t
32 tree_operand_hash::hash (const value_type &t)
34 return iterative_hash_expr (t, 0);
37 inline bool
38 tree_operand_hash::equal (const value_type &t1,
39 const compare_type &t2)
41 return operand_equal_p (t1, t2, 0);
44 #endif