diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp.h b/src/lisp.h index 95892c1507b..d747093ddef 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -316,7 +316,7 @@ you lose | |||
| 316 | /* For integers known to be positive, XFASTINT provides fast retrieval | 316 | /* For integers known to be positive, XFASTINT provides fast retrieval |
| 317 | and XSETFASTINT provides fast storage. This takes advantage of the | 317 | and XSETFASTINT provides fast storage. This takes advantage of the |
| 318 | fact that Lisp_Int is 0. */ | 318 | fact that Lisp_Int is 0. */ |
| 319 | #define XFASTINT(a) (a) | 319 | #define XFASTINT(a) ((a) + 0) |
| 320 | #define XSETFASTINT(a, b) ((a) = (b)) | 320 | #define XSETFASTINT(a, b) ((a) = (b)) |
| 321 | 321 | ||
| 322 | /* Extract the value of a Lisp_Object as a signed integer. */ | 322 | /* Extract the value of a Lisp_Object as a signed integer. */ |
| @@ -400,7 +400,7 @@ extern int pure_size; | |||
| 400 | /* For integers known to be positive, XFASTINT provides fast retrieval | 400 | /* For integers known to be positive, XFASTINT provides fast retrieval |
| 401 | and XSETFASTINT provides fast storage. This takes advantage of the | 401 | and XSETFASTINT provides fast storage. This takes advantage of the |
| 402 | fact that Lisp_Int is 0. */ | 402 | fact that Lisp_Int is 0. */ |
| 403 | #define XFASTINT(a) ((a).i) | 403 | #define XFASTINT(a) ((a).i + 0) |
| 404 | #define XSETFASTINT(a, b) ((a).i = (b)) | 404 | #define XSETFASTINT(a, b) ((a).i = (b)) |
| 405 | 405 | ||
| 406 | #ifdef EXPLICIT_SIGN_EXTEND | 406 | #ifdef EXPLICIT_SIGN_EXTEND |