comparison src/lisp.h @ 802:19dfb459d51a

[xemacs-hg @ 2002-04-03 10:47:37 by ben] fix tty problem et al internals/internals.texi: Add section on correctly merging a branch back into the trunk. console-tty.c, eval.c, event-unixoid.c, file-coding.c, file-coding.h, lisp.h, print.c, sysdep.c: Fix data corruption error in print.c from print_depth becoming negative. Borrow primitives internal_bind_int, internal_bind_lisp_object from my stderr-proc ws, soon to be integrated; use them to properly bind print_depth et al. First fix for TTY problem. The basic problem is I switched things so that the TTY I/O is filtered through a coding system, for the support of kterm and such, that speak JIS or similar encodings. (#### I ***swear*** I had this working way back in 19.12.) Anyway, this introduced buffering issues, in which instead of one char being read, it tried to read 1024 chars. I tried setting the stdin descriptor non-blocking, but it doesn't appear to work on Cygwin. (#### Andy, do you know anything about this?) So I fixed it elsewhere. If you get weirdness on the TTY, look in console-tty.c and see how it gets the coding system; maybe there's a way to change it (and if not, there should be!). Also fix warning in sysdep.c.
author ben
date Wed, 03 Apr 2002 10:47:52 +0000
parents 2b676dc88c66
children a634e3b7acc8
comparison
equal deleted inserted replaced
801:2b676dc88c66 802:19dfb459d51a
772 772
773 #define INT_VALBITS (BITS_PER_EMACS_INT - INT_GCBITS) 773 #define INT_VALBITS (BITS_PER_EMACS_INT - INT_GCBITS)
774 #define VALBITS (BITS_PER_EMACS_INT - GCBITS) 774 #define VALBITS (BITS_PER_EMACS_INT - GCBITS)
775 #define EMACS_INT_MAX ((EMACS_INT) ((1UL << (INT_VALBITS - 1)) -1UL)) 775 #define EMACS_INT_MAX ((EMACS_INT) ((1UL << (INT_VALBITS - 1)) -1UL))
776 #define EMACS_INT_MIN (-(EMACS_INT_MAX) - 1) 776 #define EMACS_INT_MIN (-(EMACS_INT_MAX) - 1)
777 /* WARNING: evaluates its arg twice. */
778 #define NUMBER_FITS_IN_AN_EMACS_INT(num) \
779 ((num) <= EMACS_INT_MAX && (num) >= EMACS_INT_MIN)
777 780
778 #ifdef USE_UNION_TYPE 781 #ifdef USE_UNION_TYPE
779 # include "lisp-union.h" 782 # include "lisp-union.h"
780 #else /* !USE_UNION_TYPE */ 783 #else /* !USE_UNION_TYPE */
781 # include "lisp-disunion.h" 784 # include "lisp-disunion.h"
3068 #define unbind_to(obj) unbind_to_1 (obj, Qnil) 3071 #define unbind_to(obj) unbind_to_1 (obj, Qnil)
3069 void specbind (Lisp_Object, Lisp_Object); 3072 void specbind (Lisp_Object, Lisp_Object);
3070 int record_unwind_protect (Lisp_Object (*) (Lisp_Object), Lisp_Object); 3073 int record_unwind_protect (Lisp_Object (*) (Lisp_Object), Lisp_Object);
3071 int record_unwind_protect_freeing (void *ptr); 3074 int record_unwind_protect_freeing (void *ptr);
3072 int record_unwind_protect_freeing_dynarr (void *ptr); 3075 int record_unwind_protect_freeing_dynarr (void *ptr);
3076 int internal_bind_int (int *addr, int newval);
3077 int internal_bind_lisp_object (Lisp_Object *addr, Lisp_Object newval);
3073 void do_autoload (Lisp_Object, Lisp_Object); 3078 void do_autoload (Lisp_Object, Lisp_Object);
3074 Lisp_Object un_autoload (Lisp_Object); 3079 Lisp_Object un_autoload (Lisp_Object);
3075 void warn_when_safe_lispobj (Lisp_Object, Lisp_Object, Lisp_Object); 3080 void warn_when_safe_lispobj (Lisp_Object, Lisp_Object, Lisp_Object);
3076 void warn_when_safe (Lisp_Object, Lisp_Object, const CIntbyte *, 3081 void warn_when_safe (Lisp_Object, Lisp_Object, const CIntbyte *,
3077 ...) PRINTF_ARGS (3, 4); 3082 ...) PRINTF_ARGS (3, 4);