From b6540605ddf4663dd3426ac45b86a5e1e0db49d7 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 16 May 2013 15:52:49 +0100 Subject: [PATCH] Rename ir-complete to ir-normalize --- experimental/compiler.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp index f7137fb..3f8dd29 100644 --- a/experimental/compiler.lisp +++ b/experimental/compiler.lisp @@ -437,7 +437,7 @@ ;;;; translators. This function ss intended to do the initial ;;;; conversion as well as insert new IR code during optimizations. ;;;; -;;;; The function `ir-complete' will coalesce basic blocks in a +;;;; The function `ir-normalize' will coalesce basic blocks in a ;;;; component to generate proper maximal basic blocks. ;;; A alist of IR translator functions. @@ -587,7 +587,7 @@ (return-lvar (make-lvar))) (with-component-compilation (name) (ir-convert `(progn ,@body) return-lvar) - (ir-complete) + (ir-normalize) (setq component *component*)) (let ((functional (make-functional @@ -699,7 +699,7 @@ (setf (block-pred next) (substitute block succ (block-pred next)))) t)))) -(defun ir-complete (&optional (component *component*)) +(defun ir-normalize (&optional (component *component*)) (do-blocks-backward (block component) (maybe-coalesce-block block) (when (empty-block-p block) @@ -770,11 +770,11 @@ ;;; Translate FORM into IR and print a textual repreresentation of the ;;; component. -(defun convert-toplevel-and-print (form &optional (complete t)) +(defun convert-toplevel-and-print (form &optional (normalize t)) (let ((*counter-alist* nil)) (with-component-compilation ('toplevel) (ir-convert form (make-lvar :id "out")) - (when complete (ir-complete)) + (when normalize (ir-normalize)) (check-ir-consistency) (print-component *component*)))) -- 1.7.10.4