:type 'hook)
(defcustom comp-async-env-modifier-form nil
- "Form evaluated before compilation by each asyncronous compilation worker.
+ "Form evaluated before compilation by each asynchronous compilation worker.
Usable to modify the compiler environment."
:type 'list)
:documentation "Standard data relocated in use by functions.")
(d-impure (make-comp-data-container) :type comp-data-container
:documentation "Relocated data that cannot be moved into pure space.
-This is tipically for top-level forms other than defun.")
+This is typically for top-level forms other than defun.")
(d-ephemeral (make-comp-data-container) :type comp-data-container
:documentation "Relocated data not necessary after load.")
(with-late-load nil :type boolean
:documentation "List of instructions.")
(closed nil :type boolean
:documentation "t if closed.")
- ;; All the followings are for SSA and CGF analysis.
+ ;; All the following are for SSA and CGF analysis.
;; Keep in sync with `comp-clean-ssa'!!
(in-edges () :type list
:documentation "List of incoming edges.")
(blocks (make-hash-table) :type hash-table
:documentation "Basic block name -> basic block.")
(lap-block (make-hash-table :test #'equal) :type hash-table
- :documentation "LAP lable -> LIMPLE basic block name.")
+ :documentation "LAP label -> LIMPLE basic block name.")
(edges-h (make-hash-table) :type hash-table
:documentation "Hash edge-num -> edge connecting basic two blocks.")
(block-cnt-gen (funcall #'comp-gen-counter) :type function
comp-curr-allocation-class))))
\f
-;;; Log rountines.
+;;; Log routines.
(defconst comp-limple-lock-keywords
`((,(rx bol "(comment" (1+ not-newline)) . font-lock-comment-face)
Add PREFIX in front of it. If FIRST is not nil, pick the first
available name ignoring compilation context and potential name
clashes."
- ;; Unfortunatelly not all symbol names are valid as C function names...
+ ;; Unfortunately not all symbol names are valid as C function names...
;; Nassi's algorithm here:
(let* ((orig-name (if (symbolp name) (symbol-name name) name))
(crypted (cl-loop with str = (make-string (* 2 (length orig-name)) 0)
(defun comp-cond-rw (_)
"Rewrite conditional branches adding appropriate 'assume' insns.
This is introducing and placing 'assume' insns in use by fwprop
-to propagate conditional branch test informations on target basic
+to propagate conditional branch test information on target basic
blocks."
(maphash (lambda (_ f)
(when (and (>= (comp-func-speed f) 1)
f))))
(defun comp-pure-infer-func (f)
- "If all funtions called by F are pure then F is pure too."
+ "If all functions called by F are pure then F is pure too."
(when (and (cl-every (lambda (x)
(or (comp-function-pure-p x)
(eq x (comp-func-name f))))
mvar))
(defun comp-clean-ssa (f)
- "Clean-up SSA for funtion F."
+ "Clean-up SSA for function F."
(setf (comp-func-edges-h f) (make-hash-table))
(cl-loop
for b being each hash-value of (comp-func-blocks f)
do (finalize-phi args b)))))
(defun comp-ssa ()
- "Port all functions into mininal SSA form."
+ "Port all functions into minimal SSA form."
(maphash (lambda (_ f)
(let* ((comp-func f)
(ssa-status (comp-func-ssa-status f)))
x)
\f
-;; Primitive funciton advice machinery
+;; Primitive function advice machinery
(defun comp-trampoline-filename (subr-name)
"Given SUBR-NAME return the filename containing the trampoline."
;;;###autoload
(defun native-compile (function-or-file &optional output)
"Compile FUNCTION-OR-FILE into native code.
-This is the syncronous entry-point for the Emacs Lisp native
+This is the synchronous entry-point for the Emacs Lisp native
compiler.
FUNCTION-OR-FILE is a function symbol, a form or the filename of
an Emacs Lisp source file.
emit_comment ("XFIXNUM");
gcc_jit_rvalue *i = emit_coerce (comp.emacs_uint_type, emit_XLI (obj));
- /* FIXME: Implementation dependent (both RSHIFT are arithmetics). */
+ /* FIXME: Implementation dependent (both RSHIFT are arithmetic). */
if (!USE_LSB_TAG)
{
/* 9 translates into checking for GC or quit every 512 calls to
'maybe_gc_quit'. This is the smallest value I could find with
no performance impact running elisp-banechmarks and the same
- used by the byte intepreter (see 'exec_byte_code'). */
+ used by the byte interpreter (see 'exec_byte_code'). */
maybe_do_it_block,
pass_block);
included in the hashing algorithm.
As at any point in time no more then one file can exist with the
- same filename, should be possibile to clean up all
+ same filename, should be possible to clean up all
filename-path_hash-* except the most recent one (or the new one
being recompiled).
loaded the compiler and its dependencies. */
static Lisp_Object delayed_sources;
-/* Queue an asyncronous compilation for the source file defining
+/* Queue an asynchronous compilation for the source file defining
FUNCTION_NAME and perform a late load.
NOTE: ideally would be nice to move its call simply into Fload but
}
/* This is to have deferred compilaiton able to compile comp
- dependecies breaking circularity. */
+ dependencies breaking circularity. */
if (!NILP (Ffeaturep (Qcomp, Qnil)))
{
/* Comp already loaded. */
`invocation-directory'.
The last directory of this list is assumed to be the system one. */);
- /* Temporary value in use for boostrap. We can't do better as
+ /* Temporary value in use for bootstrap. We can't do better as
`invocation-directory' is still unset, will be fixed up during
dump reload. */
Vcomp_eln_load_path = Fcons (build_string ("../native-lisp/"), Qnil);
projects / emacs.git / commitdiff