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';
c85d51f082681a9f4fa911867afba'>commit</a><a href='/guix/diff/tests/utils.scm?id=7893b32ef6ec85d51f082681a9f4fa911867afba'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/utils.scm'>
<input type='hidden' name='id' value='7893b32ef6ec85d51f082681a9f4fa911867afba'/><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=7893b32ef6ec85d51f082681a9f4fa911867afba'>root</a>/<a href='/guix/log/tests?id=7893b32ef6ec85d51f082681a9f4fa911867afba'>tests</a>/<a href='/guix/log/tests/utils.scm?id=7893b32ef6ec85d51f082681a9f4fa911867afba'>utils.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/utils.scm?id=7893b32ef6ec85d51f082681a9f4fa911867afba&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-04-15 22:36:42 +0200'>2024-04-15</span></td><td><a href='/guix/commit/tests/utils.scm?id=54be7795b5cc2f6cad05f8649121372c9d5af806'>utils: Don’t re-export ‘call-with-temporary-output-file’.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-02-23 19:02:16 +0100'>2024-02-23</span></td><td><a href='/guix/commit/tests/utils.scm?id=50e514c1bc674b1c36344407c8c4b418d17759c5'>utils: Add find-definition-insertion-location procedure.</a><span class='msg-avail'>...</span></td><td>Herman Rimm</td></tr>
<tr><td><span title='2024-02-23 19:01:55 +0100'>2024-02-23</span></td><td><a href='/guix/commit/tests/utils.scm?id=babd39e84389c544e8dab44be8ddec57e52709c9'>utils: Add insert-expression procedure.</a><span class='msg-avail'>...</span></td><td>Herman Rimm</td></tr>
<tr><td><span title='2023-12-11 11:53:54 +0200'>2023-12-11</span></td><td><a href='/guix/commit/tests/utils.scm?id=520e3d267ecc3964af301ab9341462e905f234c6'>guix: Add target-avr?.</a><span class='msg-avail'>...</span></td><td>Jean-Pierre De Jesus DIAZ</td></tr>
<tr><td><span title='2021-07-14 15:38:03 +0200'>2021-07-14</span></td><td><a href='/guix/commit/tests/utils.scm?id=f54852be22c29a0d5b174d15ef6189c57cab2017'>utils: Define a target-x86-32? and target-x86-64? predicate.</a><span class='msg-avail'>...</span></td><td>Maxime Devos</td></tr>
<tr><td><span title='2021-07-14 15:38:03 +0200'>2021-07-14</span></td><td><a href='/guix/commit/tests/utils.scm?id=ef71965c162ff19c7b4b85889b0330d7c428dda5'>utils: Define 'target-linux?' predicate.</a><span class='msg-avail'>...</span></td><td>Maxime Devos</td></tr>
<tr><td><span title='2021-02-03 12:41:28 +0100'>2021-02-03</span></td><td><a href='/guix/commit/tests/utils.scm?id=9505b54a4f9f0265c9d8be53763f0c59d6f62a44'>utils: Add string distance.</a><span class='msg-avail'>...</span></td><td>zimoun</td></tr>
<tr><td><span title='2021-02-01 17:32:34 +0100'>2021-02-01</span></td><td><a href='/guix/commit/tests/utils.scm?id=579506e272cf68649ec68ad8a976a17426ea630c'>utils: Add 'version-unique-prefix'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-01-13 22:24:19 +0100'>2021-01-13</span></td><td><a href='/guix/commit/tests/utils.scm?id=db0cecdf6b2f2b8f9c5a3cebe8fc60e79a692be0'>utils: Support zstd compression via Guile-zstd.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-01-13 22:24:19 +0100'>2021-01-13</span></td><td><a href='/guix/commit/tests/utils.scm?id=0d046587107a56467cf2027799ac79ce8c203ce0'>utils: Remove 'compressed-output-port'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-08-24 13:35:24 +0200'>2020-08-24</span></td><td><a href='/guix/commit/tests/utils.scm?id=4c0c65acfade63ce0549115d19db4b639c1e9992'>Use "guile-zlib" and "guile-lzlib" instead of (guix config).</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2019-06-20 14:07:01 +0200'>2019-06-20</span></td><td><a href='/guix/commit/tests/utils.scm?id=3149c002644b927e0245d237cdda3a6aeca00e4a'>utils: canonical-newline-port: Fix handling of carriage return at buffer end.</a><span class='msg-avail'>...</span></td><td>Robert Vollmert</td></tr>
<tr><td><span title='2019-05-27 22:47:24 +0200'>2019-05-27</span></td><td><a href='/guix/commit/tests/utils.scm?id=4e48923e7523c863996bb616c6abb7e4cb78a3b5'>utils: Support compression and decompression with lzip.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-27 22:47:24 +0200'>2019-05-27</span></td><td><a href='/guix/commit/tests/utils.scm?id=4c7ebe318f6b3c4ddadcea8d08c9fb67ac46ec1e'>utils: Test 'compressed-port' and 'decompressed-port' for both gzip and xz.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>