35 |
be compared to the sizes recorded in Lisp strings. */ |
be compared to the sizes recorded in Lisp strings. */ |
36 |
|
|
37 |
#define GC_CHECK_STRING_BYTES 1 |
#define GC_CHECK_STRING_BYTES 1 |
38 |
|
|
39 |
|
/* Define this to check for short string overrun. */ |
40 |
|
|
41 |
|
#define GC_CHECK_STRING_OVERRUN 1 |
42 |
|
|
43 |
|
/* Define this to check the string free list. */ |
44 |
|
|
45 |
|
#define GC_CHECK_STRING_FREE_LIST 1 |
46 |
|
|
47 |
|
/* Define this to check for malloc buffer overrun. */ |
48 |
|
|
49 |
|
#define XMALLOC_OVERRUN_CHECK 1 |
50 |
|
|
51 |
|
/* Define this to check for errors in cons list. */ |
52 |
|
/* #define GC_CHECK_CONS_LIST 1 */ |
53 |
|
|
54 |
#endif /* 0 */ |
#endif /* 0 */ |
55 |
|
|
56 |
|
|
321 |
/* First, try and define DECL_ALIGN(type,var) which declares a static |
/* First, try and define DECL_ALIGN(type,var) which declares a static |
322 |
variable VAR of type TYPE with the added requirement that it be |
variable VAR of type TYPE with the added requirement that it be |
323 |
TYPEBITS-aligned. */ |
TYPEBITS-aligned. */ |
324 |
#ifndef DECL_ALIGN |
#ifndef NO_DECL_ALIGN |
325 |
|
# ifndef DECL_ALIGN |
326 |
/* What compiler directive should we use for non-gcc compilers? -stef */ |
/* What compiler directive should we use for non-gcc compilers? -stef */ |
327 |
# if defined (__GNUC__) |
# if defined (__GNUC__) |
328 |
# define DECL_ALIGN(type, var) \ |
# define DECL_ALIGN(type, var) \ |
329 |
type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var |
type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var |
330 |
|
# endif |
331 |
# endif |
# endif |
332 |
#endif |
#endif |
333 |
|
|
342 |
# endif |
# endif |
343 |
#endif |
#endif |
344 |
|
|
345 |
/* Just remove the alignment annotation if we don't use it. */ |
/* If we cannot use 8-byte alignment, make DECL_ALIGN a no-op. */ |
346 |
#ifndef DECL_ALIGN |
#ifndef DECL_ALIGN |
347 |
# ifdef USE_LSB_TAG |
# ifdef USE_LSB_TAG |
348 |
# error "USE_LSB_TAG used without defining DECL_ALIGN" |
# error "USE_LSB_TAG used without defining DECL_ALIGN" |
2343 |
extern int string_char_to_byte P_ ((Lisp_Object, int)); |
extern int string_char_to_byte P_ ((Lisp_Object, int)); |
2344 |
extern int string_byte_to_char P_ ((Lisp_Object, int)); |
extern int string_byte_to_char P_ ((Lisp_Object, int)); |
2345 |
extern Lisp_Object string_make_multibyte P_ ((Lisp_Object)); |
extern Lisp_Object string_make_multibyte P_ ((Lisp_Object)); |
2346 |
|
extern Lisp_Object string_to_multibyte P_ ((Lisp_Object)); |
2347 |
extern Lisp_Object string_make_unibyte P_ ((Lisp_Object)); |
extern Lisp_Object string_make_unibyte P_ ((Lisp_Object)); |
2348 |
EXFUN (Fcopy_alist, 1); |
EXFUN (Fcopy_alist, 1); |
2349 |
EXFUN (Fplist_get, 2); |
EXFUN (Fplist_get, 2); |
2474 |
/* Defined in alloc.c */ |
/* Defined in alloc.c */ |
2475 |
extern void check_pure_size P_ ((void)); |
extern void check_pure_size P_ ((void)); |
2476 |
extern void allocate_string_data P_ ((struct Lisp_String *, int, int)); |
extern void allocate_string_data P_ ((struct Lisp_String *, int, int)); |
2477 |
|
extern void reset_malloc_hooks P_ ((void)); |
2478 |
extern void uninterrupt_malloc P_ ((void)); |
extern void uninterrupt_malloc P_ ((void)); |
2479 |
extern void malloc_warning P_ ((char *)); |
extern void malloc_warning P_ ((char *)); |
2480 |
extern void memory_full P_ ((void)); |
extern void memory_full P_ ((void)); |
2869 |
extern Lisp_Object last_minibuf_string; |
extern Lisp_Object last_minibuf_string; |
2870 |
extern void choose_minibuf_frame P_ ((void)); |
extern void choose_minibuf_frame P_ ((void)); |
2871 |
EXFUN (Fcompleting_read, 8); |
EXFUN (Fcompleting_read, 8); |
2872 |
EXFUN (Fread_from_minibuffer, 7); |
EXFUN (Fread_from_minibuffer, 8); |
2873 |
EXFUN (Fread_variable, 2); |
EXFUN (Fread_variable, 2); |
2874 |
EXFUN (Fread_buffer, 3); |
EXFUN (Fread_buffer, 3); |
2875 |
EXFUN (Fread_minibuffer, 2); |
EXFUN (Fread_minibuffer, 2); |