From 0c4f52066f65aa23312382874a3b1503c13926a5 Mon Sep 17 00:00:00 2001
From: Po Lu <luangruo@yahoo.com>
Date: Sun, 13 Feb 2022 13:26:41 +0800
Subject: [PATCH] Fix integer overflow with 32-bit visual

* src/xfns.c (x_set_border_pixel):
(x_set_border_color): Use `unsigned long' for border color.
---
 src/xfns.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/xfns.c b/src/xfns.c
index 94f215eaf8b..02994e1b94f 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1455,7 +1455,7 @@ x_set_cursor_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
    F has an x-window.  */
 
 static void
-x_set_border_pixel (struct frame *f, int pix)
+x_set_border_pixel (struct frame *f, unsigned long pix)
 {
   unload_color (f, f->output_data.x->border_pixel);
   f->output_data.x->border_pixel = pix;
@@ -1485,7 +1485,7 @@ x_set_border_pixel (struct frame *f, int pix)
 static void
 x_set_border_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 {
-  int pix;
+  unsigned long pix;
 
   CHECK_STRING (arg);
   pix = x_decode_color (f, arg, BLACK_PIX_DEFAULT (f));
-- 
2.39.5