diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index c5322d68aea..55def7ed345 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2007-04-13  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+	PR middle-end/31322
+	* dwarf2out.c (output_call_frame_info): Call assemble_external_libcall
+	when a personality function is used.
+
 2007-04-13  Bob Wilson  <bob.wilson@acm.org>
 
 	* config/xtensa/xtensa.c (xtensa_expand_builtin): Use CALL_EXPR_FN.
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 467ba2b1eec..cbaf0637c7d 100644
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -2304,6 +2304,7 @@ output_call_frame_info (int for_eh)
 	{
 	  *p++ = 'P';
 	  augmentation_size += 1 + size_of_encoded_value (per_encoding);
+	  assemble_external_libcall (eh_personality_libfunc);
 	}
       if (any_lsda_needed)
 	{