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';
21752'>tree</a><a href='/guix/commit/CODE-OF-CONDUCT?id=627db5611d3309966d41452b495b291d63821752'>commit</a><a href='/guix/diff/CODE-OF-CONDUCT?id=627db5611d3309966d41452b495b291d63821752'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/CODE-OF-CONDUCT'>
<input type='hidden' name='id' value='627db5611d3309966d41452b495b291d63821752'/><input type='hidden' name='showmsg' value='1'/><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=627db5611d3309966d41452b495b291d63821752&amp;showmsg=1'>root</a>/<a href='/guix/log/CODE-OF-CONDUCT?id=627db5611d3309966d41452b495b291d63821752&amp;showmsg=1'>CODE-OF-CONDUCT</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/CODE-OF-CONDUCT?id=627db5611d3309966d41452b495b291d63821752'>Collapse</a>)</th><th class='left'>Author</th></tr>
/td><td><a href='/guix/commit/tests/pack.scm?id=c9cd16c630ccba655b93ff32fd9a99570b4f5373'>store: database: Rename a couple of procedures.</a><span class='msg-avail'>...</span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2024-01-08 21:04:44 +0300'>2024-01-08</span></td><td><a href='/guix/commit/tests/pack.scm?id=0cf75c9b2f23869201144917cea7f6ad49683d3d'>guix: pack: Build layered images.</a><span class='msg-avail'>...</span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2023-12-02 12:25:45 +0100'>2023-12-02</span></td><td><a href='/guix/commit/tests/pack.scm?id=b0715d7cd2a74bc231751f8afc9dffb2047501ac'>gnu: Use ‘libc-utf8-locales-for-target’.</a><span class='msg-avail'>...</span></td><td>Janneke Nieuwenhuizen</td></tr>
<tr><td><span title='2023-10-20 00:33:26 +0200'>2023-10-20</span></td><td><a href='/guix/commit/tests/pack.scm?id=2aa45d03475f7bd27d4ba5bc71b0cb812aa74768'>tests: Avoid three-argument ‘test-assertm’.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-07-18 16:56:06 -0400'>2023-07-18</span></td><td><a href='/guix/commit/tests/pack.scm?id=c75022d65f1fa18b8c4839e50f915e8f4d4fe305'>tests: pack: Fix indentation.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-07-18 16:56:06 -0400'>2023-07-18</span></td><td><a href='/guix/commit/tests/pack.scm?id=d5f8b50365533f2713596f59519c48019f6b1f19'>pack: Move common build code to (guix build pack).</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-03-17 12:14:14 -0400'>2023-03-17</span></td><td><a href='/guix/commit/tests/pack.scm?id=933051281fbed0ae71bd40c24a701faf2a02791c'>Revert "tests: pack: Fix indentation."</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-02-27 15:54:09 +0100'>2023-02-27</span></td><td><a href='/guix/commit/tests/pack.scm?id=fee1d08f0dd183ef78bcb9f1534d7b9e7f1df7ac'>pack: Make sure tests can run without a world rebuild.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-02-19 21:13:23 -0500'>2023-02-19</span></td><td><a href='/guix/commit/tests/pack.scm?id=598f4c509bbfec2b983a8ee246cce0a0fe45ec7f'>pack: Add RPM format.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-02-19 21:13:23 -0500'>2023-02-19</span></td><td><a href='/guix/commit/tests/pack.scm?id=ac1d530d56c1a259630c8873b2281033878a4acb'>tests: pack: Fix indentation.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-10-22 01:46:55 +0200'>2022-10-22</span></td><td><a href='/guix/commit/tests/pack.scm?id=a3619079f95213c4f983e69210ed12b38fd31022'>Remove now unnecessary uses of (guix grafts).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>