# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1238215932 0
# Node ID 8aefacf5b2caa7f802d1d0626de3204768db517d
# Parent  7efa44a52599fa385f209724f79687958998d3ac
(delete_frame): Work around compiler bug.

diff -r 7efa44a52599 -r 8aefacf5b2ca src/frame.c
--- a/src/frame.c	Sat Mar 28 03:23:08 2009 +0000
+++ b/src/frame.c	Sat Mar 28 04:52:12 2009 +0000
@@ -1319,7 +1319,10 @@
   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 ();