diff options
| author | Andrea Corallo | 2020-05-06 20:11:59 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2020-05-06 20:11:59 +0100 |
| commit | 92cf4bb8cc3da81f4877a734b9e9089ac4b89e85 (patch) | |
| tree | 4e301ead55e89ad965205abf8cee0d136ff543ed /src | |
| parent | f8df3320b1ceffca8d5ee7cbc566ba3cdf761e21 (diff) | |
| parent | 02f5a419fdcfb3fb6c8a3e4debe7224010b40227 (diff) | |
| download | emacs-92cf4bb8cc3da81f4877a734b9e9089ac4b89e85.tar.gz emacs-92cf4bb8cc3da81f4877a734b9e9089ac4b89e85.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'src')
| -rw-r--r-- | src/bignum.h | 3 | ||||
| -rw-r--r-- | src/conf_post.h | 9 | ||||
| -rw-r--r-- | src/data.c | 20 | ||||
| -rw-r--r-- | src/editfns.c | 2 | ||||
| -rw-r--r-- | src/emacs-module.c | 2 |
5 files changed, 25 insertions, 11 deletions
diff --git a/src/bignum.h b/src/bignum.h index ad9021f15fd..4a906c3c0eb 100644 --- a/src/bignum.h +++ b/src/bignum.h | |||
| @@ -108,7 +108,8 @@ bignum_integer (mpz_t *tmp, Lisp_Object i) | |||
| 108 | if (FIXNUMP (i)) | 108 | if (FIXNUMP (i)) |
| 109 | { | 109 | { |
| 110 | mpz_set_intmax (*tmp, XFIXNUM (i)); | 110 | mpz_set_intmax (*tmp, XFIXNUM (i)); |
| 111 | return tmp; | 111 | /* The unnecessary cast pacifies a buggy GCC 4.8.5. */ |
| 112 | return (mpz_t const *) tmp; | ||
| 112 | } | 113 | } |
| 113 | return xbignum_val (i); | 114 | return xbignum_val (i); |
| 114 | } | 115 | } |
diff --git a/src/conf_post.h b/src/conf_post.h index 953b783ebea..1ef4ff33428 100644 --- a/src/conf_post.h +++ b/src/conf_post.h | |||
| @@ -77,6 +77,7 @@ typedef bool bool_bf; | |||
| 77 | # define HAS_ATTRIBUTE(a) HAS_ATTR_##a | 77 | # define HAS_ATTRIBUTE(a) HAS_ATTR_##a |
| 78 | # define HAS_ATTR_cleanup GNUC_PREREQ (3, 4, 0) | 78 | # define HAS_ATTR_cleanup GNUC_PREREQ (3, 4, 0) |
| 79 | # define HAS_ATTR_no_address_safety_analysis false | 79 | # define HAS_ATTR_no_address_safety_analysis false |
| 80 | # define HAS_ATTR_no_sanitize false | ||
| 80 | # define HAS_ATTR_no_sanitize_address GNUC_PREREQ (4, 8, 0) | 81 | # define HAS_ATTR_no_sanitize_address GNUC_PREREQ (4, 8, 0) |
| 81 | # define HAS_ATTR_no_sanitize_undefined GNUC_PREREQ (4, 9, 0) | 82 | # define HAS_ATTR_no_sanitize_undefined GNUC_PREREQ (4, 9, 0) |
| 82 | #endif | 83 | #endif |
| @@ -294,10 +295,10 @@ extern int emacs_setenv_TZ (char const *); | |||
| 294 | /* Attribute of functions whose code should not have addresses | 295 | /* Attribute of functions whose code should not have addresses |
| 295 | sanitized. */ | 296 | sanitized. */ |
| 296 | 297 | ||
| 297 | #if __has_attribute (no_sanitize_address) | 298 | #if HAS_ATTRIBUTE (no_sanitize_address) |
| 298 | # define ATTRIBUTE_NO_SANITIZE_ADDRESS \ | 299 | # define ATTRIBUTE_NO_SANITIZE_ADDRESS \ |
| 299 | __attribute__ ((no_sanitize_address)) ADDRESS_SANITIZER_WORKAROUND | 300 | __attribute__ ((no_sanitize_address)) ADDRESS_SANITIZER_WORKAROUND |
| 300 | #elif __has_attribute (no_address_safety_analysis) | 301 | #elif HAS_ATTRIBUTE (no_address_safety_analysis) |
| 301 | # define ATTRIBUTE_NO_SANITIZE_ADDRESS \ | 302 | # define ATTRIBUTE_NO_SANITIZE_ADDRESS \ |
| 302 | __attribute__ ((no_address_safety_analysis)) ADDRESS_SANITIZER_WORKAROUND | 303 | __attribute__ ((no_address_safety_analysis)) ADDRESS_SANITIZER_WORKAROUND |
| 303 | #else | 304 | #else |
| @@ -306,9 +307,9 @@ extern int emacs_setenv_TZ (char const *); | |||
| 306 | 307 | ||
| 307 | /* Attribute of functions whose undefined behavior should not be sanitized. */ | 308 | /* Attribute of functions whose undefined behavior should not be sanitized. */ |
| 308 | 309 | ||
| 309 | #if __has_attribute (no_sanitize_undefined) | 310 | #if HAS_ATTRIBUTE (no_sanitize_undefined) |
| 310 | # define ATTRIBUTE_NO_SANITIZE_UNDEFINED __attribute__ ((no_sanitize_undefined)) | 311 | # define ATTRIBUTE_NO_SANITIZE_UNDEFINED __attribute__ ((no_sanitize_undefined)) |
| 311 | #elif __has_attribute (no_sanitize) | 312 | #elif HAS_ATTRIBUTE (no_sanitize) |
| 312 | # define ATTRIBUTE_NO_SANITIZE_UNDEFINED \ | 313 | # define ATTRIBUTE_NO_SANITIZE_UNDEFINED \ |
| 313 | __attribute__ ((no_sanitize ("undefined"))) | 314 | __attribute__ ((no_sanitize ("undefined"))) |
| 314 | #else | 315 | #else |
diff --git a/src/data.c b/src/data.c index 56ea7aabb04..3088487c60c 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -697,8 +697,14 @@ DEFUN ("fboundp", Ffboundp, Sfboundp, 1, 1, 0, | |||
| 697 | } | 697 | } |
| 698 | 698 | ||
| 699 | DEFUN ("makunbound", Fmakunbound, Smakunbound, 1, 1, 0, | 699 | DEFUN ("makunbound", Fmakunbound, Smakunbound, 1, 1, 0, |
| 700 | doc: /* Make SYMBOL's value be void. | 700 | doc: /* Empty out the value cell of SYMBOL, making it void as a variable. |
| 701 | Return SYMBOL. */) | 701 | Return SYMBOL. |
| 702 | |||
| 703 | If a variable is void, trying to evaluate the variable signals a | ||
| 704 | `void-variable' error, instead of returning a value. For more | ||
| 705 | details, see Info node `(elisp) Void Variables'. | ||
| 706 | |||
| 707 | See also `fmakunbound'. */) | ||
| 702 | (register Lisp_Object symbol) | 708 | (register Lisp_Object symbol) |
| 703 | { | 709 | { |
| 704 | CHECK_SYMBOL (symbol); | 710 | CHECK_SYMBOL (symbol); |
| @@ -709,8 +715,14 @@ Return SYMBOL. */) | |||
| 709 | } | 715 | } |
| 710 | 716 | ||
| 711 | DEFUN ("fmakunbound", Ffmakunbound, Sfmakunbound, 1, 1, 0, | 717 | DEFUN ("fmakunbound", Ffmakunbound, Sfmakunbound, 1, 1, 0, |
| 712 | doc: /* Make SYMBOL's function definition be nil. | 718 | doc: /* Make SYMBOL's function definition be void. |
| 713 | Return SYMBOL. */) | 719 | Return SYMBOL. |
| 720 | |||
| 721 | If a function definition is void, trying to call a function by that | ||
| 722 | name will cause a `void-function' error. For more details, see Info | ||
| 723 | node `(elisp) Function Cells'. | ||
| 724 | |||
| 725 | See also `makunbound'. */) | ||
| 714 | (register Lisp_Object symbol) | 726 | (register Lisp_Object symbol) |
| 715 | { | 727 | { |
| 716 | CHECK_SYMBOL (symbol); | 728 | CHECK_SYMBOL (symbol); |
diff --git a/src/editfns.c b/src/editfns.c index c32488e271f..763d95bb8fa 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -3019,7 +3019,7 @@ printed representation. The padding, if any, normally goes on the | |||
| 3019 | left, but it goes on the right if the - flag is present. The padding | 3019 | left, but it goes on the right if the - flag is present. The padding |
| 3020 | character is normally a space, but it is 0 if the 0 flag is present. | 3020 | character is normally a space, but it is 0 if the 0 flag is present. |
| 3021 | The 0 flag is ignored if the - flag is present, or the format sequence | 3021 | The 0 flag is ignored if the - flag is present, or the format sequence |
| 3022 | is something other than %d, %e, %f, and %g. | 3022 | is something other than %d, %o, %x, %e, %f, and %g. |
| 3023 | 3023 | ||
| 3024 | For %e and %f sequences, the number after the "." in the precision | 3024 | For %e and %f sequences, the number after the "." in the precision |
| 3025 | specifier says how many decimal places to show; if zero, the decimal | 3025 | specifier says how many decimal places to show; if zero, the decimal |
diff --git a/src/emacs-module.c b/src/emacs-module.c index e43e4907d2e..3d1827c7dad 100644 --- a/src/emacs-module.c +++ b/src/emacs-module.c | |||
| @@ -248,7 +248,7 @@ module_decode_utf_8 (const char *str, ptrdiff_t len) | |||
| 248 | of `internal_condition_case' etc., and to avoid worrying about | 248 | of `internal_condition_case' etc., and to avoid worrying about |
| 249 | passing information to the handler functions. */ | 249 | passing information to the handler functions. */ |
| 250 | 250 | ||
| 251 | #if !__has_attribute (cleanup) | 251 | #if !HAS_ATTRIBUTE (cleanup) |
| 252 | #error "__attribute__ ((cleanup)) not supported by this compiler; try GCC" | 252 | #error "__attribute__ ((cleanup)) not supported by this compiler; try GCC" |
| 253 | #endif | 253 | #endif |
| 254 | 254 | ||