Cast expressions

gcc/elna-tree.cc

@@ -28,6 +28,12 @@ namespace gcc
             && TYPE_MAIN_VARIANT(TREE_TYPE(type)) == char_type_node;
     }
 
+    bool is_integral_type(tree type)
+    {
+        gcc_assert(TYPE_P(type));
+        return type == integer_type_node || type == unsigned_type_node;
+    }
+
     tree tree_chain_base::head()
     {
         return first;