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';
fa9d20c80e60eb7a26fd0d107ee307393f'>commit</a><a href='/guix/diff/tests/guix-gc.sh?id=c0fcbdfa9d20c80e60eb7a26fd0d107ee307393f'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/guix-gc.sh'>
<input type='hidden' name='id' value='c0fcbdfa9d20c80e60eb7a26fd0d107ee307393f'/><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=c0fcbdfa9d20c80e60eb7a26fd0d107ee307393f'>root</a>/<a href='/guix/log/tests?id=c0fcbdfa9d20c80e60eb7a26fd0d107ee307393f'>tests</a>/<a href='/guix/log/tests/guix-gc.sh?id=c0fcbdfa9d20c80e60eb7a26fd0d107ee307393f'>guix-gc.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-gc.sh?id=c0fcbdfa9d20c80e60eb7a26fd0d107ee307393f&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-04-10 17:09:47 +0200'>2019-04-10</span></td><td><a href='/guix/commit/tests/guix-gc.sh?id=bacf980c76c94e7bda86220ca4bf662d0e34a45a'>guix gc: Add '--list-roots'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/gc.scm (show-help, %options): Add '--list-roots'.
(guix-gc)[list-roots]: New procedure.
Handle '--list-roots'.
* tests/guix-gc.sh: Test it.
* doc/guix.texi (Invoking guix gc): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-03-27 14:51:44 +0200'>2018-03-27</span></td><td><a href='/guix/commit/tests/guix-gc.sh?id=8980eea5ab6f89e7649d9abf0be2a9d49156f7d2'>guix gc: Add '--derivers'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/gc.scm (show-help, %options): Add '--derivers'.
(guix-gc): Handle 'list-derivers'.
* tests/guix-gc.sh: Add test.
* doc/guix.texi (Invoking guix gc): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-12-18 23:17:30 +0100'>2017-12-18</span></td><td><a href='/guix/commit/tests/guix-gc.sh?id=3caab236c49012643ab46afd7e82a287ec413ee8'>guix gc: '--verify=foo' is reported as an error.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/29761&gt;.
Reported by Martin Castillo &lt;castilma@uni-bremen.de&gt;.

* guix/scripts/gc.scm (argument-&gt;verify-options): New procedure.
(%options) ["verify"]: Adjust to use it.
* tests/guix-gc.sh: Add test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-11-13 10:10:13 +0100'>2017-11-13</span></td><td><a href='/guix/commit/tests/guix-gc.sh?id=ff23b47dbee038236386ddc2ed2fff4c77ad3aa1'>tests: 'guix-gc.sh' passes even when 'out' or 'drv' are defined as env vars.</a><span class='msg-avail'>...<span class='msg-tooltip'>This fixes a test failure exhibited by
fb17a89912c2a3738dae716e30481c11e1c6f0ac whereby assignments to 'out' in
guix-gc.sh would go to the 'out' environment variable, when it exists,
which in turn prevents garbage collection of $out.

* tests/guix-gc.sh: Add 'unset' invocations.
</span></span></td><td>Ludovic Courtès</td></tr>