2 new commits in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/81e6fa9d46d0/ Changeset: 81e6fa9d46d0 User: kehoea Date: 2017-10-17 13:16:04+00:00 Summary: Correct the definition of the STRING_FULLSIZE() macro, alloc.c, NEW_GC src/ChangeLog addition: 2017-10-17 Aidan Kehoe <kehoea(a)parhasard.net&gt; * alloc.c (STRING_FULLSIZE): Correct the definition of this macro under NEW_GC, get the NEW_GC build working again. Incidentally wake up the buildbot with this commit. Affected #: 2 files diff -r 222b2a338e9daa7f4b7c12efe00859c76058e946 -r 81e6fa9d46d02bedd36f321266b3f5787055e1b0 src/ChangeLog --- a/src/ChangeLog +++ b/src/ChangeLog ＠＠ -7,6 +7,13 ＠＠ Removed unused file-local C variables QSsubstitute, Qsubstitute_negated from these files. +2017-10-17 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * alloc.c (STRING_FULLSIZE): + Correct the definition of this macro under NEW_GC, get the NEW_GC + build working again. + Incidentally wake up the buildbot with this commit. + 2017-10-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; * eval.c (Feval): diff -r 222b2a338e9daa7f4b7c12efe00859c76058e946 -r 81e6fa9d46d02bedd36f321266b3f5787055e1b0 src/alloc.c --- a/src/alloc.c +++ b/src/alloc.c ＠＠ -2802,7 +2802,7 ＠＠ #ifdef NEW_GC #define STRING_FULLSIZE(size) \ - ALIGN_SIZE (FLEXIBLE_ARRAY_STRUCT_SIZEOF (Lisp_String_Direct_Data, Lisp_Object, data, (size) + 1), sizeof (Lisp_Object *)); + ALIGN_SIZE (FLEXIBLE_ARRAY_STRUCT_SIZEOF (Lisp_String_Direct_Data, Lisp_Object, data, (size) + 1), sizeof (Lisp_Object *)) #else /* not NEW_GC */ /* String blocks contain this many useful bytes. */ #define STRING_CHARS_BLOCK_SIZE \ https://bitbucket.org/xemacs/xemacs/commits/95a188885942/ Changeset: 95a188885942 User: kehoea Date: 2017-10-17 13:48:30+00:00 Summary: Handle START a bit better for string arguments, #'find, #'position src/ChangeLog addition: 2017-10-17 Aidan Kehoe <kehoea(a)parhasard.net&gt; * sequence.c (position): Handle START a bit better, use XSTRING_ASCII_BEGIN() so we don't have to step through each character for the constant-byte-length part of the string. Affected #: 2 files diff -r 81e6fa9d46d02bedd36f321266b3f5787055e1b0 -r 95a188885942f52fda8d85b7f132163a90fd8943 src/ChangeLog --- a/src/ChangeLog +++ b/src/ChangeLog ＠＠ -1,3 +1,10 ＠＠ +2017-10-17 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * sequence.c (position): + Handle START a bit better, use XSTRING_ASCII_BEGIN() so we don't + have to step through each character for the constant-byte-length + part of the string. + 2017-10-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * doc.c: diff -r 81e6fa9d46d02bedd36f321266b3f5787055e1b0 -r 95a188885942f52fda8d85b7f132163a90fd8943 src/sequence.c --- a/src/sequence.c +++ b/src/sequence.c ＠＠ -1681,10 +1681,16 ＠＠ } else if (STRINGP (sequence)) { - Ibyte *startp = XSTRING_DATA (sequence), *cursor = startp; - Bytecount byte_len = XSTRING_LENGTH (sequence), cursor_offset = 0; + Ibyte *startp = XSTRING_DATA (sequence), *cursor; + Bytecount byte_len = XSTRING_LENGTH (sequence), cursor_offset; Lisp_Object character = Qnil; + cursor_offset = ii = (Bytecount) (min (XSTRING_ASCII_BEGIN (sequence), + starting)); + cursor = startp + cursor_offset; + /* It's probably worth making this even faster for the + non-variable-width-string case. Not now, though. */ + while (cursor_offset < byte_len && ii < ending) { if (ii >= starting) Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email.