aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorStefan Kangas2020-11-20 20:34:32 +0100
committerStefan Kangas2020-11-20 20:35:44 +0100
commitcf436db285bd27dae35fecfa9038c9ce48953853 (patch)
treecc601af265b28a0f66d9d3257097a844cb9e68a6 /src
parenta55415af7ea8ddc09dfda32ccb866c6556bb71c1 (diff)
downloademacs-cf436db285bd27dae35fecfa9038c9ce48953853.tar.gz
emacs-cf436db285bd27dae35fecfa9038c9ce48953853.zip
; Fix trivial typos
Diffstat (limited to 'src')
-rw-r--r--src/comp.c12
-rw-r--r--src/comp.h2
-rw-r--r--src/pdumper.c2
3 files changed, 8 insertions, 8 deletions
diff --git a/src/comp.c b/src/comp.c
index 292f0e7e707..6ddfad528b4 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1517,7 +1517,7 @@ emit_XFIXNUM (gcc_jit_rvalue *obj)
1517 emit_comment ("XFIXNUM"); 1517 emit_comment ("XFIXNUM");
1518 gcc_jit_rvalue *i = emit_coerce (comp.emacs_uint_type, emit_XLI (obj)); 1518 gcc_jit_rvalue *i = emit_coerce (comp.emacs_uint_type, emit_XLI (obj));
1519 1519
1520 /* FIXME: Implementation dependent (both RSHIFT are arithmetics). */ 1520 /* FIXME: Implementation dependent (both RSHIFT are arithmetic). */
1521 1521
1522 if (!USE_LSB_TAG) 1522 if (!USE_LSB_TAG)
1523 { 1523 {
@@ -3780,7 +3780,7 @@ define_maybe_gc_or_quit (void)
3780 /* 9 translates into checking for GC or quit every 512 calls to 3780 /* 9 translates into checking for GC or quit every 512 calls to
3781 'maybe_gc_quit'. This is the smallest value I could find with 3781 'maybe_gc_quit'. This is the smallest value I could find with
3782 no performance impact running elisp-banechmarks and the same 3782 no performance impact running elisp-banechmarks and the same
3783 used by the byte intepreter (see 'exec_byte_code'). */ 3783 used by the byte interpreter (see 'exec_byte_code'). */
3784 maybe_do_it_block, 3784 maybe_do_it_block,
3785 pass_block); 3785 pass_block);
3786 3786
@@ -4067,7 +4067,7 @@ If BASE-DIR is nil use the first entry in `comp-eln-load-path'. */)
4067 included in the hashing algorithm. 4067 included in the hashing algorithm.
4068 4068
4069 As at any point in time no more then one file can exist with the 4069 As at any point in time no more then one file can exist with the
4070 same filename, should be possibile to clean up all 4070 same filename, should be possible to clean up all
4071 filename-path_hash-* except the most recent one (or the new one 4071 filename-path_hash-* except the most recent one (or the new one
4072 being recompiled). 4072 being recompiled).
4073 4073
@@ -4617,7 +4617,7 @@ register_native_comp_unit (Lisp_Object comp_u)
4617 loaded the compiler and its dependencies. */ 4617 loaded the compiler and its dependencies. */
4618static Lisp_Object delayed_sources; 4618static Lisp_Object delayed_sources;
4619 4619
4620/* Queue an asyncronous compilation for the source file defining 4620/* Queue an asynchronous compilation for the source file defining
4621 FUNCTION_NAME and perform a late load. 4621 FUNCTION_NAME and perform a late load.
4622 4622
4623 NOTE: ideally would be nice to move its call simply into Fload but 4623 NOTE: ideally would be nice to move its call simply into Fload but
@@ -4671,7 +4671,7 @@ maybe_defer_native_compilation (Lisp_Object function_name,
4671 } 4671 }
4672 4672
4673 /* This is to have deferred compilaiton able to compile comp 4673 /* This is to have deferred compilaiton able to compile comp
4674 dependecies breaking circularity. */ 4674 dependencies breaking circularity. */
4675 if (!NILP (Ffeaturep (Qcomp, Qnil))) 4675 if (!NILP (Ffeaturep (Qcomp, Qnil)))
4676 { 4676 {
4677 /* Comp already loaded. */ 4677 /* Comp already loaded. */
@@ -5297,7 +5297,7 @@ If a directory is non absolute is assumed to be relative to
5297`invocation-directory'. 5297`invocation-directory'.
5298The last directory of this list is assumed to be the system one. */); 5298The last directory of this list is assumed to be the system one. */);
5299 5299
5300 /* Temporary value in use for boostrap. We can't do better as 5300 /* Temporary value in use for bootstrap. We can't do better as
5301 `invocation-directory' is still unset, will be fixed up during 5301 `invocation-directory' is still unset, will be fixed up during
5302 dump reload. */ 5302 dump reload. */
5303 Vcomp_eln_load_path = Fcons (build_string ("../native-lisp/"), Qnil); 5303 Vcomp_eln_load_path = Fcons (build_string ("../native-lisp/"), Qnil);
diff --git a/src/comp.h b/src/comp.h
index 077250ea869..f7d17f398c7 100644
--- a/src/comp.h
+++ b/src/comp.h
@@ -42,7 +42,7 @@ struct Lisp_Native_Comp_Unit
42 Lisp_Object lambda_gc_guard_h; 42 Lisp_Object lambda_gc_guard_h;
43 /* Hash c_name -> d_reloc_imp index. */ 43 /* Hash c_name -> d_reloc_imp index. */
44 Lisp_Object lambda_c_name_idx_h; 44 Lisp_Object lambda_c_name_idx_h;
45 /* Hash doc-idx -> function documentaiton. */ 45 /* Hash doc-idx -> function documentation. */
46 Lisp_Object data_fdoc_v; 46 Lisp_Object data_fdoc_v;
47 /* Analogous to the constant vector but per compilation unit. */ 47 /* Analogous to the constant vector but per compilation unit. */
48 Lisp_Object data_vec; 48 Lisp_Object data_vec;
diff --git a/src/pdumper.c b/src/pdumper.c
index c253fc53c47..e0f8f5577ed 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -326,7 +326,7 @@ dump_fingerprint (char const *label,
326/* To be used if some order in the relocation process has to be enforced. */ 326/* To be used if some order in the relocation process has to be enforced. */
327enum reloc_phase 327enum reloc_phase
328 { 328 {
329 /* First to run. Place here every relocation with no dependecy. */ 329 /* First to run. Place every relocation with no dependency here. */
330 EARLY_RELOCS, 330 EARLY_RELOCS,
331 /* Late and very late relocs are relocated at the very last after 331 /* Late and very late relocs are relocated at the very last after
332 all hooks has been run. All lisp machinery is at disposal 332 all hooks has been run. All lisp machinery is at disposal