From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 18 Feb 2021 16:15:13 +0000 (-0500)
Subject: * lisp/emacs-lisp/bindat.el: Tweak example in comment
X-Git-Tag: emacs-28.0.90~3661
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5977de581cbffb18f1cacb266928329dc807cb22;p=emacs.git

* lisp/emacs-lisp/bindat.el: Tweak example in comment

Suggested by Kim Storm <storm@cua.dk>.
---

diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el
index 1f5022c2743..b1b2144e3de 100644
--- a/lisp/emacs-lisp/bindat.el
+++ b/lisp/emacs-lisp/bindat.el
@@ -41,23 +41,23 @@
 ;;  Consider the following C structures:
 ;;
 ;;  struct header {
-;;	unsigned long	dest_ip;
-;;	unsigned long	src_ip;
-;;	unsigned short	dest_port;
-;;	unsigned short	src_port;
+;;	uint32_t	dest_ip;
+;;	uint32_t	src_ip;
+;;	uint16_t	dest_port;
+;;	uint16_t	src_port;
 ;;  };
 ;;
 ;;  struct data {
-;;	unsigned char	type;
-;;	unsigned char	opcode;
-;;	unsigned long	length;  /* In little endian order */
+;;	uint8_t		type;
+;;	uint8_t		opcode;
+;;	uint32_t	length;  /* In little endian order */
 ;;	unsigned char	id[8];   /* nul-terminated string  */
 ;;	unsigned char	data[/* (length + 3) & ~3 */];
 ;;  };
 ;;
 ;;  struct packet {
 ;;	struct header	header;
-;;	unsigned char	items;
+;;	uint8_t		items;
 ;;	unsigned char   filler[3];
 ;;	struct data	item[/* items */];
 ;;  };
@@ -75,7 +75,7 @@
 ;;    (bindat-spec
 ;;      (type      u8)
 ;;	(opcode	   u8)
-;;	(length	   u16r)  ;; little endian order
+;;	(length	   u32r)  ;; little endian order
 ;;	(id	   strz 8)
 ;;	(data	   vec (length))
 ;;	(align     4)))