Mercurial > hg > xemacs-beta
annotate nt/site.def @ 5142:f965e31a35f0
reduce lcrecord headers to 2 words, rename printing_unreadable_object
-------------------- ChangeLog entries follow: --------------------
man/ChangeLog addition:
2010-03-13 Ben Wing <ben@xemacs.org>
* internals/internals.texi (Working with Lisp Objects):
* internals/internals.texi (Writing Macros):
* internals/internals.texi (lrecords):
More rewriting to correspond with changes from
*LRECORD* to *LISP_OBJECT*.
modules/ChangeLog addition:
2010-03-13 Ben Wing <ben@xemacs.org>
* postgresql/postgresql.c (print_pgconn):
* postgresql/postgresql.c (print_pgresult):
printing_unreadable_object -> printing_unreadable_object_fmt.
2010-03-13 Ben Wing <ben@xemacs.org>
* ldap/eldap.c (print_ldap):
printing_unreadable_object -> printing_unreadable_object_fmt.
src/ChangeLog addition:
2010-03-13 Ben Wing <ben@xemacs.org>
* alloc.c (alloc_sized_lrecord_1):
* alloc.c (alloc_sized_lrecord_array):
* alloc.c (old_alloc_sized_lcrecord):
* alloc.c (disksave_object_finalization_1):
* alloc.c (mark_lcrecord_list):
* alloc.c (alloc_managed_lcrecord):
* alloc.c (free_managed_lcrecord):
* alloc.c (tick_lcrecord_stats):
* alloc.c (sweep_lcrecords_1):
* buffer.c (print_buffer):
* buffer.c (DEFVAR_BUFFER_LOCAL_1):
* casetab.c:
* casetab.c (print_case_table):
* console.c (print_console):
* console.c (DEFVAR_CONSOLE_LOCAL_1):
* data.c (print_weak_list):
* data.c (print_weak_box):
* data.c (print_ephemeron):
* data.c (ephemeron_equal):
* database.c (print_database):
* database.c (finalize_database):
* device-msw.c (sync_printer_with_devmode):
* device-msw.c (print_devmode):
* device-msw.c (finalize_devmode):
* device.c:
* device.c (print_device):
* elhash.c:
* elhash.c (print_hash_table):
* eval.c (print_subr):
* eval.c (print_multiple_value):
* event-stream.c (event_stream_resignal_wakeup):
* events.c (clear_event_resource):
* events.c (zero_event):
* events.c (print_event):
* extents.c:
* extents.c (print_extent):
* file-coding.c (print_coding_system):
* font-mgr.c:
* font-mgr.c (Ffc_init):
* frame.c:
* frame.c (print_frame):
* gc.c:
* gc.c (GC_CHECK_NOT_FREE):
* glyphs.c:
* glyphs.c (print_image_instance):
* glyphs.c (print_glyph):
* gui.c (print_gui_item):
* gui.c (copy_gui_item):
* keymap.c (print_keymap):
* keymap.c (MARKED_SLOT):
* lisp.h:
* lisp.h (struct Lisp_String):
* lisp.h (DEFUN):
* lisp.h (DEFUN_NORETURN):
* lrecord.h:
* lrecord.h (NORMAL_LISP_OBJECT_UID):
* lrecord.h (struct lrecord_header):
* lrecord.h (set_lheader_implementation):
* lrecord.h (struct old_lcrecord_header):
* lrecord.h (struct free_lcrecord_header):
* marker.c (print_marker):
* mule-charset.c:
* mule-charset.c (print_charset):
* objects.c (print_color_instance):
* objects.c (print_font_instance):
* objects.c (finalize_font_instance):
* print.c (print_cons):
* print.c (printing_unreadable_object_fmt):
* print.c (printing_unreadable_lisp_object):
* print.c (external_object_printer):
* print.c (internal_object_printer):
* print.c (debug_p4):
* print.c (ext_print_begin):
* process.c (print_process):
* rangetab.c (print_range_table):
* rangetab.c (range_table_equal):
* scrollbar.c (free_scrollbar_instance):
* specifier.c (print_specifier):
* specifier.c (finalize_specifier):
* symbols.c (guts_of_unbound_marker):
* symeval.h:
* symeval.h (DEFVAR_SYMVAL_FWD):
* tooltalk.c:
* tooltalk.c (print_tooltalk_message):
* tooltalk.c (print_tooltalk_pattern):
* ui-gtk.c (ffi_object_printer):
* ui-gtk.c (emacs_gtk_object_printer):
* ui-gtk.c (emacs_gtk_boxed_printer):
* window.c (print_window):
* window.c (free_window_mirror):
* window.c (debug_print_window):
* xemacs.def.in.in:
(1) printing_unreadable_object -> printing_unreadable_object_fmt.
(2) printing_unreadable_lcrecord -> printing_unreadable_lisp_object
and fix up so it no longer requires an lcrecord.
These previous changes eliminate most of the remaining places where
the terms `lcrecord' and `lrecord' occurred outside of specialized
code.
(3) Fairly major change: Reduce the number of words in an lcrecord
from 3 to 2. The third word consisted of a uid that duplicated the
lrecord uid, and a single free bit, which was moved into the lrecord
structure. This reduces the size of the `uid' slot from 21 bits to
20 bits. Arguably this isn't enough -- we could easily have more than
1,000,000 or so objects created in a session. The answer is
(a) It doesn't really matter if we overflow the uid field because
it's only used for debugging, to identify an object uniquely
(or pretty much so).
(b) If we cared about it overflowing and wanted to reduce this,
we could make it so that cons, string, float and certain other
frob-block types that never print out the uid simply don't
store a uid in them and don't increment the lrecord_uid_counter.
(4) In conjunction with (3), create new macro NORMAL_LISP_OBJECT_UID()
and use it to abstract out the differences between NEWGC and old-GC
in accessing the `uid' value from a "normal Lisp Object pointer".
(5) In events.c, use zero_nonsized_lisp_object() in place of custom-
written equivalent. In font-mgr.c use external_object_printer()
in place of custom-written equivalents.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 13 Mar 2010 05:38:08 -0600 |
| parents | 43dd3413c7c7 |
| children |
| rev | line source |
|---|---|
| 155 | 1 XCOMM site: $XConsortium: site.def /main/revisionist/3 1996/10/15 09:31:04 swick $ |
| 2 | |
| 3 /*************************************************************************** | |
| 4 * * | |
| 5 * SITE-SPECIFIC DEFINITIONS * | |
| 6 * * | |
| 7 * This file contains two halves, one included before the vendor-specific * | |
| 8 * configuration file (.cf file), and one included after the .cf file. * | |
| 9 * The before-half should be protected by #ifdef BeforeVendorCF, and the * | |
| 10 * after-half should be protected by #ifdef AfterVendorCF. * | |
| 11 * * | |
| 12 * The before-half should only set things that the .cf file depends on. * | |
| 13 * For the .cf files shipped in this release, the main variables in this * | |
| 14 * category are HasGcc, HasGcc2, HasCplusplus, OSMajorVersion, * | |
| 15 * OSMinorVersion, and OSTeenyVersion. * | |
| 16 * * | |
| 17 * The after-half should contain all other definitions. For example, * | |
| 18 * place your ProjectRoot definition here. * | |
| 19 * * | |
| 20 * OS Major and Minor version numbers should be changed directly in the * | |
| 21 * .cf file, not overridden in site.def. * | |
| 22 * * | |
| 23 ***************************************************************************/ | |
| 24 | |
| 25 /* if you want host-specific customization, this is one way to do it */ | |
| 26 /* | |
| 27 #ifndef SiteIConfigFiles | |
| 28 #define SiteIConfigFiles $(IRULESRC)/host.def | |
| 29 #define LocalConfigFiles host.def | |
| 30 #endif | |
| 31 */ | |
| 32 | |
| 33 | |
| 34 #ifdef BeforeVendorCF | |
| 35 | |
| 36 /* #include <host.def> */ | |
| 37 | |
| 38 /* On systems where cpp doesn't expand correctly macros in include directives | |
| 39 * the two following macros need to be defined directly (where "X11" is | |
| 40 * really whatever the TopLevelProject macro is defined to be). | |
| 41 */ | |
| 42 # ifndef ProjectRulesFile | |
| 43 # define ProjectRulesFile <X11.rules> | |
| 44 # endif | |
| 45 # ifndef ProjectTmplFile | |
| 46 # define ProjectTmplFile <X11.tmpl> | |
| 47 # endif | |
| 48 | |
| 49 /* | |
| 50 #ifndef HasGcc2 | |
| 51 #define HasGcc2 YES | |
| 52 #endif | |
| 53 */ | |
| 54 | |
| 55 #endif /* BeforeVendorCF */ | |
| 56 | |
| 57 #ifdef AfterVendorCF | |
| 58 | |
| 59 #define ProjectRoot f:/utils/X11R6 | |
| 60 | |
| 61 /* Only set HasXdmAuth to YES if you have a Wraphelp.c file. */ | |
| 62 /* #define HasXdmAuth YES */ | |
| 63 | |
| 64 /* #define PreIncDir /usr/local/lib/gcc-lib/sparc-sun-solaris2.4/2.7.2/include */ | |
| 65 | |
| 66 /* | |
| 67 #if defined(SunArchitecture) && defined(SparcArchitecture) | |
| 68 #define HasCodeCenter YES | |
| 69 #ifndef SVR4Architecture | |
| 70 #define HasTestCenter YES | |
| 71 #endif | |
| 72 #endif | |
| 73 */ | |
| 74 | |
| 75 /* | |
| 76 #ifdef __hp9000s800 | |
| 77 #define HasCodeCenter YES | |
| 78 #endif | |
| 79 */ | |
| 80 | |
| 81 /* | |
| 82 #if defined(SunArchitecture) && defined(SparcArchitecture) && !defined(SVR4Architecture) | |
| 83 #define HasPurify YES | |
| 84 #endif | |
| 85 */ | |
| 86 | |
| 87 /* | |
| 88 #define HasSentinel YES | |
| 89 */ | |
| 90 | |
| 91 /* | |
| 92 #undef DefaultUserPath | |
| 93 #define DefaultUserPath /bin:/usr/bin:$(BINDIR):/usr/ucb:/usr/local/bin | |
| 94 */ | |
| 95 | |
| 96 | |
| 97 /* You do NOT need SetUID if you only run the server under xdm */ | |
| 98 /* You MAY need SetUID if users run the server by hand or under xinit */ | |
| 99 /* Consult your system administrator before making the X server setuid */ | |
| 100 /* | |
| 101 #if defined(SunArchitecture) && OSMajorVersion > 4 | |
| 102 #define InstallXserverSetUID YES | |
| 103 #endif | |
| 104 */ | |
| 105 | |
| 106 /* You do NOT need SetUID if you only run the server under xdm */ | |
| 107 /* You MAY need SetUID if users run the server by hand or under xinit */ | |
| 108 /* Consult your system administrator before making the X server setuid */ | |
| 109 /* | |
| 110 #ifdef XFree86Version | |
| 111 #define InstallXserverSetUID YES | |
| 112 #endif | |
| 113 */ | |
| 114 | |
| 115 #ifndef XnestServer | |
| 116 #undef BuildServer | |
| 117 #define BuildServer YES | |
| 118 #define XnestServer YES | |
| 119 #endif | |
| 120 | |
| 121 /* #include <host.def> */ | |
| 122 | |
| 123 #endif /* AfterVendorCF */ |