From 76a6a75e459c92a403528c183018a363a8d57994 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 23 Jul 1990 14:10:44 +0000 Subject: [PATCH] Changed stuff to use BLOCK-ENVIRONMENT instead of the obsolete BLOCK-LAMBDA. --- compiler/codegen.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/compiler/codegen.lisp b/compiler/codegen.lisp index 281257a43..f91233bfe 100644 --- a/compiler/codegen.lisp +++ b/compiler/codegen.lisp @@ -35,8 +35,7 @@ (let ((block (ir2-block-block (vop-block vop)))) (when (ir2-environment-number-stack-p (environment-info - (lambda-environment - (block-lambda block)))) + (block-environment block))) (ir2-component-nfp (component-info (block-component block))))))) @@ -64,11 +63,11 @@ (defun generate-code (component) (let ((prev-env nil)) (do-ir2-blocks (block component) - (let* ((1block (ir2-block-block block)) - (lambda (block-lambda 1block))) - (when (and (eq (block-info 1block) block) lambda) + (let ((1block (ir2-block-block block))) + (when (and (eq (block-info 1block) block) + (block-start 1block)) (emit-label (block-label 1block)) - (let ((env (lambda-environment lambda))) + (let ((env (block-environment 1block))) (unless (eq env prev-env) (let ((lab (gen-label))) (setf (ir2-environment-elsewhere-start (environment-info env)) -- GitLab