Mercurial > emacs
comparison src/lread.c @ 11699:eb4b842ee557
(read1): Handle long EMACS_INT in atol.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 05 May 1995 02:56:20 +0000 |
| parents | 355d0b23a080 |
| children | f2f0f3b55a7e |
comparison
equal
deleted
inserted
replaced
| 11698:36204fbb45d0 | 11699:eb4b842ee557 |
|---|---|
| 1440 { | 1440 { |
| 1441 #ifdef LISP_FLOAT_TYPE | 1441 #ifdef LISP_FLOAT_TYPE |
| 1442 if (p1[-1] == '.') | 1442 if (p1[-1] == '.') |
| 1443 p1[-1] = '\0'; | 1443 p1[-1] = '\0'; |
| 1444 #endif | 1444 #endif |
| 1445 XSETINT (val, atoi (read_buffer)); | 1445 if (sizeof (int) == sizeof (EMACS_INT)) |
| 1446 XSETINT (val, atoi (read_buffer)); | |
| 1447 else if (sizeof (long) == sizeof (EMACS_INT)) | |
| 1448 XSETINT (val, atol (read_buffer)); | |
| 1449 else | |
| 1450 abort (); | |
| 1446 return val; | 1451 return val; |
| 1447 } | 1452 } |
| 1448 } | 1453 } |
| 1449 #ifdef LISP_FLOAT_TYPE | 1454 #ifdef LISP_FLOAT_TYPE |
| 1450 if (isfloat_string (read_buffer)) | 1455 if (isfloat_string (read_buffer)) |