diff options
| author | Karl Heuer | 1994-10-04 17:04:39 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-10-04 17:04:39 +0000 |
| commit | e43ec7859eecaf697476db674075d268c1d7a4f1 (patch) | |
| tree | 8a567bc8611dfda0b4e5fbd9fd643c20cef30746 /src | |
| parent | d4edf04792eddbb648f136d2031d80a95c88c85b (diff) | |
| download | emacs-e43ec7859eecaf697476db674075d268c1d7a4f1.tar.gz emacs-e43ec7859eecaf697476db674075d268c1d7a4f1.zip | |
(XFASTINT): Changed to non-lvalue syntax, to ensure that callers will use
XSETFASTINT instead.
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 |