[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/websocket 65b3e1c 12/16: Port websocket to bleeding-edg
From: |
Stefan Monnier |
Subject: |
[elpa] externals/websocket 65b3e1c 12/16: Port websocket to bleeding-edge 32-bit Emacs |
Date: |
Fri, 27 Nov 2020 17:47:20 -0500 (EST) |
branch: externals/websocket
commit 65b3e1c611849f86fae36bb2efc15b0ec63e594c
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
Port websocket to bleeding-edge 32-bit Emacs
Problem reported by Stefan Monnier (Bug#31118).
* packages/websocket/websocket.el (websocket-to-bytes):
Do not assume that #xffffffff is a valid fixnum.
---
websocket.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/websocket.el b/websocket.el
index 39a31c3..0533fb3 100644
--- a/websocket.el
+++ b/websocket.el
@@ -234,12 +234,9 @@ approximately 537M long."
val nbytes))
(if (= nbytes 8)
(progn
- (let ((hi-32bits (lsh val -32))
- ;; Test for systems that don't have > 32 bits, and
- ;; for those systems just return the value.
- (low-32bits (if (= 0 (expt 2 32))
- val
- (logand #xffffffff val))))
+ (let* ((hi-32bits (lsh val -32))
+ ;; This is just VAL on systems that don't have >= 32 bits.
+ (low-32bits (- val (lsh hi-32bits 32))))
(when (or (> hi-32bits 0) (> (lsh low-32bits -29) 0))
(signal 'websocket-frame-too-large val))
(bindat-pack `((:val vec 2 u32))
- [elpa] externals/websocket cd7a044 04/16: Version 1.4, fix for ping/pong & 32-bit emacs., (continued)
- [elpa] externals/websocket cd7a044 04/16: Version 1.4, fix for ping/pong & 32-bit emacs., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket a5a25d4 08/16: * websocket/websocket.el (websocket-server-accept): Mark arg as unused, Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 45d421d 09/16: Fix some quoting problems in doc strings, Stefan Monnier, 2020/11/27
- [elpa] externals/websocket e008e03 02/16: websocket.el: Set version to 1.2, after last set of server fixes., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 2aad0b2 03/16: Upgrade to version 1.3., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 50d62ac 05/16: Add ability to handle cookies., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 6872e74 06/16: Fix maintainer address, Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 6fa9830 07/16: Version 1.6, mostly fixes for fragmented headers., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 3b21915 10/16: Update to emacs-websocket version 1.8., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket ba4334b 11/16: Remove use of string-make-unibyte and other cleanups., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 65b3e1c 12/16: Port websocket to bleeding-edge 32-bit Emacs,
Stefan Monnier <=
- [elpa] externals/websocket bc57ded 15/16: Upgrade websocket library to version 1.11.1., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket 8d540d4 13/16: websocket: Version 1.9, custom header support., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket c4d8d58 14/16: Fix confusing documentation string in websocket library., Stefan Monnier, 2020/11/27
- [elpa] externals/websocket f11d03a 16/16: Allow websocket accept header variants., Stefan Monnier, 2020/11/27