Mercurial > hg > xemacs-beta

annotate src/bytecode-ops.h @ 5655:b7ae5f44b950

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove some redundant functions, change others to labels, lisp/ lisp/ChangeLog addition: 2012-05-05 Aidan Kehoe <kehoea@parhasard.net> Remove some redundant functions; turn other utility functions into labels, avoiding visibility in the global namespace, and reducing the size of the dumped binary. * auto-save.el (auto-save-unhex): Removed. * auto-save.el (auto-save-unescape-name): Use #'string-to-number instead of #'auto-save-unhex. * files.el (save-some-buffers): * files.el (save-some-buffers-1): Changed to a label. * files.el (not-modified): * gui.el (make-gui-button): * gui.el (gui-button-action): Changed to a label. * gui.el (insert-gui-button): * indent.el (indent-for-tab-command): * indent.el (insert-tab): Changed to a label. * indent.el (indent-rigidly): * isearch-mode.el: * isearch-mode.el (isearch-ring-adjust): * isearch-mode.el (isearch-ring-adjust1): Changed to a label. * isearch-mode.el (isearch-pre-command-hook): * isearch-mode.el (isearch-maybe-frob-keyboard-macros): Changed to a label. * isearch-mode.el (isearch-highlight): * isearch-mode.el (isearch-make-extent): Changed to a label. * itimer.el: * itimer.el (itimer-decrement): Removed, replaced uses with decf. * itimer.el (itimer-increment): Removed, replaced uses with incf. * itimer.el (itimer-signum): Removed, replaced uses with minusp, plusp. * itimer.el (itimer-name): * itimer.el (check-itimer): Removed, replaced with #'check-type calls. * itimer.el (itimer-value): * itimer.el (check-itimer-coerce-string): Removed. * itimer.el (itimer-restart): * itimer.el (itimer-function): * itimer.el (check-nonnegative-number): Removed. * itimer.el (itimer-uses-arguments): * itimer.el (check-string): Removed. * itimer.el (itimer-function-arguments): * itimer.el (itimer-recorded-run-time): * itimer.el (set-itimer-name): * itimer.el (set-itimer-value): * itimer.el (set-itimer-value-internal): * itimer.el (set-itimer-restart): * itimer.el (set-itimer-function): * itimer.el (set-itimer-is-idle): * itimer.el (set-itimer-recorded-run-time): * itimer.el (get-itimer): * itimer.el (delete-itimer): * itimer.el (start-itimer): * itimer.el (activate-itimer): * itimer.el (itimer-edit-set-field): * itimer.el (itimer-edit-next-field): * itimer.el (itimer-edit-previous-field): Use incf, decf, plusp, minusp and the more general argument type checking macros. * lib-complete.el: * lib-complete.el (lib-complete:better-root): Changed to a label. * lib-complete.el (lib-complete:get-completion-table): Changed to a label. * lib-complete.el (read-library-internal): Include labels. * lib-complete.el (lib-complete:cache-completions): Changed to a label. * minibuf.el (read-buffer): Use #'set-difference, don't reinvent it. * newcomment.el (comment-padright): Use a label instead of repeating a lambda expression. * packages.el (package-get-key): * packages.el (package-get-key-1): Removed, use #'getf instead. * simple.el (kill-backward-chars): Removed; this isn't used. * simple.el (what-cursor-position): (lambda (arg) (format "%S" arg) -> #'prin1-to-string. * simple.el (debug-print-1): Renamed to #'debug-print. * simple.el (debug-print): Removed, #'debug-print-1 was equivalent. * subr.el (integer-to-bit-vector): check-nonnegative-number no longer available. * widget.el (define-widget): * widget.el (define-widget-keywords): Removed, this was long obsolete.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 05 May 2012 18:42:00 +0100
parents 308d34e9f07d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4921
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
1 /* Execution of byte code produced by bytecomp.el.
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
2 Implementation of compiled-function objects.
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
3 Copyright (C) 1992, 1993 Free Software Foundation, Inc.
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
4 Copyright (C) 1995, 2002, 2010 Ben Wing.
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
5
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
6 This file is part of XEmacs.
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
7
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5089
diff changeset
8 XEmacs is free software: you can redistribute it and/or modify it
4921
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5089
diff changeset
10 Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5089
diff changeset
11 option) any later version.
4921
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
12
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
16 for more details.
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
17
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5089
diff changeset
19 along with XEmacs. If not, see <http://www.gnu.org/licenses/>. */
4921
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
20
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
21 /* Synched up with: Mule 2.0, FSF 19.30. */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
22
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
23 /* There is more than one place in bytecode.c that may want to do something
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
24 with the list of all the opcodes. To handle this, we extract them into
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
25 a separate file that can get included after defining OPCODE(sym, val)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
26 appropriately. No need to undefine OPCODE; that happens automatically.
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
27 */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
28
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
29 OPCODE (varref, 010)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
30 OPCODE (varset, 020)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
31 OPCODE (varbind, 030)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
32 OPCODE (call, 040)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
33 OPCODE (unbind, 050)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
34
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
35 OPCODE (nth, 070)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
36 OPCODE (symbolp, 071)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
37 OPCODE (consp, 072)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
38 OPCODE (stringp, 073)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
39 OPCODE (listp, 074)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
40 OPCODE (old_eq, 075)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
41 OPCODE (old_memq, 076)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
42 OPCODE (not, 077)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
43 OPCODE (car, 0100)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
44 OPCODE (cdr, 0101)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
45 OPCODE (cons, 0102)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
46 OPCODE (list1, 0103)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
47 OPCODE (list2, 0104)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
48 OPCODE (list3, 0105)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
49 OPCODE (list4, 0106)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
50 OPCODE (length, 0107)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
51 OPCODE (aref, 0110)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
52 OPCODE (aset, 0111)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
53 OPCODE (symbol_value, 0112)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
54 OPCODE (symbol_function, 0113)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
55 OPCODE (set, 0114)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
56 OPCODE (fset, 0115)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
57 OPCODE (get, 0116)
5089
99f8ebc082d9 Make #'substring an alias of #'subseq; give the latter the byte code.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4921
diff changeset
58 OPCODE (subseq, 0117)
4921
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
59 OPCODE (concat2, 0120)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
60 OPCODE (concat3, 0121)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
61 OPCODE (concat4, 0122)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
62 OPCODE (sub1, 0123)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
63 OPCODE (add1, 0124)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
64 OPCODE (eqlsign, 0125)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
65 OPCODE (gtr, 0126)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
66 OPCODE (lss, 0127)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
67 OPCODE (leq, 0130)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
68 OPCODE (geq, 0131)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
69 OPCODE (diff, 0132)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
70 OPCODE (negate, 0133)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
71 OPCODE (plus, 0134)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
72 OPCODE (max, 0135)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
73 OPCODE (min, 0136)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
74 OPCODE (mult, 0137)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
75
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
76 OPCODE (point, 0140)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
77 OPCODE (eq, 0141) /* was Bmark, but no longer
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
78 generated as of v18 */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
79 OPCODE (goto_char, 0142)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
80 OPCODE (insert, 0143)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
81 OPCODE (point_max, 0144)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
82 OPCODE (point_min, 0145)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
83 OPCODE (char_after, 0146)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
84 OPCODE (following_char, 0147)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
85 OPCODE (preceding_char, 0150)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
86 OPCODE (current_column, 0151)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
87 OPCODE (indent_to, 0152)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
88 OPCODE (equal, 0153) /* was Bscan_buffer, but no
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
89 longer generated as of
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
90 v18 */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
91 OPCODE (eolp, 0154)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
92 OPCODE (eobp, 0155)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
93 OPCODE (bolp, 0156)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
94 OPCODE (bobp, 0157)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
95 OPCODE (current_buffer, 0160)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
96 OPCODE (set_buffer, 0161)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
97 OPCODE (save_current_buffer, 0162) /* was Bread_char, but no
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
98 longer generated as of
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
99 v19 */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
100 OPCODE (memq, 0163) /* was Bset_mark, but no
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
101 longer generated as of
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
102 v18 */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
103 OPCODE (interactive_p, 0164) /* Needed since interactive-p
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
104 takes unevalled args */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
105 OPCODE (forward_char, 0165)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
106 OPCODE (forward_word, 0166)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
107 OPCODE (skip_chars_forward, 0167)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
108 OPCODE (skip_chars_backward, 0170)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
109 OPCODE (forward_line, 0171)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
110 OPCODE (char_syntax, 0172)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
111 OPCODE (buffer_substring, 0173)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
112 OPCODE (delete_region, 0174)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
113 OPCODE (narrow_to_region, 0175)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
114 OPCODE (widen, 0176)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
115 OPCODE (end_of_line, 0177)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
116
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
117 OPCODE (constant2, 0201)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
118 OPCODE (goto, 0202)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
119 OPCODE (gotoifnil, 0203)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
120 OPCODE (gotoifnonnil, 0204)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
121 OPCODE (gotoifnilelsepop, 0205)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
122 OPCODE (gotoifnonnilelsepop, 0206)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
123 OPCODE (return, 0207)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
124 OPCODE (discard, 0210)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
125 OPCODE (dup, 0211)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
126
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
127 OPCODE (save_excursion, 0212)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
128 OPCODE (save_window_excursion, 0213)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
129 OPCODE (save_restriction, 0214)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
130 OPCODE (catch, 0215)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
131
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
132 OPCODE (unwind_protect, 0216)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
133 OPCODE (condition_case, 0217)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
134 OPCODE (temp_output_buffer_setup, 0220)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
135 OPCODE (temp_output_buffer_show, 0221)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
136
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
137 OPCODE (unbind_all, 0222)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
138
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
139 OPCODE (set_marker, 0223)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
140 OPCODE (match_beginning, 0224)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
141 OPCODE (match_end, 0225)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
142 OPCODE (upcase, 0226)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
143 OPCODE (downcase, 0227)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
144
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
145 OPCODE (string_equal, 0230)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
146 OPCODE (string_lessp, 0231)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
147 OPCODE (old_equal, 0232)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
148 OPCODE (nthcdr, 0233)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
149 OPCODE (elt, 0234)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
150 OPCODE (old_member, 0235)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
151 OPCODE (old_assq, 0236)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
152 OPCODE (nreverse, 0237)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
153 OPCODE (setcar, 0240)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
154 OPCODE (setcdr, 0241)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
155 OPCODE (car_safe, 0242)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
156 OPCODE (cdr_safe, 0243)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
157 OPCODE (nconc, 0244)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
158 OPCODE (quo, 0245)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
159 OPCODE (rem, 0246)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
160 OPCODE (numberp, 0247)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
161 OPCODE (fixnump, 0250) /* Was Bintegerp. */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
162
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
163 OPCODE (Rgoto, 0252)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
164 OPCODE (Rgotoifnil, 0253)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
165 OPCODE (Rgotoifnonnil, 0254)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
166 OPCODE (Rgotoifnilelsepop, 0255)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
167 OPCODE (Rgotoifnonnilelsepop, 0256)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
168
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
169 OPCODE (listN, 0257)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
170 OPCODE (concatN, 0260)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
171 OPCODE (insertN, 0261)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
172
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
173 OPCODE (bind_multiple_value_limits, 0262) /* New in 21.5. */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
174 OPCODE (multiple_value_list_internal, 0263) /* New in 21.5. */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
175 OPCODE (multiple_value_call, 0264) /* New in 21.5. */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
176 OPCODE (throw, 0265) /* New in 21.5. */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
177
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
178 OPCODE (member, 0266) /* new in v20 */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
179 OPCODE (assq, 0267) /* new in v20 */
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
180
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
181 OPCODE (constant, 0300)
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
182
17362f371cc2 add more byte-code assertions and better failure output
Ben Wing <ben@xemacs.org>
parents:
diff changeset
183 #undef OPCODE