diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 63d305f5a7f..58d89ae689e 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-02  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* config/alpha/alpha.c (alpha_gp_save_rtx): Insert the insns at the
+	entry by means of emit_insn_at_entry.
+
 2007-03-02  Richard Henderson  <rth@redhat.com>
 
 	* expr.h (promoted_input_arg): Remove decl.
diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index 023bbcc92f7..1af68f98bc3 100644
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -4781,7 +4781,7 @@ alpha_gp_save_rtx (void)
 
       seq = get_insns ();
       end_sequence ();
-      emit_insn_after (seq, entry_of_function ());
+      emit_insn_at_entry (seq);
 
       cfun->machine->gp_save_rtx = m;
     }