Mercurial > hg > xemacs-beta
changeset 5771:72a9467f93fc
Only make promote_args_lazy() available if WITH_NUMBER_TYPES.
src/ChangeLog addition:
2013-12-15 Aidan Kehoe <kehoea@parhasard.net>
* number.h:
Only make promote_args_lazy() available on builds
WITH_NUMBER_TYPES, in case linking complains about promote_args()
not being available.
tests/ChangeLog addition:
2013-12-15 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el (character):
Remove a debugging statement from this.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 15 Dec 2013 17:01:58 +0000 |
| parents | f22989bb7632 |
| children | cd4f5f1f1f4c |
| files | src/ChangeLog src/number.h tests/ChangeLog tests/automated/lisp-tests.el |
| diffstat | 4 files changed, 14 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Sun Dec 15 10:38:19 2013 +0000 +++ b/src/ChangeLog Sun Dec 15 17:01:58 2013 +0000 @@ -1,3 +1,10 @@ +2013-12-15 Aidan Kehoe <kehoea@parhasard.net> + + * number.h: + Only make promote_args_lazy() available on builds + WITH_NUMBER_TYPES, in case linking complains about promote_args() + not being available. + 2013-12-15 Aidan Kehoe <kehoea@parhasard.net> * bytecode.c (bytecode_arithcompare):
--- a/src/number.h Sun Dec 15 10:38:19 2013 +0000 +++ b/src/number.h Sun Dec 15 17:01:58 2013 +0000 @@ -384,6 +384,8 @@ extern enum number_type get_number_type (Lisp_Object); extern enum number_type promote_args (Lisp_Object *, Lisp_Object *); +#ifdef WITH_NUMBER_TYPES + /* promote_args() *always* converts a marker argument to a fixnum. Unfortunately, for a marker with byte position N, getting the (character) @@ -409,7 +411,6 @@ return (enum lazy_number_type) promote_args (obj1, obj2); } -#ifdef WITH_NUMBER_TYPES DECLARE_INLINE_HEADER ( int non_fixnum_number_p (Lisp_Object object))
--- a/tests/ChangeLog Sun Dec 15 10:38:19 2013 +0000 +++ b/tests/ChangeLog Sun Dec 15 17:01:58 2013 +0000 @@ -1,3 +1,8 @@ +2013-12-15 Aidan Kehoe <kehoea@parhasard.net> + + * automated/lisp-tests.el (character): + Remove a debugging statement from this. + 2013-12-15 Aidan Kehoe <kehoea@parhasard.net> * automated/face-tests.el:
--- a/tests/automated/lisp-tests.el Sun Dec 15 10:38:19 2013 +0000 +++ b/tests/automated/lisp-tests.el Sun Dec 15 17:01:58 2013 +0000 @@ -3091,7 +3091,6 @@ context))) markers)))) (with-temp-buffer - (princ "hello there, in with-temp-buffer\n" (get-buffer "*scratch*")) (loop for ii from 0 to 100 do (progn (insert " " character " " character " " character " "