Commit 44fe2e80 by Richard Stallman

entered into RCS

From-SVN: r1565
parent e2f2127c
...@@ -225,7 +225,7 @@ half_pic_encode (decl) ...@@ -225,7 +225,7 @@ half_pic_encode (decl)
#endif #endif
/* If this is not an external reference, it can't be half-pic. */ /* If this is not an external reference, it can't be half-pic. */
if (!TREE_EXTERNAL (decl) && (code != VAR_DECL || !TREE_PUBLIC (decl))) if (!DECL_EXTERNAL (decl) && (code != VAR_DECL || !TREE_PUBLIC (decl)))
return; return;
ptr = half_pic_hash (IDENTIFIER_POINTER (asm_name), ptr = half_pic_hash (IDENTIFIER_POINTER (asm_name),
......
...@@ -895,12 +895,12 @@ fixup_gotos (thisblock, stack_level, cleanup_list, first_insn, dont_jump_in) ...@@ -895,12 +895,12 @@ fixup_gotos (thisblock, stack_level, cleanup_list, first_insn, dont_jump_in)
&& (after_label == 0 && (after_label == 0
|| INSN_UID (first_insn) < INSN_UID (after_label)) || INSN_UID (first_insn) < INSN_UID (after_label))
&& INSN_UID (first_insn) > INSN_UID (f->before_jump) && INSN_UID (first_insn) > INSN_UID (f->before_jump)
&& ! TREE_REGDECL (f->target)) && ! DECL_REGISTER (f->target))
{ {
error_with_decl (f->target, error_with_decl (f->target,
"label `%s' used before containing binding contour"); "label `%s' used before containing binding contour");
/* Prevent multiple errors for one label. */ /* Prevent multiple errors for one label. */
TREE_REGDECL (f->target) = 1; DECL_REGISTER (f->target) = 1;
} }
/* Execute cleanups for blocks this jump exits. */ /* Execute cleanups for blocks this jump exits. */
...@@ -2720,7 +2720,7 @@ expand_decl (decl) ...@@ -2720,7 +2720,7 @@ expand_decl (decl)
if (TREE_CODE (decl) != VAR_DECL) if (TREE_CODE (decl) != VAR_DECL)
return; return;
if (TREE_STATIC (decl) || TREE_EXTERNAL (decl)) if (TREE_STATIC (decl) || DECL_EXTERNAL (decl))
return; return;
/* Create the RTL representation for the variable. */ /* Create the RTL representation for the variable. */
...@@ -2745,7 +2745,7 @@ expand_decl (decl) ...@@ -2745,7 +2745,7 @@ expand_decl (decl)
&& TREE_CODE (type) == REAL_TYPE) && TREE_CODE (type) == REAL_TYPE)
&& ! TREE_THIS_VOLATILE (decl) && ! TREE_THIS_VOLATILE (decl)
&& ! TREE_ADDRESSABLE (decl) && ! TREE_ADDRESSABLE (decl)
&& (TREE_REGDECL (decl) || ! obey_regdecls)) && (DECL_REGISTER (decl) || ! obey_regdecls))
{ {
/* Automatic variable that can go in a register. */ /* Automatic variable that can go in a register. */
DECL_RTL (decl) = gen_reg_rtx (DECL_MODE (decl)); DECL_RTL (decl) = gen_reg_rtx (DECL_MODE (decl));
......
...@@ -310,21 +310,21 @@ make_decl_rtl (decl, asmspec, top_level) ...@@ -310,21 +310,21 @@ make_decl_rtl (decl, asmspec, top_level)
DECL_RTL (decl) = 0; DECL_RTL (decl) = 0;
/* First detect errors in declaring global registers. */ /* First detect errors in declaring global registers. */
if (TREE_REGDECL (decl) && reg_number == -1) if (DECL_REGISTER (decl) && reg_number == -1)
error_with_decl (decl, error_with_decl (decl,
"register name not specified for `%s'"); "register name not specified for `%s'");
else if (TREE_REGDECL (decl) && reg_number < 0) else if (DECL_REGISTER (decl) && reg_number < 0)
error_with_decl (decl, error_with_decl (decl,
"invalid register name for `%s'"); "invalid register name for `%s'");
else if ((reg_number >= 0 || reg_number == -3) && ! TREE_REGDECL (decl)) else if ((reg_number >= 0 || reg_number == -3) && ! DECL_REGISTER (decl))
error_with_decl (decl, error_with_decl (decl,
"register name given for non-register variable `%s'"); "register name given for non-register variable `%s'");
else if (TREE_REGDECL (decl) && TREE_CODE (decl) == FUNCTION_DECL) else if (DECL_REGISTER (decl) && TREE_CODE (decl) == FUNCTION_DECL)
error ("function declared `register'"); error ("function declared `register'");
else if (TREE_REGDECL (decl) && TYPE_MODE (TREE_TYPE (decl)) == BLKmode) else if (DECL_REGISTER (decl) && TYPE_MODE (TREE_TYPE (decl)) == BLKmode)
error_with_decl (decl, "data type of `%s' isn't suitable for a register"); error_with_decl (decl, "data type of `%s' isn't suitable for a register");
/* Now handle properly declared static register variables. */ /* Now handle properly declared static register variables. */
else if (TREE_REGDECL (decl)) else if (DECL_REGISTER (decl))
{ {
int nregs; int nregs;
#if 0 /* yylex should print the warning for this */ #if 0 /* yylex should print the warning for this */
...@@ -361,7 +361,7 @@ make_decl_rtl (decl, asmspec, top_level) ...@@ -361,7 +361,7 @@ make_decl_rtl (decl, asmspec, top_level)
/* Can't use just the variable's own name for a variable /* Can't use just the variable's own name for a variable
whose scope is less than the whole file. whose scope is less than the whole file.
Concatenate a distinguishing number. */ Concatenate a distinguishing number. */
if (!top_level && !TREE_EXTERNAL (decl) && asmspec == 0) if (!top_level && !DECL_EXTERNAL (decl) && asmspec == 0)
{ {
char *label; char *label;
...@@ -696,7 +696,7 @@ assemble_variable (decl, top_level, at_end) ...@@ -696,7 +696,7 @@ assemble_variable (decl, top_level, at_end)
/* Normally no need to say anything for external references, /* Normally no need to say anything for external references,
since assembler considers all undefined symbols external. */ since assembler considers all undefined symbols external. */
if (TREE_EXTERNAL (decl)) if (DECL_EXTERNAL (decl))
return; return;
/* Output no assembler code for a function declaration. /* Output no assembler code for a function declaration.
...@@ -947,7 +947,7 @@ assemble_external (decl) ...@@ -947,7 +947,7 @@ assemble_external (decl)
{ {
#ifdef ASM_OUTPUT_EXTERNAL #ifdef ASM_OUTPUT_EXTERNAL
if (TREE_CODE_CLASS (TREE_CODE (decl)) == 'd' if (TREE_CODE_CLASS (TREE_CODE (decl)) == 'd'
&& TREE_EXTERNAL (decl) && TREE_PUBLIC (decl)) && DECL_EXTERNAL (decl) && TREE_PUBLIC (decl))
{ {
rtx rtl = DECL_RTL (decl); rtx rtl = DECL_RTL (decl);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment