unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
* bug#48563: move->fdes somewhat broken (EBADFD)
@ 2021-05-21 12:45 Maxime Devos
  0 siblings, 0 replies; only message in thread
From: Maxime Devos @ 2021-05-21 12:45 UTC (permalink / raw)
  To: 48563

[-- Attachment #1: Type: text/plain, Size: 1628 bytes --]

version: 3.0.5

Reproducer:

a.scm:
(define (test p)
  (let loop ((i 0))
    (when (< (pk 'i i) 40)
      (move->fdes p i)
      (loop (+ 1 i)))))

(test (car (pipe))

Run guile -l a.scm.
The result is non-deterministic.

Output (try #1--#2):

;;; (i 0)
[...]
;;; (i 9)
Backtrace:
In ice-9/boot-9.scm:
  1736:10  8 (with-exception-handler _ _ #:unwind? _ # _)
In unknown file:
           7 (apply-smob/0 #<thunk 7f7774266d60>)
In ice-9/boot-9.scm:
    718:2  6 (call-with-prompt ("prompt") #<procedure 7f7772d67e60 …> …)
In ice-9/eval.scm:
    619:8  5 (_ #(#(#<directory (guile-user) 7f7774260c80>)))
In ice-9/boot-9.scm:
   2806:4  4 (save-module-excursion #<procedure 7f7772d6a1e0 at ice-…>)
  4351:12  3 (_)
In /home/sylviidae/a.scm:
      4:6  2 (test #<input: #{read pipe}# 8>)
In ice-9/ports.scm:
    302:9  1 (move->fdes #<input: #{read pipe}# 8> _)
In unknown file:
           0 (primitive-move->fdes #<input: #{read pipe}# 8> 9)

ERROR: In procedure primitive-move->fdes:
In procedure primitive-move->fdes: Ongeldige bestandsdescriptor

Output (try #3): (this time no error)
;;; (i 0)
[...]
;;; (i 40)
GNU Guile 3.0.5
Copyright (C) 1995-2021 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.


Some more debugging.
scheme@(guile-user)> (getpid)
$1 = 23855
(Shell): ls /proc/23855/fd/
(Shell output) 0  1  10  11  12  13  14  2  3  4  5  6  7  8  9


[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2021-05-21 12:45 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-05-21 12:45 bug#48563: move->fdes somewhat broken (EBADFD) Maxime Devos

unofficial mirror of bug-guile@gnu.org 

This inbox may be cloned and mirrored by anyone:

	git clone --mirror https://yhetil.org/guile-bugs/0 guile-bugs/git/0.git

	# If you have public-inbox 1.1+ installed, you may
	# initialize and index your mirror using the following commands:
	public-inbox-init -V2 guile-bugs guile-bugs/ https://yhetil.org/guile-bugs \
		bug-guile@gnu.org
	public-inbox-index guile-bugs

Example config snippet for mirrors.
Newsgroups are available over NNTP:
	nntp://news.yhetil.org/yhetil.lisp.guile.bugs
	nntp://news.gmane.io/gmane.lisp.guile.bugs


AGPL code for this site: git clone http://ou63pmih66umazou.onion/public-inbox.git