Mercurial > emacs

comparison src/bytecode.c @ 34711:583cd327d7b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toplevel) [CHECK_FRAME_FONT]: Include frame.h and xterm.h. (Fbyte_code) [CHECK_FRAME_FONT]: Check the selected frame's font.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 19 Dec 2000 12:14:08 +0000
parents 35fae77e31dc
children f17e8743925c
comparison
equal deleted inserted replaced
34710:d5251a5c10ef 34711:583cd327d7b5
36 #include <config.h> 36 #include <config.h>
37 #include "lisp.h" 37 #include "lisp.h"
38 #include "buffer.h" 38 #include "buffer.h"
39 #include "charset.h" 39 #include "charset.h"
40 #include "syntax.h" 40 #include "syntax.h"
41
42 #ifdef CHECK_FRAME_FONT
43 #include "frame.h"
44 #include "xterm.h"
45 #endif
41 46
42 /* 47 /*
43 * define BYTE_CODE_SAFE to enable some minor sanity checking (useful for 48 * define BYTE_CODE_SAFE to enable some minor sanity checking (useful for
44 * debugging the byte compiler...) 49 * debugging the byte compiler...)
45 * 50 *
415 #endif 420 #endif
416 int bytestr_length; 421 int bytestr_length;
417 struct byte_stack stack; 422 struct byte_stack stack;
418 Lisp_Object *top; 423 Lisp_Object *top;
419 Lisp_Object result; 424 Lisp_Object result;
425
426 #ifdef CHECK_FRAME_FONT
427 {
428 struct frame *f = SELECTED_FRAME ();
429 if (FRAME_X_P (f)
430 && FRAME_FONT (f)->direction != 0
431 && FRAME_FONT (f)->direction != 1)
432 abort ();
433 }
434 #endif
420 435
421 CHECK_STRING (bytestr, 0); 436 CHECK_STRING (bytestr, 0);
422 if (!VECTORP (vector)) 437 if (!VECTORP (vector))
423 vector = wrong_type_argument (Qvectorp, vector); 438 vector = wrong_type_argument (Qvectorp, vector);
424 CHECK_NUMBER (maxdepth, 2); 439 CHECK_NUMBER (maxdepth, 2);