comparison lisp/bytecomp.el @ 5374:d967d96ca043

Conditionalise the old-* functions and byte codes at compile time. src/ChangeLog addition: 2011-03-15 Aidan Kehoe <kehoea@parhasard.net> * config.h.in (SUPPORT_CONFOUNDING_FUNCTIONS): New #define, equivalent NEED_TO_HANDLE_21_4_CODE by default, describing whether this XEmacs should support the old-eq, old-equal and related functions and byte codes. * bytecode.c (UNUSED): Only interpret old-eq, old-equal, old-memq if SUPPORT_CONFOUNDING_FUNCTIONS is defined. * data.c: Move Fold_eq to fns.c with the rest of the Fold_* functions. * fns.c: * fns.c (Fmemq): * fns.c (memq_no_quit): * fns.c (assoc_no_quit): * fns.c (Frassq): * fns.c (Fequal): * fns.c (Fold_equal): * fns.c (syms_of_fns): Group old-eq, old-equal, old-memq etc together, surround them with #ifdef SUPPORT_CONFOUNDING_FUNCTIONS. lisp/ChangeLog addition: 2011-03-15 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el: Don't generate the old-eq, old-memq, old-equal bytecodes any more, but keep the information about them around for the sake of the disassembler. man/ChangeLog addition: 2011-03-15 Aidan Kehoe <kehoea@parhasard.net> * lispref/objects.texi (Character Type): * lispref/objects.texi (Equality Predicates): No longer document `old-eq', `old-equal', they haven't been used in years. tests/ChangeLog addition: 2011-03-17 Aidan Kehoe <kehoea@parhasard.net> * automated/lisp-tests.el: Only test the various old-* function if old-eq is bound and a subr.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 17 Mar 2011 20:13:00 +0000
parents f00192e1cd49
children 4b529b940e2e ac37a5f7e5be
comparison
equal deleted inserted replaced
5372:6c3a695f54f5 5374:d967d96ca043
3159 (byte-defop-compiler numberp 1) 3159 (byte-defop-compiler numberp 1)
3160 (byte-defop-compiler fixnump 1) 3160 (byte-defop-compiler fixnump 1)
3161 (byte-defop-compiler skip-chars-forward 1-2+1) 3161 (byte-defop-compiler skip-chars-forward 1-2+1)
3162 (byte-defop-compiler skip-chars-backward 1-2+1) 3162 (byte-defop-compiler skip-chars-backward 1-2+1)
3163 (byte-defop-compiler eq 2) 3163 (byte-defop-compiler eq 2)
3164 (byte-defop-compiler20 old-eq 2) 3164 ; (byte-defop-compiler20 old-eq 2)
3165 (byte-defop-compiler20 old-memq 2) 3165 ; (byte-defop-compiler20 old-memq 2)
3166 (byte-defop-compiler cons 2) 3166 (byte-defop-compiler cons 2)
3167 (byte-defop-compiler aref 2) 3167 (byte-defop-compiler aref 2)
3168 (byte-defop-compiler get 2+1) 3168 (byte-defop-compiler get 2+1)
3169 (byte-defop-compiler nth 2) 3169 (byte-defop-compiler nth 2)
3170 (byte-defop-compiler subseq byte-compile-subseq) 3170 (byte-defop-compiler subseq byte-compile-subseq)
3177 (byte-defop-compiler downcase 1+1) 3177 (byte-defop-compiler downcase 1+1)
3178 (byte-defop-compiler string= 2) 3178 (byte-defop-compiler string= 2)
3179 (byte-defop-compiler string< 2) 3179 (byte-defop-compiler string< 2)
3180 (byte-defop-compiler (string-equal byte-string=) 2) 3180 (byte-defop-compiler (string-equal byte-string=) 2)
3181 (byte-defop-compiler (string-lessp byte-string<) 2) 3181 (byte-defop-compiler (string-lessp byte-string<) 2)
3182 (byte-defop-compiler20 old-equal 2) 3182 ; (byte-defop-compiler20 old-equal 2)
3183 (byte-defop-compiler nthcdr 2) 3183 (byte-defop-compiler nthcdr 2)
3184 (byte-defop-compiler elt 2) 3184 (byte-defop-compiler elt 2)
3185 (byte-defop-compiler20 old-member 2) 3185 (byte-defop-compiler20 old-member 2)
3186 (byte-defop-compiler20 old-assq 2) 3186 (byte-defop-compiler20 old-assq 2)
3187 (byte-defop-compiler (rplaca byte-setcar) 2) 3187 (byte-defop-compiler (rplaca byte-setcar) 2)