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';
guix-package.sh?id=f9671ab689b2743797e974a2260473543add7b3a'>commit</a><a href='/guix/diff/tests/guix-package.sh?id=f9671ab689b2743797e974a2260473543add7b3a'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/guix-package.sh'>
<input type='hidden' name='id' value='f9671ab689b2743797e974a2260473543add7b3a'/><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=f9671ab689b2743797e974a2260473543add7b3a'>root</a>/<a href='/guix/log/tests?id=f9671ab689b2743797e974a2260473543add7b3a'>tests</a>/<a href='/guix/log/tests/guix-package.sh?id=f9671ab689b2743797e974a2260473543add7b3a'>guix-package.sh</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/guix-package.sh?id=f9671ab689b2743797e974a2260473543add7b3a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2015-04-19 23:34:53 +0200'>2015-04-19</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=5763ad9266ec7682d53b87a874fc6ae04f92b6c4'>guix package: -A and -s take supported systems into account.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-04-06 21:52:40 +0200'>2015-04-06</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=57b8623754fdd10b2cc194db09772f60010928af'>tests: Move 'guix package' tests that require networking to a separate file.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-04-06 21:27:32 +0200'>2015-04-06</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=d26eb84d140af8d2119509d7da440b4f035608c5'>guix package: Never remove the current generation and warn about it.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-24 00:01:34 +0100'>2015-02-24</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=b69c5c2ced1e41fdb5c2e747b1fb3a338ca63768'>tests: Skip tests that would fail due to the shebang length.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-06 17:56:22 +0100'>2015-02-06</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=c9323a4c69d48bc9af3825674e43a3febbb42091'>guix package: Make custom profiles actual indirect roots.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-03 23:49:42 +0100'>2015-01-03</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=ee06af5b4b314211f05c866f7226b8cb056a335b'>gnu: Search for patches under $GUIX_PACKAGE_PATH.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-12-06 16:03:49 +0100'>2014-12-06</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=847391fe6229bc9b989939470b4a84bd82c75088'>guix: scripts: Parse $GUIX_BUILD_OPTIONS separately.</a><span class='msg-avail'>...</span></td><td>nebuli</td></tr>
<tr><td><span title='2014-10-12 08:45:38 +0400'>2014-10-12</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=b3bb82f1542ec0805b87305482829102f2faaa92'>guix package: Add '--switch-generation' option.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2014-10-10 14:08:59 +0200'>2014-10-10</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=e25234e34b0d2709e8ff06609cedce2b24b50ee8'>build: Make sure tests/guix-package.sh doesn't leave anything behind it.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-09-24 14:06:09 +0200'>2014-09-24</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=8689901f95499e98e0209e75b4f268bf2af325c1'>Introduce the 'GUIX_PACKAGE_PATH' environment variable.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-09-24 14:06:09 +0200'>2014-09-24</span></td><td><a href='/guix/commit/tests/guix-package.sh?id=300868ba57e3786dae399f3cac4fff39ad6c316f'>guix build: Add -L/--load-path as a common option.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>