Changeset 13470
- Timestamp:
- 08/12/11 19:43:37 (11 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
r13468 r13470 727 727 `(let ((*visible-variables* *visible-variables*) 728 728 (*local-functions* *local-functions*) 729 ( *current-compiland**current-compiland*)729 (parent-compiland *current-compiland*) 730 730 (,local-functions-var '())) 731 (incf (compiland-children *current-compiland*) (length (cadr ,form)))732 731 (dolist (definition (cadr ,form)) 733 732 (let ((,name-var (car definition)) … … 736 735 (let* ((,body-var (cddr definition)) 737 736 (compiland (make-compiland :name ,name-var 738 :parent *current-compiland*))) 737 :parent parent-compiland))) 738 (push compiland (compiland-children parent-compiland)) 739 739 ,@body1))) 740 740 (setf ,local-functions-var (nreverse ,local-functions-var)) … … 1022 1022 :lambda-expression lambda-form 1023 1023 :parent *current-compiland*))) 1024 (when *current-compiland* 1025 (incf (compiland-children *current-compiland*))) 1024 (push compiland (compiland-children *current-compiland*)) 1026 1025 (multiple-value-bind (body decls) 1027 1026 (parse-body body) -
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r13469 r13470 7089 7089 (not (variable-special-p variable)) 7090 7090 (not (variable-used-non-locally-p variable)) 7091 ( zerop(compiland-children *current-compiland*)))7091 (null (compiland-children *current-compiland*))) 7092 7092 (when (memq (type-representation (variable-declared-type variable)) 7093 7093 '(:int :long)) -
trunk/abcl/src/org/armedbear/lisp/jvm.lisp
r13469 r13470 200 200 p1-result ; the parse tree as created in pass 1 201 201 parent ; the parent for compilands which defined within another 202 (children 0 ; Number of local functions203 :type fixnum); defined with FLET, LABELS or LAMBDA202 children ; List of local compilands 203 ; defined with FLET, LABELS or LAMBDA 204 204 blocks ; TAGBODY, PROGV, BLOCK, etc. blocks 205 205 argument-register
Note: See TracChangeset
for help on using the changeset viewer.