2005-02-24 James A. Morrison <phython@gcc.gnu.org>
+ PR other/19896
+ * treetree.c (tree_code_create_variable): Initialize DECL_EXTERNAL,
+ TREE_PUBLIC, and TREE_STATIC for var_decl to zero. Don't call
+ rest_of_decl_compilation on static variables.
+ (pushdecl): Put DECL_EXPRs into the current BIND_EXPR for automatic
+ variables.
+
+2005-02-24 James A. Morrison <phython@gcc.gnu.org>
+
PR other/19897
* parse.y: (function_prototype): Accept EXTERNAL_REFERENCE_STORAGE.
Move function parameters check from ...
DECL_SOURCE_LOCATION (var_decl) = loc;
+ DECL_EXTERNAL (var_decl) = 0;
+ TREE_PUBLIC (var_decl) = 0;
+ TREE_STATIC (var_decl) = 0;
/* Set the storage mode and whether only visible in the same file. */
switch (storage_class)
{
case STATIC_STORAGE:
TREE_STATIC (var_decl) = 1;
- TREE_PUBLIC (var_decl) = 0;
break;
case AUTOMATIC_STORAGE:
- TREE_STATIC (var_decl) = 0;
- TREE_PUBLIC (var_decl) = 0;
break;
case EXTERNAL_DEFINITION_STORAGE:
- TREE_STATIC (var_decl) = 0;
TREE_PUBLIC (var_decl) = 1;
break;
case EXTERNAL_REFERENCE_STORAGE:
DECL_EXTERNAL (var_decl) = 1;
- TREE_PUBLIC (var_decl) = 0;
break;
default:
/* This should really only be set if the variable is used. */
TREE_USED (var_decl) = 1;
- /* Expand declaration and initial value if any. */
-
- if (TREE_STATIC (var_decl))
- rest_of_decl_compilation (var_decl, 0, 0);
-
TYPE_NAME (TREE_TYPE (var_decl)) = TYPE_NAME (var_type);
return pushdecl (copy_node (var_decl));
}
&& TYPE_NAME (TREE_TYPE (decl)) == 0)
TYPE_NAME (TREE_TYPE (decl)) = DECL_NAME (decl);
+ /* Put automatic variables into the intermediate representation. */
+ if (TREE_CODE (decl) == VAR_DECL && !DECL_EXTERNAL (decl)
+ && !TREE_STATIC (decl) && !TREE_PUBLIC (decl))
+ tree_code_output_expression_statement (build1 (DECL_EXPR, void_type_node,
+ decl),
+ DECL_SOURCE_LOCATION (decl));
return decl;
}
\f