diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2014-01-02 22:47:27 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2014-01-02 22:47:27 -0800 |
| commit | 56a0e35287e6931759c40c581cc715d9cbb78409 (patch) | |
| tree | ff589caa626405dcef2c759c7964ca4165fdb73b /src/lread.c | |
| parent | ed0ca4a51a373fc23037436ccc467a982b9fcae8 (diff) | |
| download | emacs-56a0e35287e6931759c40c581cc715d9cbb78409.tar.gz | |
Port to C89.
* data.c (arithcompare_driver):
* fileio.c (Fcar_less_than_car):
* fns.c (internal_equal):
* frame.c (delete_frame):
* lisp.h (enum More_Lisp_Bits):
* lread.c (read1):
Avoid C99 constructs that don't work in C89.
* data.c (ULL_MAX, count_trailing_zeros_ll): New macros,
to port to C89, which doesn't have 'long long'.
(count_trailing_zero_bits): Use them.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index d8d826e8e1d..dcc883b2445 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2654,9 +2654,10 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list) /* Accept compiled functions at read-time so that we don't have to build them using function calls. */ Lisp_Object tmp; + struct Lisp_Vector *vec; tmp = read_vector (readcharfun, 1); - struct Lisp_Vector* vec = XVECTOR (tmp); - if (vec->header.size==0) + vec = XVECTOR (tmp); + if (vec->header.size == 0) invalid_syntax ("Empty byte-code object"); make_byte_code (vec); return tmp; |