Changeset 12779

Timestamp:

07/03/10 22:15:26 (13 years ago)

Author:

ehuelsmann

Message:

'Code' attribute creation.

File:

• branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp (modified) (3 diffs)

branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

@@ -561 +561 @@
   descriptor
   attributes
-  arg-count ;; not in the class file,
-            ;; but required for setting up CODE attribute
   )
 
@@ -577 +575 @@
   (%make-method :descriptor (cons return args)
                 :access-flags flags
-                :name name
-                :arg-count (if (member :static flags)
-                               (length args)
-                               (1+ (length args))))) ;; implicit 'this'
+                :name name))
 
 (defun method-add-attribute (method attribute)
   (push attribute (method-attributes method)))
+
+(defun method-add-code (method)
+  "Creates an (empty) 'Code' attribute for the method."
+  (method-add-attribute
+   (make-code-attribute (+ (length args)
+                           (if (member :static (method-access-flags method))
+                               0 1))))) ;; 1 == implicit 'this'
 
 (defun method-attribute (method name)
@@ -677 +679 @@
   (write-attributes (code-attributes code) stream))
 
-(defun make-code-attribute (method)
-  (%make-code-attribute :max-locals (method-arg-count method)))
+(defun make-code-attribute (arg-count)
+  "Creates an empty 'Code' attribute for a method which takes
+`arg-count` parameters, including the implicit `this` parameter."
+  (%make-code-attribute :max-locals arg-count))
 
 (defun code-add-attribute (code attribute)