Modified:
trunk/cc/test-cc.lisp
Log:
Add one test case involving r9l.
Modified: trunk/cc/test-cc.lisp
==============================================================================
--- trunk/cc/test-cc.lisp (original)
+++ trunk/cc/test-cc.lisp Wed Feb 25 06:16:02 2009
@@ -103,6 +103,7 @@
(add r15 #x123456)
(add r10d 3)
(add sil 6)
+ (add r9l 8)
(add r10 rbx)
(add rsi (ebx))
(dec di)
@@ -118,36 +119,36 @@
"Arithmetic instructions are tested separately.")
(defparameter *arith-code*
- '(4 8 5 232 3 128 195 3 128 6 68 126 4 129 195 210 4 129 6 68 126 46
- 22 131 193 9 131 6 68 126 12 0 216 0 46 68 126 1 217 1 22 68 126 2
- 46 68 126 3 22 68 126 36 8 37 232 3 128 227 3 128 38 68 126 4 129
- 227 210 4 129 38 68 126 46 22 131 225 9 131 38 68 126 12 32 216 32
- 46 68 126 33 217 33 22 68 126 34 46 68 126 35 22 68 126 60 8 61
- 232 3 128 251 3 128 62 68 126 4 129 251 210 4 129 62 68 126 46 22
- 131 249 9 131 62 68 126 12 56 216 56 46 68 126 57 217 57 22 68 126
- 58 46 68 126 59 22 68 126 75 102 72 254 202 254 14 68 126 255 74 3
- 102 255 14 68 126 246 245 246 54 68 126 247 247 247 114 3 67 102
- 64 254 194 254 6 68 126 255 66 3 102 255 6 68 126 246 229 246 38
- 68 126 247 231 247 98 3 246 221 246 30 68 126 247 223 247 90 3 246
- 213 246 22 68 126 247 215 247 82 3 12 8 13 232 3 128 203 3 128 14
- 68 126 4 129 203 210 4 129 14 68 126 46 22 131 201 9 131 14 68 126
- 12 8 216 8 46 68 126 9 217 9 22 68 126 10 46 68 126 11 22 68 126
- 208 230 208 38 68 126 210 230 210 38 68 126 192 230 5 192 38 68
- 126 5 209 226 209 38 68 126 211 226 211 38 68 126 193 226 5 193 38
- 68 126 5 208 238 208 46 68 126 210 238 210 46 68 126 192 238 5 192
- 46 68 126 5 209 234 209 46 68 126 211 234 211 46 68 126 193 234 5
- 193 46 68 126 5 44 8 45 232 3 128 235 3 128 46 68 126 4 129 235
- 210 4 129 46 68 126 46 22 131 233 9 131 46 68 126 12 40 216 40 46
- 68 126 41 217 41 22 68 126 42 46 68 126 43 22 68 126 168 8 169 232
- 3 246 195 3 246 6 68 126 4 247 195 210 4 247 6 68 126 46 22 132
- 216 132 46 68 126 133 217 133 22 68 126 52 8 53 232 3 128 243 3
- 128 54 68 126 4 129 243 210 4 129 54 68 126 46 22 131 241 9 131 54
- 68 126 12 48 216 48 46 68 126 49 217 49 22 68 126 50 46 68 126 51
- 22 68 126 102 5 232 3 102 74 77 102 66 69 72 21 69 35 1 0 129 195
+ '(4 8 5 232 3 128 195 3 128 6 72 126 4 129 195 210 4 129 6 72 126 46
+ 22 131 193 9 131 6 72 126 12 0 216 0 46 72 126 1 217 1 22 72 126 2
+ 46 72 126 3 22 72 126 36 8 37 232 3 128 227 3 128 38 72 126 4 129
+ 227 210 4 129 38 72 126 46 22 131 225 9 131 38 72 126 12 32 216 32
+ 46 72 126 33 217 33 22 72 126 34 46 72 126 35 22 72 126 60 8 61
+ 232 3 128 251 3 128 62 72 126 4 129 251 210 4 129 62 72 126 46 22
+ 131 249 9 131 62 72 126 12 56 216 56 46 72 126 57 217 57 22 72 126
+ 58 46 72 126 59 22 72 126 75 102 72 254 202 254 14 72 126 255 74 3
+ 102 255 14 72 126 246 245 246 54 72 126 247 247 247 114 3 67 102
+ 64 254 194 254 6 72 126 255 66 3 102 255 6 72 126 246 229 246 38
+ 72 126 247 231 247 98 3 246 221 246 30 72 126 247 223 247 90 3 246
+ 213 246 22 72 126 247 215 247 82 3 12 8 13 232 3 128 203 3 128 14
+ 72 126 4 129 203 210 4 129 14 72 126 46 22 131 201 9 131 14 72 126
+ 12 8 216 8 46 72 126 9 217 9 22 72 126 10 46 72 126 11 22 72 126
+ 208 230 208 38 72 126 210 230 210 38 72 126 192 230 5 192 38 72
+ 126 5 209 226 209 38 72 126 211 226 211 38 72 126 193 226 5 193 38
+ 72 126 5 208 238 208 46 72 126 210 238 210 46 72 126 192 238 5 192
+ 46 72 126 5 209 234 209 46 72 126 211 234 211 46 72 126 193 234 5
+ 193 46 72 126 5 44 8 45 232 3 128 235 3 128 46 72 126 4 129 235
+ 210 4 129 46 72 126 46 22 131 233 9 131 46 72 126 12 40 216 40 46
+ 72 126 41 217 41 22 72 126 42 46 72 126 43 22 72 126 168 8 169 232
+ 3 246 195 3 246 6 72 126 4 247 195 210 4 247 6 72 126 46 22 132
+ 216 132 46 72 126 133 217 133 22 72 126 52 8 53 232 3 128 243 3
+ 128 54 72 126 4 129 243 210 4 129 54 72 126 46 22 131 241 9 131 54
+ 72 126 12 48 216 48 46 72 126 49 217 49 22 72 126 50 46 72 126 51
+ 22 72 126 102 5 232 3 102 74 77 102 66 69 72 21 69 35 1 0 129 195
232 3 0 0 72 5 3 2 1 16 72 5 10 0 0 0 72 129 195 11 1 0 0 73 129
- 199 86 52 18 0 65 131 194 3 64 128 198 6 73 1 218 72 3 51 102 255
- 207 255 201 73 255 202 102 255 199 255 193 73 255 194 72 25 211 72
- 101 108 108 111 32 87 111 114 108 100 33 32))
+ 199 86 52 18 0 65 131 194 3 64 128 198 6 65 128 193 8 73 1 218 72
+ 3 51 102 255 207 255 201 73 255 202 102 255 199 255 193 73 255 194
+ 72 25 211 72 101 108 108 111 32 87 111 114 108 100 33 32))
(defparameter *misc-asm*
'((bits 16)