Mercurial > hg > xemacs-beta
diff src/alloc.c @ 1104:8b464283e891
[xemacs-hg @ 2002-11-12 18:58:13 by james]
Unconditionally compile the LISP_FLOAT_TYPE code. Remove all
!LISP_FLOAT_TYPE code and the LISP_FLOAT_TYPE identifier itself.
| author | james |
|---|---|
| date | Tue, 12 Nov 2002 18:58:41 +0000 |
| parents | 25e260cb7994 |
| children | 37bdd24225ef |
line wrap: on
line diff
--- a/src/alloc.c Tue Nov 12 03:57:48 2002 +0000 +++ b/src/alloc.c Tue Nov 12 18:58:41 2002 +0000 @@ -1095,8 +1095,6 @@ /* Float allocation */ /************************************************************************/ -#ifdef LISP_FLOAT_TYPE - DECLARE_FIXED_TYPE_ALLOC (float, Lisp_Float); #define MINIMUM_ALLOWED_FIXED_TYPE_CELLS_float 1000 @@ -1116,8 +1114,6 @@ return wrap_float (f); } -#endif /* LISP_FLOAT_TYPE */ - /************************************************************************/ /* Vector allocation */ @@ -3649,8 +3645,6 @@ SWEEP_FIXED_TYPE_BLOCK (compiled_function, Lisp_Compiled_Function); } - -#ifdef LISP_FLOAT_TYPE static void sweep_floats (void) { @@ -3659,7 +3653,6 @@ SWEEP_FIXED_TYPE_BLOCK (float, Lisp_Float); } -#endif /* LISP_FLOAT_TYPE */ static void sweep_symbols (void) @@ -4066,10 +4059,8 @@ /* Free all unmarked compiled-function objects */ sweep_compiled_functions (); -#ifdef LISP_FLOAT_TYPE /* Put all unmarked floats on free list */ sweep_floats (); -#endif /* Put all unmarked symbols on free list */ sweep_symbols (); @@ -4581,11 +4572,9 @@ HACK_O_MATIC (marker, "marker-storage", pl); pl = gc_plist_hack ("markers-free", gc_count_num_marker_freelist, pl); pl = gc_plist_hack ("markers-used", gc_count_num_marker_in_use, pl); -#ifdef LISP_FLOAT_TYPE HACK_O_MATIC (float, "float-storage", pl); pl = gc_plist_hack ("floats-free", gc_count_num_float_freelist, pl); pl = gc_plist_hack ("floats-used", gc_count_num_float_in_use, pl); -#endif /* LISP_FLOAT_TYPE */ HACK_O_MATIC (string, "string-header-storage", pl); pl = gc_plist_hack ("long-strings-total-length", gc_count_string_total_size @@ -4874,9 +4863,7 @@ init_cons_alloc (); init_symbol_alloc (); init_compiled_function_alloc (); -#ifdef LISP_FLOAT_TYPE init_float_alloc (); -#endif /* LISP_FLOAT_TYPE */ init_marker_alloc (); init_extent_alloc (); init_event_alloc ();