:group 'lisp)
(defcustom comp-verbose 0
- "Compiler verbosity. From 0 to 3.
+ "Compiler verbosity. From 0 to 3.
- 0 no logging
- 1 final limple is logged
- 2 LAP and final limple and some pass info are logged
:group 'comp)
(defconst native-compile-log-buffer "*Native-compile-Log*"
- "Name of the native-compiler's log buffer.")
+ "Name of the native-compiler log buffer.")
(defvar comp-native-compiling nil
"This gets bound to t while native compilation.
,@body))))
(defun comp-log (data verbosity)
- "Log DATA."
+ "Log DATA given VERBOSITY."
(when (>= comp-verbose verbosity)
(if noninteractive
(if (atom data)
(handler-bb (comp-bb-maybe-add (comp-label-to-addr label-num)
(1+ (comp-sp))))
(handler-buff-n (comp-func-handler-cnt comp-func)))
-
(comp-emit (list 'push-handler
handler-type
(comp-slot+1)