From 0924c1b2621a1410b3d3b4b7a282b890aa7059a1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 27 Sep 1990 18:25:15 +0000 Subject: [PATCH] Eliminated the IR1-FINALIZE interface and made the previously internal subfunctions interfaces so that main can call them in the right places. --- compiler/ir1final.lisp | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp index 2e12e3bb1..f74d3f16a 100644 --- a/compiler/ir1final.lisp +++ b/compiler/ir1final.lisp @@ -15,21 +15,7 @@ (in-package 'c) -;;; IR1-Finalize -- Interface -;;; -;;; We do a number of things: -;;; 2] Find any unknown free functions. -;;; 3] Accumulate approximate function type info for unknown functions. -;;; 4] Update the global type for functions newly defined. -;;; 5] Emit any delayed notes about failed optimizations. -;;; -(proclaim '(function ir1-finalize () void)) -(defun ir1-finalize () - (maphash #'check-free-function *free-functions*) - (maphash #'note-failed-optimization *failed-optimizations*)) - - -;;; Note-Failed-Optimization -- Internal +;;; Note-Failed-Optimization -- Interface ;;; ;;; Give the user grief about optimizations that we weren't able to do. It ;;; is assumed that they want to hear, or there wouldn't be any entries in the @@ -59,7 +45,7 @@ (messages)))))))) -;;; Check-Free-Function -- Internal +;;; Check-Free-Function -- Interface ;;; ;;; If the entry is a functional, then we update the global environment ;;; according to the new definition, checking for inconsistency. If the entry -- GitLab