[Emacs-diffs] Changes to emacs/src/lisp.h [lexbind]

[Miles Bader]

Index: emacs/src/lisp.h
diff -c emacs/src/lisp.h:1.423.2.26 emacs/src/lisp.h:1.423.2.27
*** emacs/src/lisp.h:1.423.2.26 Wed Dec  8 23:31:37 2004
--- emacs/src/lisp.h    Wed Dec  8 23:36:22 2004
***************
*** 35,40 ****
--- 35,56 ----
     be compared to the sizes recorded in Lisp strings.  */
  
  #define GC_CHECK_STRING_BYTES 1
+ 
+ /* Define this to check for short string overrun.  */
+ 
+ #define GC_CHECK_STRING_OVERRUN 1
+ 
+ /* Define this to check the string free list.  */
+ 
+ #define GC_CHECK_STRING_FREE_LIST 1
+ 
+ /* Define this to check for malloc buffer overrun.  */
+ 
+ #define XMALLOC_OVERRUN_CHECK 1
+ 
+ /* Define this to check for errors in cons list.  */
+ /* #define GC_CHECK_CONS_LIST 1 */
+ 
  #endif /* 0 */
  
  
***************
*** 304,314 ****
  /* First, try and define DECL_ALIGN(type,var) which declares a static
     variable VAR of type TYPE with the added requirement that it be
     TYPEBITS-aligned. */
! #ifndef DECL_ALIGN
  /* What compiler directive should we use for non-gcc compilers?  -stef  */
! # if defined (__GNUC__)
! #  define DECL_ALIGN(type, var) \
!     type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var
  # endif
  #endif
  
--- 320,332 ----
  /* First, try and define DECL_ALIGN(type,var) which declares a static
     variable VAR of type TYPE with the added requirement that it be
     TYPEBITS-aligned. */
! #ifndef NO_DECL_ALIGN
! # ifndef DECL_ALIGN
  /* What compiler directive should we use for non-gcc compilers?  -stef  */
! #  if defined (__GNUC__)
! #   define DECL_ALIGN(type, var) \
!      type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var
! #  endif
  # endif
  #endif
  
***************
*** 323,329 ****
  # endif
  #endif
  
! /* Just remove the alignment annotation if we don't use it.  */
  #ifndef DECL_ALIGN
  # ifdef USE_LSB_TAG
  #  error "USE_LSB_TAG used without defining DECL_ALIGN"
--- 341,347 ----
  # endif
  #endif
  
! /* If we cannot use 8-byte alignment, make DECL_ALIGN a no-op.  */
  #ifndef DECL_ALIGN
  # ifdef USE_LSB_TAG
  #  error "USE_LSB_TAG used without defining DECL_ALIGN"
***************
*** 2327,2332 ****
--- 2345,2351 ----
  extern int string_char_to_byte P_ ((Lisp_Object, int));
  extern int string_byte_to_char P_ ((Lisp_Object, int));
  extern Lisp_Object string_make_multibyte P_ ((Lisp_Object));
+ extern Lisp_Object string_to_multibyte P_ ((Lisp_Object));
  extern Lisp_Object string_make_unibyte P_ ((Lisp_Object));
  EXFUN (Fcopy_alist, 1);
  EXFUN (Fplist_get, 2);
***************
*** 2464,2469 ****
--- 2483,2489 ----
  /* Defined in alloc.c */
  extern void check_pure_size P_ ((void));
  extern void allocate_string_data P_ ((struct Lisp_String *, int, int));
+ extern void reset_malloc_hooks P_ ((void));
  extern void uninterrupt_malloc P_ ((void));
  extern void malloc_warning P_ ((char *));
  extern void memory_full P_ ((void));
***************
*** 2836,2842 ****
  extern Lisp_Object last_minibuf_string;
  extern void choose_minibuf_frame P_ ((void));
  EXFUN (Fcompleting_read, 8);
! EXFUN (Fread_from_minibuffer, 7);
  EXFUN (Fread_variable, 2);
  EXFUN (Fread_buffer, 3);
  EXFUN (Fread_minibuffer, 2);
--- 2856,2862 ----
  extern Lisp_Object last_minibuf_string;
  extern void choose_minibuf_frame P_ ((void));
  EXFUN (Fcompleting_read, 8);
! EXFUN (Fread_from_minibuffer, 8);
  EXFUN (Fread_variable, 2);
  EXFUN (Fread_buffer, 3);
  EXFUN (Fread_minibuffer, 2);