(current_file_function_operand): New function.

From-SVN: r4941

diff --git a/gcc/config/rs6000/rs6000.c b/gcc/config/rs6000/rs6000.c
index 3a826932d785d5975299902616dfa992c331874f..4eb685d3fb1cb3f3572d0e6500441b9088b517aa 100644 (file)
--- a/gcc/config/rs6000/rs6000.c
+++ b/gcc/config/rs6000/rs6000.c
@@ -383,6 +383,21 @@ call_operand (op, mode)
          || (GET_CODE (op) == REG && REGNO (op) >= FIRST_PSEUDO_REGISTER));
 }
 
+
+/* Return 1 if the operand is a SYMBOL_REF for a function known to be in
+   this file.  */
+
+int
+current_file_function_operand (op, mode)
+     register rtx op;
+     enum machine_mode mode;
+{
+  return (GET_CODE (op) == SYMBOL_REF
+         && (SYMBOL_REF_FLAG (op)
+             || op == XEXP (DECL_RTL (current_function_decl), 0)));
+}
+
+
 /* Return 1 if this operand is a valid input for a move insn.  */
 
 int