* builtins.c (check_for_builtin): New function.
(build_call_or_builtin): Remove.
* java-tree.h: Update accordingly.
* expr.c (expand_invoke): Use build + check_for_builtin instead
of build_call_or_builtin.
* parse.y (patch_invoke): Likewise. This avoids needlessly creating
a new CALL_EXPR node, which means we don't lose the CALL_USING_SUPER
flag (which had caused jcf-write to incorrectly emit invokevirtual).
From-SVN: r49909
+2002-02-20 Per Bothner <per@bothner.com>
+
+ * builtins.c (check_for_builtin): New function.
+ (build_call_or_builtin): Remove.
+ * java-tree.h: Update accordingly.
+ * expr.c (expand_invoke): Use build + check_for_builtin instead
+ of build_call_or_builtin.
+ * parse.y (patch_invoke): Likewise. This avoids needlessly creating
+ a new CALL_EXPR node, which means we don't lose the CALL_USING_SUPER
+ flag (which had caused jcf-write to incorrectly emit invokevirtual).
+
2002-02-17 Tom Tromey <tromey@redhat.com>
* java-tree.h (TYPE_STRICTFP): New macro.
#include "builtins.def"
}
-/* Generate a method call. If the call matches a builtin, return the
+/* If the call matches a builtin, return the
appropriate builtin expression instead. */
tree
-build_call_or_builtin (method, func, method_arguments)
- tree method, func, method_arguments;
+check_for_builtin (method, call)
+ tree method;
+ tree call;
{
- tree method_class = DECL_NAME (TYPE_NAME (DECL_CONTEXT (method)));
- tree method_name = DECL_NAME (method);
- tree method_return_type = TREE_TYPE (TREE_TYPE (method));
- tree call = NULL_TREE;
-
- /* Only look if we're generating object code and optimizing. */
- if (! flag_emit_class_files && optimize)
+ if (! flag_emit_class_files && optimize && TREE_CODE (call) == CALL_EXPR)
{
int i;
+ tree method_arguments = TREE_OPERAND (call, 1);
+ tree method_class = DECL_NAME (TYPE_NAME (DECL_CONTEXT (method)));
+ tree method_name = DECL_NAME (method);
+ tree method_return_type = TREE_TYPE (TREE_TYPE (method));
for (i = 0; java_builtins[i].creator != NULL; ++i)
{
if (method_class == java_builtins[i].class_name.t
&& method_name == java_builtins[i].method_name.t)
{
- call = (*java_builtins[i].creator) (method_return_type,
+ return (*java_builtins[i].creator) (method_return_type,
method_arguments);
- break;
}
}
}
-
- if (call == NULL_TREE)
- {
- /* Either nothing matched, or the creator function decided not
- to inline. In either case, emit a call. */
- call = build (CALL_EXPR, method_return_type, func, method_arguments,
- NULL_TREE);
- TREE_SIDE_EFFECTS (call) = 1;
- }
-
return call;
}
}
func = build1 (NOP_EXPR, build_pointer_type (method_type), func);
- call = build_call_or_builtin (method, func, arg_list);
+ call = build (CALL_EXPR, TREE_TYPE (method_type), func, arg_list, NULL_TREE);
+ TREE_SIDE_EFFECTS (call) = 1;
+ call = check_for_builtin (method, call);
if (check != NULL_TREE)
{
extern int read_class PARAMS ((tree));
extern void load_class PARAMS ((tree, int));
-extern tree build_call_or_builtin PARAMS ((tree, tree, tree));
+extern tree check_for_builtin PARAMS ((tree, tree));
extern void initialize_builtins PARAMS ((void));
extern tree lookup_name PARAMS ((tree));
func = build1 (NOP_EXPR, build_pointer_type (TREE_TYPE (method)), func);
}
- if (TREE_CODE (patch) == CALL_EXPR)
- patch = build_call_or_builtin (method, func, args);
- else
- {
- TREE_TYPE (patch) = TREE_TYPE (TREE_TYPE (method));
- TREE_OPERAND (patch, 0) = func;
- TREE_OPERAND (patch, 1) = args;
- }
+ TREE_TYPE (patch) = TREE_TYPE (TREE_TYPE (method));
+ TREE_OPERAND (patch, 0) = func;
+ TREE_OPERAND (patch, 1) = args;
+ patch = check_for_builtin (method, patch);
original_call = patch;
/* We're processing a `new TYPE ()' form. New is called and its