Changeset 14095
- Timestamp:
- 08/15/12 22:16:20 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/abcl/class-file.lisp
r13594 r14095 233 233 (jvm::with-code-to-method (file method) 234 234 (jvm::emit 'aload 0) 235 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp- object+)236 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp- object+)235 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+) 236 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+) 237 237 (jvm::emit-invokespecial-init jvm::+lisp-primitive+ 238 238 (list jvm::+lisp-object+ … … 242 242 (jvm::class-add-method file method) 243 243 (jvm::with-code-to-method (file method) 244 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp- object+)244 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+) 245 245 (jvm::emit 'jvm::areturn))) 246 246 (jvm::finalize-class-file file) … … 261 261 (jvm::class-add-method file method) 262 262 (jvm::with-code-to-method (file method) 263 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp- object+)263 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+) 264 264 (jvm::emit-putstatic class "N1" jvm::+lisp-object+) 265 265 (jvm::emit 'return))) … … 295 295 (jvm::with-code-to-method (file method) 296 296 (jvm::emit 'aload 0) 297 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp- object+)298 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp- object+)297 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+) 298 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+) 299 299 (jvm::emit-invokespecial-init jvm::+lisp-primitive+ 300 300 (list jvm::+lisp-object+ … … 304 304 (jvm::class-add-method file method) 305 305 (jvm::with-code-to-method (file method) 306 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp- object+)306 (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+) 307 307 (jvm::emit 'jvm::areturn))) 308 308 (let ((method (jvm::make-jvm-method "execute" jvm::+lisp-object+ … … 340 340 (push jvm::*register* registers)) 341 341 (jvm::allocate-register :int) 342 (push jvm::*register* registers)) 342 (push jvm::*register* registers) 343 (jvm::emit 'return)) 343 344 (jvm::finalize-class-file file) 344 345 (nreverse registers)) … … 366 367 (push jvm::*register* registers)) 367 368 (jvm::allocate-register :int) 368 (push jvm::*register* registers)) 369 (push jvm::*register* registers) 370 (jvm::emit 'return)) 369 371 (jvm::finalize-class-file file) 370 372 (nreverse registers))
Note: See TracChangeset
for help on using the changeset viewer.