source: trunk/j/src/org/armedbear/lisp/opcodes.lisp @ 8306

Last change on this file since 8306 was 8306, checked in by piso, 17 years ago

ineg, lshl, lshr

File size: 8.7 KB
Line 
1;;; opcodes.lisp
2;;;
3;;; Copyright (C) 2003-2004 Peter Graves
4;;; $Id: opcodes.lisp,v 1.16 2004-12-28 02:09:27 piso Exp $
5;;;
6;;; This program is free software; you can redistribute it and/or
7;;; modify it under the terms of the GNU General Public License
8;;; as published by the Free Software Foundation; either version 2
9;;; of the License, or (at your option) any later version.
10;;;
11;;; This program is distributed in the hope that it will be useful,
12;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14;;; GNU General Public License for more details.
15;;;
16;;; You should have received a copy of the GNU General Public License
17;;; along with this program; if not, write to the Free Software
18;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
19
20(in-package "JVM")
21
22(defparameter *opcode-table* (make-array 256))
23
24(defparameter *opcodes* (make-hash-table :test 'equalp))
25
26(defstruct jvm-opcode name number size stack-effect)
27
28(defmacro define-opcode (name number size stack-effect)
29  `(let* ((name (string ',name))
30          (opcode (make-jvm-opcode :name name
31                                   :number ,number
32                                   :size ,size
33                                   :stack-effect ,stack-effect)))
34     (setf (svref *opcode-table* ,number) opcode)
35     (setf (gethash name *opcodes*) opcode)
36     (setf (gethash ,number *opcodes*) opcode)))
37
38;; name number size stack-effect (nil if unknown)
39(define-opcode nop 0 1 0)
40(define-opcode aconst_null 1 1 1)
41(define-opcode iconst_m1 2 1 1)
42(define-opcode iconst_0 3 1 1)
43(define-opcode iconst_1 4 1 1)
44(define-opcode iconst_2 5 1 1)
45(define-opcode iconst_3 6 1 1)
46(define-opcode iconst_4 7 1 1)
47(define-opcode iconst_5 8 1 1)
48(define-opcode lconst_0 9 1 nil)
49(define-opcode lconst_1 10 1 nil)
50(define-opcode fconst_0 11 1 nil)
51(define-opcode fconst_1 12 1 nil)
52(define-opcode fconst_2 13 1 nil)
53(define-opcode dconst_0 14 1 nil)
54(define-opcode dconst_1 15 1 nil)
55(define-opcode bipush 16 2 1)
56(define-opcode sipush 17 3 1)
57(define-opcode ldc 18 2 1)
58(define-opcode ldc_w 19 3 1)
59(define-opcode ldc2_w 20 3 nil)
60(define-opcode iload 21 2 1)
61(define-opcode lload 22 2 nil)
62(define-opcode fload 23 2 nil)
63(define-opcode dload 24 2 nil)
64(define-opcode aload 25 2 1)
65(define-opcode iload_0 26 1 1)
66(define-opcode iload_1 27 1 1)
67(define-opcode iload_2 28 1 1)
68(define-opcode iload_3 29 1 1)
69(define-opcode lload_0 30 1 nil)
70(define-opcode lload_1 31 1 nil)
71(define-opcode lload_2 32 1 nil)
72(define-opcode lload_3 33 1 nil)
73(define-opcode fload_0 34 1 nil)
74(define-opcode fload_1 35 1 nil)
75(define-opcode fload_2 36 1 nil)
76(define-opcode fload_3 37 1 nil)
77(define-opcode dload_0 38 1 nil)
78(define-opcode dload_1 39 1 nil)
79(define-opcode dload_2 40 1 nil)
80(define-opcode dload_3 41 1 nil)
81(define-opcode aload_0 42 1 1)
82(define-opcode aload_1 43 1 1)
83(define-opcode aload_2 44 1 1)
84(define-opcode aload_3 45 1 1)
85(define-opcode iaload 46 1 nil)
86(define-opcode laload 47 1 nil)
87(define-opcode faload 48 1 nil)
88(define-opcode daload 49 1 nil)
89(define-opcode aaload 50 1 -1)
90(define-opcode baload 51 1 nil)
91(define-opcode caload 52 1 nil)
92(define-opcode saload 53 1 nil)
93(define-opcode istore 54 2 -1)
94(define-opcode lstore 55 2 nil)
95(define-opcode fstore 56 2 nil)
96(define-opcode dstore 57 2 nil)
97(define-opcode astore 58 2 -1)
98(define-opcode istore_0 59 1 -1)
99(define-opcode istore_1 60 1 -1)
100(define-opcode istore_2 61 1 -1)
101(define-opcode istore_3 62 1 -1)
102(define-opcode lstore_0 63 1 nil)
103(define-opcode lstore_1 64 1 nil)
104(define-opcode lstore_2 65 1 nil)
105(define-opcode lstore_3 66 1 nil)
106(define-opcode fstore_0 67 1 nil)
107(define-opcode fstore_1 68 1 nil)
108(define-opcode fstore_2 69 1 nil)
109(define-opcode fstore_3 70 1 nil)
110(define-opcode dstore_0 71 1 nil)
111(define-opcode dstore_1 72 1 nil)
112(define-opcode dstore_2 73 1 nil)
113(define-opcode dstore_3 74 1 nil)
114(define-opcode astore_0 75 1 -1)
115(define-opcode astore_1 76 1 -1)
116(define-opcode astore_2 77 1 -1)
117(define-opcode astore_3 78 1 -1)
118(define-opcode iastore 79 1 nil)
119(define-opcode lastore 80 1 nil)
120(define-opcode fastore 81 1 nil)
121(define-opcode dastore 82 1 nil)
122(define-opcode aastore 83 1 -3)
123(define-opcode bastore 84 1 nil)
124(define-opcode castore 85 1 nil)
125(define-opcode sastore 86 1 nil)
126(define-opcode pop 87 1 -1)
127(define-opcode pop2 88 1 nil)
128(define-opcode dup 89 1 1)
129(define-opcode dup_x1 90 1 1)
130(define-opcode dup_x2 91 1 1)
131(define-opcode dup2 92 1 nil)
132(define-opcode dup2_x1 93 1 nil)
133(define-opcode dup2_x2 94 1 nil)
134(define-opcode swap 95 1 0)
135(define-opcode iadd 96 1 -1)
136(define-opcode ladd 97 1 -2)
137(define-opcode fadd 98 1 nil)
138(define-opcode dadd 99 1 nil)
139(define-opcode isub 100 1 nil)
140(define-opcode lsub 101 1 -2)
141(define-opcode fsub 102 1 nil)
142(define-opcode dsub 103 1 nil)
143(define-opcode imul 104 1 nil)
144(define-opcode lmul 105 1 nil)
145(define-opcode fmul 106 1 nil)
146(define-opcode dmul 107 1 nil)
147(define-opcode idiv 108 1 nil)
148(define-opcode ldiv 109 1 nil)
149(define-opcode fdiv 110 1 nil)
150(define-opcode ddiv 111 1 nil)
151(define-opcode irem 112 1 nil)
152(define-opcode lrem 113 1 nil)
153(define-opcode frem 114 1 nil)
154(define-opcode drem 115 1 nil)
155(define-opcode ineg 116 1 0)
156(define-opcode lneg 117 1 nil)
157(define-opcode fneg 118 1 nil)
158(define-opcode dneg 119 1 nil)
159(define-opcode ishl 120 1 nil)
160(define-opcode lshl 121 1 -1)
161(define-opcode ishr 122 1 nil)
162(define-opcode lshr 123 1 -1)
163(define-opcode iushr 124 1 nil)
164(define-opcode lushr 125 1 nil)
165(define-opcode iand 126 1 nil)
166(define-opcode land 127 1 nil)
167(define-opcode ior 128 1 nil)
168(define-opcode lor 129 1 nil)
169(define-opcode ixor 130 1 nil)
170(define-opcode lxor 131 1 nil)
171(define-opcode iinc 132 3 0)
172(define-opcode i2l 133 1 1)
173(define-opcode i2f 134 1 nil)
174(define-opcode i2d 135 1 nil)
175(define-opcode l2i 136 1 -1)
176(define-opcode l2f 137 1 nil)
177(define-opcode l2d 138 1 nil)
178(define-opcode f2i 139 1 nil)
179(define-opcode f2l 140 1 nil)
180(define-opcode f2d 141 1 nil)
181(define-opcode d2i 142 1 nil)
182(define-opcode d2l 143 1 nil)
183(define-opcode d2f 144 1 nil)
184(define-opcode i2b 145 1 nil)
185(define-opcode i2c 146 1 nil)
186(define-opcode i2s 147 1 nil)
187(define-opcode lcmp 148 1 nil)
188(define-opcode fcmpl 149 1 nil)
189(define-opcode fcmpg 150 1 nil)
190(define-opcode dcmpl 151 1 nil)
191(define-opcode dcmpg 152 1 nil)
192(define-opcode ifeq 153 3 -1)
193(define-opcode ifne 154 3 -1)
194(define-opcode iflt 155 3 -1)
195(define-opcode ifge 156 3 -1)
196(define-opcode ifgt 157 3 -1)
197(define-opcode ifle 158 3 -1)
198(define-opcode if_icmpeq 159 3 -2)
199(define-opcode if_icmpne 160 3 -2)
200(define-opcode if_icmplt 161 3 -2)
201(define-opcode if_icmpge 162 3 -2)
202(define-opcode if_icmpgt 163 3 -2)
203(define-opcode if_icmple 164 3 -2)
204(define-opcode if_acmpeq 165 3 -2)
205(define-opcode if_acmpne 166 3 -2)
206(define-opcode goto 167 3 0)
207(define-opcode jsr 168 3 1)
208(define-opcode ret 169 2 0)
209(define-opcode tableswitch 170 0 nil)
210(define-opcode lookupswitch 171 0 nil)
211(define-opcode ireturn 172 1 nil)
212(define-opcode lreturn 173 1 nil)
213(define-opcode freturn 174 1 nil)
214(define-opcode dreturn 175 1 nil)
215(define-opcode areturn 176 1 -1)
216(define-opcode return 177 1 0)
217(define-opcode getstatic 178 3 1)
218(define-opcode putstatic 179 3 -1)
219(define-opcode getfield 180 3 0)
220(define-opcode putfield 181 3 -2)
221(define-opcode invokevirtual 182 3 nil)
222(define-opcode invokespecial 183 3 nil)
223(define-opcode invokestatic 184 3 nil)
224(define-opcode invokeinterface 185 5 nil)
225(define-opcode unused 186 0 nil)
226(define-opcode new 187 3 1)
227(define-opcode newarray 188 2 nil)
228(define-opcode anewarray 189 3 0)
229(define-opcode arraylength 190 1 0)
230(define-opcode athrow 191 1 0)
231(define-opcode checkcast 192 3 0)
232(define-opcode instanceof 193 3 0)
233(define-opcode monitorenter 194 1 nil)
234(define-opcode monitorexit 195 1 nil)
235(define-opcode wide 196 0 nil)
236(define-opcode multianewarray 197 4 nil)
237(define-opcode ifnull 198 3 -1)
238(define-opcode ifnonnull 199 3 nil)
239(define-opcode goto_w 200 5 nil)
240(define-opcode jsr_w 201 5 nil)
241(define-opcode label 202 0 0)
242;; (define-opcode push-value 203 nil 1)
243;; (define-opcode store-value 204 nil -1)
244(define-opcode clear-values 205 nil 0)
245(define-opcode var-ref 206 nil nil)
246(define-opcode var-set 207 nil nil)
247
248(defparameter *last-opcode* 207)
249
250(defun opcode-name (opcode-number)
251  (let ((opcode (gethash opcode-number *opcodes*)))
252    (and opcode (jvm-opcode-name opcode))))
253
254(defun opcode-number (opcode-name)
255  (declare (optimize (speed 3) (safety 0)))
256  (let ((opcode (gethash (string opcode-name) *opcodes*)))
257    (and opcode (jvm-opcode-number opcode))))
258
259(defun opcode-size (opcode-number)
260  (declare (optimize speed (safety 0)))
261  (jvm-opcode-size (svref *opcode-table* opcode-number)))
262
263(defun opcode-stack-effect (opcode-number)
264  (declare (optimize speed (safety 0)))
265  (jvm-opcode-stack-effect (svref *opcode-table* opcode-number)))
266
267(provide '#:opcodes)
Note: See TracBrowser for help on using the repository browser.