diff options
| author | Stefan Kangas | 2020-11-20 20:34:32 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2020-11-20 20:35:44 +0100 |
| commit | cf436db285bd27dae35fecfa9038c9ce48953853 (patch) | |
| tree | cc601af265b28a0f66d9d3257097a844cb9e68a6 /src | |
| parent | a55415af7ea8ddc09dfda32ccb866c6556bb71c1 (diff) | |
| download | emacs-cf436db285bd27dae35fecfa9038c9ce48953853.tar.gz emacs-cf436db285bd27dae35fecfa9038c9ce48953853.zip | |
; Fix trivial typos
Diffstat (limited to 'src')
| -rw-r--r-- | src/comp.c | 12 | ||||
| -rw-r--r-- | src/comp.h | 2 | ||||
| -rw-r--r-- | src/pdumper.c | 2 |
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. */ |
| 4618 | static Lisp_Object delayed_sources; | 4618 | static 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'. |
| 5298 | The last directory of this list is assumed to be the system one. */); | 5298 | The 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. */ |
| 327 | enum reloc_phase | 327 | enum 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 |