Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 5143:186aebf7f6c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Sat, 13 Mar 2010 11:38:54 -0600
parents e5380fdaf8f1 f965e31a35f0
children 88bd4f3ef8e4
comparison
equal deleted inserted replaced
5140:e5380fdaf8f1 5143:186aebf7f6c6
3086 { 3086 {
3087 struct lrecord_header lheader; 3087 struct lrecord_header lheader;
3088 struct 3088 struct
3089 { 3089 {
3090 /* WARNING: Everything before ascii_begin must agree exactly with 3090 /* WARNING: Everything before ascii_begin must agree exactly with
3091 struct lrecord_header */ 3091 struct lrecord_header. (Actually, the `free' field in old-GC
3092 overlaps with ascii_begin there; we can get away with this
3093 because in old-GC the `free' field is used only for lcrecords. */
3092 unsigned int type :8; 3094 unsigned int type :8;
3093 #ifdef NEW_GC 3095 #ifdef NEW_GC
3094 unsigned int lisp_readonly :1; 3096 unsigned int lisp_readonly :1;
3095 unsigned int free :1; 3097 unsigned int free :1;
3096 /* Number of chars at beginning of string that are one byte in length 3098 /* Number of chars at beginning of string that are one byte in length
3936 { /* struct lrecord_header */ \ 3938 { /* struct lrecord_header */ \
3937 lrecord_type_subr, /* lrecord_type_index */ \ 3939 lrecord_type_subr, /* lrecord_type_index */ \
3938 1, /* mark bit */ \ 3940 1, /* mark bit */ \
3939 1, /* c_readonly bit */ \ 3941 1, /* c_readonly bit */ \
3940 1, /* lisp_readonly bit */ \ 3942 1, /* lisp_readonly bit */ \
3941 0 /* unused */ \
3942 }, \ 3943 }, \
3943 min_args, \ 3944 min_args, \
3944 max_args, \ 3945 max_args, \
3945 prompt, \ 3946 prompt, \
3946 0, /* doc string */ \ 3947 0, /* doc string */ \
3956 { /* struct lrecord_header */ \ 3957 { /* struct lrecord_header */ \
3957 lrecord_type_subr, /* lrecord_type_index */ \ 3958 lrecord_type_subr, /* lrecord_type_index */ \
3958 1, /* mark bit */ \ 3959 1, /* mark bit */ \
3959 1, /* c_readonly bit */ \ 3960 1, /* c_readonly bit */ \
3960 1, /* lisp_readonly bit */ \ 3961 1, /* lisp_readonly bit */ \
3961 0 /* unused */ \
3962 }, \ 3962 }, \
3963 min_args, \ 3963 min_args, \
3964 max_args, \ 3964 max_args, \
3965 prompt, \ 3965 prompt, \
3966 0, /* doc string */ \ 3966 0, /* doc string */ \
6053 void float_to_string (char *, double); 6053 void float_to_string (char *, double);
6054 void internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 6054 void internal_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
6055 int UNUSED (escapeflag)); 6055 int UNUSED (escapeflag));
6056 void external_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 6056 void external_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
6057 int UNUSED (escapeflag)); 6057 int UNUSED (escapeflag));
6058 MODULE_API DECLARE_DOESNT_RETURN (printing_unreadable_object (const CIbyte *, 6058 MODULE_API DECLARE_DOESNT_RETURN (printing_unreadable_object_fmt (const CIbyte *,
6059 ...)) 6059 ...))
6060 PRINTF_ARGS (1, 2); 6060 PRINTF_ARGS (1, 2);
6061 DECLARE_DOESNT_RETURN (printing_unreadable_lcrecord (Lisp_Object obj, 6061 DECLARE_DOESNT_RETURN (printing_unreadable_lisp_object (Lisp_Object obj,
6062 const Ibyte *name)); 6062 const Ibyte *name));
6063 6063
6064 extern Lisp_Object Qexternal_debugging_output; 6064 extern Lisp_Object Qexternal_debugging_output;
6065 extern Lisp_Object Qprint_length; 6065 extern Lisp_Object Qprint_length;
6066 extern Lisp_Object Qprint_string_length; 6066 extern Lisp_Object Qprint_string_length;