From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thien-Thi Nguyen Newsgroups: gmane.lisp.guile.bugs Subject: bug#15370: weirdness w/ uniform-vector-read! compat Date: Fri, 13 Sep 2013 17:49:56 +0200 Message-ID: <874n9obu1n.fsf@zigzag.favinet> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: ger.gmane.org 1379111578 4986 80.91.229.3 (13 Sep 2013 22:32:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 13 Sep 2013 22:32:58 +0000 (UTC) To: 15370@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sat Sep 14 00:32:59 2013 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VKbv8-0000A4-OE for guile-bugs@m.gmane.org; Sat, 14 Sep 2013 00:32:58 +0200 Original-Received: from localhost ([::1]:51399 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VKbv8-0007cC-9S for guile-bugs@m.gmane.org; Fri, 13 Sep 2013 18:32:58 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:56477) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VKVk6-0001dC-JJ for bug-guile@gnu.org; Fri, 13 Sep 2013 11:57:15 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VKVk0-0004Vv-0K for bug-guile@gnu.org; Fri, 13 Sep 2013 11:57:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:54022) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VKVjz-0004Vr-T3 for bug-guile@gnu.org; Fri, 13 Sep 2013 11:57:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VKVjz-00047Z-Nk for bug-guile@gnu.org; Fri, 13 Sep 2013 11:57:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Thien-Thi Nguyen Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Fri, 13 Sep 2013 15:57:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 15370 X-GNU-PR-Package: guile X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.137908778115760 (code B ref -1); Fri, 13 Sep 2013 15:57:03 +0000 Original-Received: (at submit) by debbugs.gnu.org; 13 Sep 2013 15:56:21 +0000 Original-Received: from localhost ([127.0.0.1]:34079 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VKVjH-000463-ST for submit@debbugs.gnu.org; Fri, 13 Sep 2013 11:56:20 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:48107) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VKVam-0003sI-Ld for submit@debbugs.gnu.org; Fri, 13 Sep 2013 11:47:32 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VKVaa-0000OG-Q9 for submit@debbugs.gnu.org; Fri, 13 Sep 2013 11:47:27 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:39813) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VKVaa-0000O6-N5 for submit@debbugs.gnu.org; Fri, 13 Sep 2013 11:47:20 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:49777) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VKVaU-0008Df-Q8 for bug-guile@gnu.org; Fri, 13 Sep 2013 11:47:20 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VKVaO-0000Df-RO for bug-guile@gnu.org; Fri, 13 Sep 2013 11:47:14 -0400 Original-Received: from smtp206.alice.it ([82.57.200.102]:58133) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VKVaO-0000DI-Fs for bug-guile@gnu.org; Fri, 13 Sep 2013 11:47:08 -0400 Original-Received: from zigzag.favinet (95.233.70.113) by smtp206.alice.it (8.6.060.28) id 52311EC7002E31A3 for bug-guile@gnu.org; Fri, 13 Sep 2013 17:46:59 +0200 Original-Received: from ttn by zigzag.favinet with local (Exim 4.80) (envelope-from ) id 1VKVdO-00057K-99 for bug-guile@gnu.org; Fri, 13 Sep 2013 17:50:14 +0200 User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Mailman-Approved-At: Fri, 13 Sep 2013 11:56:17 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-Mailman-Approved-At: Fri, 13 Sep 2013 18:32:56 -0400 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:7284 Archived-At: --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Proc =E2=80=98uniform-vector-read!=E2=80=99 is deprecated (ugh), and its im= plementation rebased onto =E2=80=98(rnrs io ports) get-bytevector-n!=E2=80=99. Unfortun= ately, there seems to be a glitch in the arg shuffling. Here is /tmp/foo.scm: --=-=-= Content-Type: application/x-scheme Content-Disposition: attachment; filename=foo.scm Content-Transfer-Encoding: base64 KHVzZS1tb2R1bGVzICgocm5ycyBpbyBwb3J0cykgIzpzZWxlY3QgKGdldC1ieXRldmVjdG9yLW4h KSkpCgooY2FsbC13aXRoLWlucHV0LXN0cmluZwogIioqKioiIChsYW1iZGEgKHBvcnQpCiAgICAg ICAgICAobGV0ICgodXZlIChtYWtlLXR5cGVkLWFycmF5ICdzMTYgMCAxKSkpCiAgICAgICAgICAg IChmb3JtYXQgI3QgInV2ZTogflMgKH5BKX4lIgogICAgICAgICAgICAgICAgICAgIHV2ZSAodW5p Zm9ybS12ZWN0b3ItZWxlbWVudC1zaXplIHV2ZSkpCiAgICAgICAgICAgIChjYXNlIChmYWxzZS1p Zi1leGNlcHRpb24KICAgICAgICAgICAgICAgICAgIChzdHJpbmctPnN5bWJvbCAoY2FkciAoY29t bWFuZC1saW5lKSkpKQogICAgICAgICAgICAgICgob2spIChnZXQtYnl0ZXZlY3Rvci1uISBwb3J0 IHV2ZSAwIDIpKQogICAgICAgICAgICAgICgoa28pICh1bmlmb3JtLXZlY3Rvci1yZWFkISB1dmUg cG9ydCkpKQogICAgICAgICAgICAoZm9ybWF0ICN0ICJ1dmU6IH5TfiUiIHV2ZSkpKSkK --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable and here is a series of invocations that demonstrate the discrepency between =E2=80=98get-bytevector-n!=E2=80=99 (ok) and =E2=80=98uniform-vecto= r-read!=E2=80=99 (ko): --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=badness set -x ; guile --version ; guile -s foo.scm ; guile -s foo.scm ok ; guile -s foo.scm ko + guile --version guile (GNU Guile) 2.0.9 Copyright (C) 2013 Free Software Foundation, Inc. License LGPLv3+: GNU LGPL 3 or later . This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. + guile -s foo.scm uve: #s16(0) (2) uve: #s16(0) + guile -s foo.scm ok uve: #s16(0) (2) uve: #s16(10794) + guile -s foo.scm ko uve: #s16(0) (2) `uniform-vector-read!' is deprecated. Use `get-bytevector-n!' from `(rnrs io ports)' instead. Backtrace: In ice-9/boot-9.scm: 157: 11 [catch #t # ...] In unknown file: ?: 10 [apply-smob/1 #] In ice-9/boot-9.scm: 63: 9 [call-with-prompt prompt0 ...] In ice-9/eval.scm: 432: 8 [eval # #] In ice-9/boot-9.scm: 2320: 7 [save-module-excursion #] 3968: 6 [#] 1645: 5 [%start-stack load-stack ...] 1650: 4 [#] In unknown file: ?: 3 [primitive-load "/tmp/foo.scm"] ?: 2 [call-with-input-string "****" ...] In ice-9/eval.scm: 432: 1 [eval # #] In unknown file: ?: 0 [uniform-vector-read! #s16(0) # ...] ERROR: In procedure uniform-vector-read!: ERROR: In procedure get-bytevector-n!: Value out of range: 4 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable FWIW, Guile 1.8.8 produces same output as =E2=80=98ok=E2=80=99 on a similar= (sans the =E2=80=98use-modules=E2=80=99 and =E2=80=98uniform-vector-element-size=E2= =80=99 noise) input, so i think this situation is a regression. Am i missing something? =2D-=20 Thien-Thi Nguyen GPG key: 4C807502 (if you're human and you know it) read my lisp: (responsep (questions 'technical) (not (via 'mailing-list))) =3D> nil --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.12 (GNU/Linux) iEYEARECAAYFAlIzNCcACgkQZwMiJEyAdQJoIwCfVxK7a6h7wNIgmy34QD7zaCRn Q+sAn0nIIC1JqzQSl8tTKWriMbLYd1lJ =G2HD -----END PGP SIGNATURE----- --==-=-=--