diff options
| author | Karl Heuer | 1995-05-23 00:13:19 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-23 00:13:19 +0000 |
| commit | b42cfa11948d4a5e942d94e9df1e3f385da1e0e7 (patch) | |
| tree | bc7f7e36c08ac55586ce7d0d821740be9e5bb915 /src/data.c | |
| parent | b50536bb94f7c795863217c98ee2203a3f940564 (diff) | |
| download | emacs-b42cfa11948d4a5e942d94e9df1e3f385da1e0e7.tar.gz emacs-b42cfa11948d4a5e942d94e9df1e3f385da1e0e7.zip | |
(long_to_cons): Don't assume 32-bit longs.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index 9c7b4a62efb..0f23c1c6be0 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1615,7 +1615,7 @@ DEFUN ("zerop", Fzerop, Szerop, 1, 1, 0, "T if NUMBER is zero.") | |||
| 1615 | return Qnil; | 1615 | return Qnil; |
| 1616 | } | 1616 | } |
| 1617 | 1617 | ||
| 1618 | /* Convert between 32-bit values and pairs of lispy 24-bit values. */ | 1618 | /* Convert between full-sized long integers and pairs of lispy integers. */ |
| 1619 | 1619 | ||
| 1620 | Lisp_Object | 1620 | Lisp_Object |
| 1621 | long_to_cons (i) | 1621 | long_to_cons (i) |
| @@ -1625,7 +1625,7 @@ long_to_cons (i) | |||
| 1625 | unsigned int bot = i & 0xFFFF; | 1625 | unsigned int bot = i & 0xFFFF; |
| 1626 | if (top == 0) | 1626 | if (top == 0) |
| 1627 | return make_number (bot); | 1627 | return make_number (bot); |
| 1628 | if (top == 0xFFFF) | 1628 | if (top == (unsigned long)-1 >> 16) |
| 1629 | return Fcons (make_number (-1), make_number (bot)); | 1629 | return Fcons (make_number (-1), make_number (bot)); |
| 1630 | return Fcons (make_number (top), make_number (bot)); | 1630 | return Fcons (make_number (top), make_number (bot)); |
| 1631 | } | 1631 | } |