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';
0351fe5d0a64d846607aa23e341657883a37699'>commit</a><a href='/guix/diff/tests/gremlin.scm?id=10351fe5d0a64d846607aa23e341657883a37699'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/gremlin.scm'>
<input type='hidden' name='id' value='10351fe5d0a64d846607aa23e341657883a37699'/><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=10351fe5d0a64d846607aa23e341657883a37699'>root</a>/<a href='/guix/log/tests?id=10351fe5d0a64d846607aa23e341657883a37699'>tests</a>/<a href='/guix/log/tests/gremlin.scm?id=10351fe5d0a64d846607aa23e341657883a37699'>gremlin.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/tests/gremlin.scm?id=10351fe5d0a64d846607aa23e341657883a37699&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-01-16 20:21:27 -0800'>2022-01-16</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=24c3485bb3ffc05e687ef6513ac287b8d3048bab'>tests: Fix file-needed/recursive on aarch64-linux.</a><span class='msg-avail'>...</span></td><td>Pierre Langlois</td></tr>
<tr><td><span title='2022-01-14 22:39:24 +0100'>2022-01-14</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=e7ad192de008a6a21638def6eb973b9cc0c91116'>gremlin: Adjust tests for i686 and beyond.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-08 15:51:22 -0800'>2022-01-08</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=6a2050b1e1c7f09ef9b6af43044b7c0e4786d39d'>tests: Fix file-needed/recursive on powerpc64le-linux.</a><span class='msg-avail'>...</span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2021-06-23 20:30:22 -0700'>2021-06-23</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=e4b5a23841bc6a92e2e21dd8b1038addee55eb02'>tests: gremlin: Skip file-needed/recursive if DT_NEEDED is empty.</a><span class='msg-avail'>...</span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2021-04-22 14:04:27 +0200'>2021-04-22</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=1010171280cb34c8dc361644b66fdd1a041d297a'>gremlin: 'elf-dynamic-info' returns a file name rathern than a dynamic entry.</a><span class='msg-avail'>...</span></td><td>Dion Mendel</td></tr>
<tr><td><span title='2020-12-01 21:30:28 +0100'>2020-12-01</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=53fd256e5ba43e516fb9d6eaf085b88fe8bd12b6'>gremlin: Add 'file-needed/recursive'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-09-19 17:28:46 +0200'>2020-09-19</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=49a1203d67a90a6a7ce4e4537697a6da96ceb213'>gremlin: Add 'set-file-runpath', 'file-runpath', and 'file-needed'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-18 12:10:15 +0200'>2019-05-18</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=6b97415996583b15a97dad8254f610275353e913'>gremlin: Adjust tests for foreign distros.</a><span class='msg-avail'>...</span></td><td>Ting-Wei Lan</td></tr>
<tr><td><span title='2018-08-25 16:44:07 +0200'>2018-08-25</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=839167ff9d74fc490b32f6a197591964f73b65e5'>Merge branch 'staging' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2018-08-21 23:27:08 +0200'>2018-08-21</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=f7dfda2c73a0c4f09b105cafb29c45cf594e4ba9'>gremlin: 'elf-dynamic-info-needed' test is no longer skipped.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-05-07 11:21:36 +0200'>2018-05-07</span></td><td><a href='/guix/commit/tests/gremlin.scm?id=b178fc236908ad2da86734ea8e01abd3ff8981da'>gremlin: Add 'strip-runpath'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>