From 29edae16f007fc0f66841af3bcf0b2ec07c2b2cb Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 28 Mar 2009 04:52:12 +0000
Subject: [PATCH] (delete_frame): Work around compiler bug.

---
 src/frame.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/frame.c b/src/frame.c
index 650eea1f1b7..1a110219e6a 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1319,7 +1319,10 @@ extern Lisp_Object Qrun_hook_with_args;
   described for Fdelete_frame.  */
 Lisp_Object
 delete_frame (frame, force)
-     register Lisp_Object frame, force;
+     /* If we use `register' here, gcc-4.0.2 on amd64 using
+	-DUSE_LISP_UNION_TYPE complains further down that we're getting the
+	address of `force'.  Go figure.  */
+     Lisp_Object frame, force;
 {
   struct frame *f;
   struct frame *sf = SELECTED_FRAME ();
-- 
2.39.5