Description: Correct 64 Architecture implementation of 32 bit data
Author: Chris Donoghue <cdonoghu@gmail.com>
Bug-Debian: http://bugs.debian.org/362068

--- wmctrl-1.07.orig/main.c
+++ wmctrl-1.07/main.c
@@ -1425,6 +1425,16 @@ static gchar *get_property (Display *dis
      *
      * long_length = Specifies the length in 32-bit multiples of the
      *               data to be retrieved.
+     *
+     * NOTE:  see 
+     * http://mail.gnome.org/archives/wm-spec-list/2003-March/msg00067.html
+     * In particular:
+     *
+     * 	When the X window system was ported to 64-bit architectures, a
+     * rather peculiar design decision was made. 32-bit quantities such
+     * as Window IDs, atoms, etc, were kept as longs in the client side
+     * APIs, even when long was changed to 64 bits.
+     *
      */
     if (XGetWindowProperty(disp, win, xa_prop_name, 0, MAX_PROPERTY_VALUE_LEN / 4, False,
             xa_prop_type, &xa_ret_type, &ret_format,     
@@ -1441,6 +1451,8 @@ static gchar *get_property (Display *dis
 
     /* null terminate the result to make string handling easier */
     tmp_size = (ret_format / 8) * ret_nitems;
+    /* Correct 64 Architecture implementation of 32 bit data */
+    if(ret_format==32) tmp_size *= sizeof(long)/4;
     ret = g_malloc(tmp_size + 1);
     memcpy(ret, ret_prop, tmp_size);
     ret[tmp_size] = '\0';
ommit/gnu/services/lightdm.scm?id=87aef1a9b8cc794c7d32336f23a99b58c05be5a5'>commit</a><a href='/guix/diff/gnu/services/lightdm.scm?id=87aef1a9b8cc794c7d32336f23a99b58c05be5a5'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/lightdm.scm'>
<input type='hidden' name='id' value='87aef1a9b8cc794c7d32336f23a99b58c05be5a5'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=87aef1a9b8cc794c7d32336f23a99b58c05be5a5'>root</a>/<a href='/guix/log/gnu?id=87aef1a9b8cc794c7d32336f23a99b58c05be5a5'>gnu</a>/<a href='/guix/log/gnu/services?id=87aef1a9b8cc794c7d32336f23a99b58c05be5a5'>services</a>/<a href='/guix/log/gnu/services/lightdm.scm?id=87aef1a9b8cc794c7d32336f23a99b58c05be5a5'>lightdm.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/lightdm.scm?id=87aef1a9b8cc794c7d32336f23a99b58c05be5a5&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-04-28 23:37:24 +0200'>2024-04-28</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=ae36d514aa011dd9635c9a3817dcb6b0e000be27'>services: lightdm: Use ‘make-forkexec-constructor’.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-11 13:21:45 +0200'>2023-05-11</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=2df5d4fd18a2fbcb8066a50e2da8ec64635f5162'>system: pam: Let PAM extensions add shepherd requirements.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2023-02-08 22:40:40 -0500'>2023-02-08</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=8a2c2eaa906bd12d9c804ba18ac305b9719507ef'>services: lightdm: Sync documentation with source.</a><span class='msg-avail'>...</span></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-11-19 19:54:14 +0100'>2022-11-19</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=50c17ddd9e2983d71c125d89b422fd20fca476e1'>services: lightdm: Do not use GOOPS.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-23 17:03:09 -0700'>2022-10-23</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=d3e982dccbd8ec7e00a2ab3efa04bef8f1c16b9e'>gnu: Fix typos.</a><span class='msg-avail'>...</span></td><td>Vagrant Cascadian</td></tr>
<tr><td><span title='2022-08-28 22:28:47 -0400'>2022-08-28</span></td><td><a href='/guix/commit/gnu/services/lightdm.scm?id=0ea62e84a787fe94cfeadf67ef27ea995a382b84'>services: Add lightdm-service-type.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>