Mercurial > hg > xemacs-beta
comparison src/lread.c @ 4844:91b3d00e717f
Various cleanups for Dynarr code, from Unicode-internal ws
dynarr.c: Add comment explaining Dynarr_largest() use.
dynarr.c: In Dynarr_insert_many(), don't call Dynarr_resize() unless we
actually need to resize, and note that an assert() that we are
inserting at or below the current end could be wrong if code
wants to access stuff between `len' and `largest'.
dynarr.c: Don't just Dynarr_resize() to the right size; instead use
Dynarr_reset() then Dynarr_add_many(), so that the 'len' and
'largest' and such get set properly.
dynarr.c, faces.c, gutter.c, lisp.h, lread.c, lrecord.h, redisplay-output.c, redisplay.c: Rename Dynarr member 'cur' to 'len' since it's the length of
the dynarr, not really a pointer to a "current insertion point".
Use type_checking_assert() instead of just assert() in some places.
Add additional assertions (Dynarr_verify*()) to check that we're
being given positions within range. Use them in Dynarr_at,
Dynarr_atp, etc. New Dynarr_atp_allow_end() for retrieving a
pointer to a position that might be the element past the last one.
New Dynarr_past_lastp() to retrieve a pointer to the position
past the last one, using Dynarr_atp_allow_end(). Change code
appropriately to use it.
Rename Dynarr_end() to Dynarr_lastp() (pointer to the last
element) for clarity, and change code appropriately to use it.
Change code appropriately to use Dynarr_begin().
Rewrite Dynarr_add_many(). New version can accept a NULL pointer
to mean "reserve space but don't put anything in it". Used by
stack_like_malloc().
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Wed, 13 Jan 2010 04:07:42 -0600 |
parents | 8f1ee2d15784 |
children | 17362f371cc2 19a72041c5ed |
comparison
equal
deleted
inserted
replaced
4843:715b15990d0a | 4844:91b3d00e717f |
---|---|
2152 st.keywords = Dynarr_new (structure_keyword_entry); | 2152 st.keywords = Dynarr_new (structure_keyword_entry); |
2153 st.validate = validate; | 2153 st.validate = validate; |
2154 st.instantiate = instantiate; | 2154 st.instantiate = instantiate; |
2155 Dynarr_add (the_structure_type_dynarr, st); | 2155 Dynarr_add (the_structure_type_dynarr, st); |
2156 | 2156 |
2157 return Dynarr_atp (the_structure_type_dynarr, | 2157 return Dynarr_lastp (the_structure_type_dynarr); |
2158 Dynarr_length (the_structure_type_dynarr) - 1); | |
2159 } | 2158 } |
2160 | 2159 |
2161 void | 2160 void |
2162 define_structure_type_keyword (struct structure_type *st, Lisp_Object keyword, | 2161 define_structure_type_keyword (struct structure_type *st, Lisp_Object keyword, |
2163 int (*validate) (Lisp_Object keyword, | 2162 int (*validate) (Lisp_Object keyword, |