branch: externals/xelb
commit c6b1b5fa34175b92971e7e5e2241a7ca48838e17
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
Sync with upstream protocol
; Add explicit paddings.
---
xcb-sync.el | 3 ++-
xcb-xprint.el | 6 ++++--
xcb-xproto.el | 3 ++-
xcb-xselinux.el | 3 ++-
xcb-xv.el | 6 ++++--
5 files changed, 14 insertions(+), 7 deletions(-)
diff --git a/xcb-sync.el b/xcb-sync.el
index 467097f..c317319 100644
--- a/xcb-sync.el
+++ b/xcb-sync.el
@@ -72,7 +72,8 @@
(name~ :initform
'(name name type xcb:char size
(xcb:-fieldref 'name-len))
- :type xcb:-list)))
+ :type xcb:-list)
+ (pad~0 :initform 4 :type xcb:-pad-align)))
(defclass xcb:sync:TRIGGER
(xcb:-struct)
diff --git a/xcb-xprint.el b/xcb-xprint.el
index edc12dc..abf6574 100644
--- a/xcb-xprint.el
+++ b/xcb-xprint.el
@@ -49,7 +49,8 @@
(description~ :initform
'(name description type xcb:xprint:STRING8 size
(xcb:-fieldref 'descLen))
- :type xcb:-list)))
+ :type xcb:-list)
+ (pad~1 :initform 4 :type xcb:-pad-align)))
(xcb:deftypealias 'xcb:xprint:PCONTEXT 'xcb:-u4)
@@ -245,7 +246,8 @@
(context :initarg :context :type xcb:xprint:PCONTEXT)))
(defclass xcb:xprint:PrintInputSelected~reply
(xcb:-reply)
- ((event-mask :initarg :event-mask :type xcb:CARD32)
+ ((pad~0 :initform 1 :type xcb:-pad)
+ (event-mask :initarg :event-mask :type xcb:CARD32)
(all-events-mask :initarg :all-events-mask :type xcb:CARD32)))
(defclass xcb:xprint:PrintGetAttributes
diff --git a/xcb-xproto.el b/xcb-xproto.el
index 957b6d9..a0438e3 100644
--- a/xcb-xproto.el
+++ b/xcb-xproto.el
@@ -2680,7 +2680,8 @@
(address~ :initform
'(name address type xcb:BYTE size
(xcb:-fieldref 'address-len))
- :type xcb:-list)))
+ :type xcb:-list)
+ (pad~1 :initform 4 :type xcb:-pad-align)))
(defclass xcb:ListHosts
(xcb:-request)
diff --git a/xcb-xselinux.el b/xcb-xselinux.el
index 3eb9f1e..58b6799 100644
--- a/xcb-xselinux.el
+++ b/xcb-xselinux.el
@@ -148,7 +148,8 @@
(data-context~ :initform
'(name data-context type xcb:char size
(xcb:-fieldref 'data-context-len))
- :type xcb:-list)))
+ :type xcb:-list)
+ (pad~1 :initform 4 :type xcb:-pad-align)))
(defclass xcb:xselinux:SetPropertyCreateContext
(xcb:-request)
diff --git a/xcb-xv.el b/xcb-xv.el
index 8adc411..7de5b0a 100644
--- a/xcb-xv.el
+++ b/xcb-xv.el
@@ -113,7 +113,8 @@
(name~ :initform
'(name name type xcb:char size
(xcb:-fieldref 'name-size))
- :type xcb:-list)))
+ :type xcb:-list)
+ (pad~1 :initform 4 :type xcb:-pad-align)))
(defclass xcb:xv:Image
(xcb:-struct)
@@ -150,7 +151,8 @@
(name~ :initform
'(name name type xcb:char size
(xcb:-fieldref 'size))
- :type xcb:-list)))
+ :type xcb:-list)
+ (pad~0 :initform 4 :type xcb:-pad-align)))
(defclass xcb:xv:ImageFormatInfo
(xcb:-struct)
