procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

basic blocks into C

Browse source
This commit is contained in:
Andrea Corallo 2019-07-08 17:44:19 +02:00 • committed by Andrea Corallo
parent a59ef0747f
commit 3f98a32b7e
2 changed files with 81 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/comp.el
View file

@ -291,6 +291,8 @@ VAL is known at compile time."
(comp-push_block 'body)
(mapc #'comp-limplify-lap-inst (comp-func-ir func))
(setf (comp-func-ir func) (reverse comp-limple))
;; Prologue block must be first
(setf (comp-func-blocks func) (reverse (comp-func-blocks func)))
(when comp-debug
(cl-prettyprint (comp-func-ir func)))
func))