From 17ecb1c728edebd00a787fd6c4bdf8b7722e9a2f Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 16 Sep 2019 22:18:19 +0200 Subject: [PATCH] give back basic block a C like name --- lisp/emacs-lisp/comp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index c7d9ab37958..e15a29e779d 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -590,7 +590,7 @@ If NEGATED non nil negate the tested condition." (defun comp-new-block-sym () "Return a symbol naming the next new basic block." - (intern (format "bb-%s" (hash-table-count (comp-func-blocks comp-func))))) + (intern (format "bb_%s" (hash-table-count (comp-func-blocks comp-func))))) (defun comp-lap-to-limple-bb (n) "Given the LAP label N return the limple basic block." @@ -971,7 +971,7 @@ This will be called at runtime." (comp-emit-narg-prologue args-min nonrest) (cl-incf (comp-sp) (1+ nonrest)))) ;; Body - (comp-emit-block 'bb-1) + (comp-emit-block 'bb_1) (mapc #'comp-limplify-lap-inst (comp-func-lap func)) (comp-limplify-finalize-function func))) @@ -1071,7 +1071,7 @@ Top level forms for the current context are rendered too." (when-let ((blocks (comp-func-blocks comp-func)) (entry (gethash 'entry blocks)) ;; No point to go on if the only bb is 'entry'. - (bb1 (gethash 'bb-1 blocks))) + (bb1 (gethash 'bb_1 blocks))) (cl-loop with rev-bb-list = (comp-collect-rev-post-order entry) with changed = t while changed -- 2.39.5