Changeset 13519
- Timestamp:
- 08/20/11 21:55:30 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r13517 r13519 1061 1061 ;; We don't normally need to see debugging output for <clinit>. 1062 1062 (with-code-to-method (class method) 1063 (setf (code-max-locals *current-code-attribute*) 0)1064 (emit 'return)1065 1063 method))) 1066 1064 … … 1074 1072 extend the class any further." 1075 1073 (with-code-to-method (class (abcl-class-file-constructor class)) 1074 (emit 'return)) 1075 (with-code-to-method (class (abcl-class-file-static-initializer class)) 1076 1076 (emit 'return)) 1077 1077 (finalize-class-file class) … … 1308 1308 ((not *file-compilation*) 1309 1309 (with-code-to-method 1310 (*class-file* (abcl-class-file- constructor *class-file*))1310 (*class-file* (abcl-class-file-static-initializer *class-file*)) 1311 1311 (remember field-name object) 1312 1312 (emit 'ldc (pool-string field-name)) … … 1321 1321 (t 1322 1322 (with-code-to-method 1323 (*class-file* (abcl-class-file- constructor *class-file*))1323 (*class-file* (abcl-class-file-static-initializer *class-file*)) 1324 1324 (funcall dispatch-fn object) 1325 1325 (emit-putstatic *this-class* field-name field-type)))) … … 7077 7077 (setf (abcl-class-file-constructor class-file) constructor) 7078 7078 (class-add-method class-file constructor)) 7079 #+enable-when-generating-clinit7080 7079 (let ((clinit (make-static-initializer class-file))) 7081 7080 (setf (abcl-class-file-static-initializer class-file) clinit)
Note: See TracChangeset
for help on using the changeset viewer.