X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9569916d94c6c448862d02919e52fc3bfb9b9c8d..60dd094a8c7bdbbff121c99f56f42910534e7cc1:/src/bytecode.c

diff --git a/src/bytecode.c b/src/bytecode.c
index bb7922d54a..8b700b0312 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -27,9 +27,9 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 #include "syntax.h"
 #include "window.h"
 
-#ifdef CHECK_FRAME_FONT
-#include "frame.h"
-#include "xterm.h"
+/* Work around GCC bug 54561.  */
+#if GNUC_PREREQ (4, 3, 0)
+# pragma GCC diagnostic ignored "-Wclobbered"
 #endif
 
 /*
@@ -434,16 +434,6 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
   Lisp_Object result;
   enum handlertype type;
 
-#if 0 /* CHECK_FRAME_FONT */
- {
-   struct frame *f = SELECTED_FRAME ();
-   if (FRAME_X_P (f)
-       && FRAME_FONT (f)->direction != 0
-       && FRAME_FONT (f)->direction != 1)
-     emacs_abort ();
- }
-#endif
-
   CHECK_STRING (bytestr);
   CHECK_VECTOR (vector);
   CHECK_NATNUM (maxdepth);