syscalls: Adjust for glibc 2.34 and later.
* guix/build/syscalls.scm (openpty, login-tty): Remove #:library argument, as these functions have been moved to libc.so.master
parent
25b30622b4
commit
3c8b6fd94c
|
@ -2321,8 +2321,7 @@ always a positive integer."
|
||||||
(terminal-dimension window-size-rows port (const 25)))
|
(terminal-dimension window-size-rows port (const 25)))
|
||||||
|
|
||||||
(define openpty
|
(define openpty
|
||||||
(let ((proc (syscall->procedure int "openpty" '(* * * * *)
|
(let ((proc (syscall->procedure int "openpty" '(* * * * *))))
|
||||||
#:library "libutil")))
|
|
||||||
(lambda ()
|
(lambda ()
|
||||||
"Return two file descriptors: one for the pseudo-terminal control side,
|
"Return two file descriptors: one for the pseudo-terminal control side,
|
||||||
and one for the controlled side."
|
and one for the controlled side."
|
||||||
|
@ -2343,8 +2342,7 @@ and one for the controlled side."
|
||||||
(values (* head) (* inferior)))))))
|
(values (* head) (* inferior)))))))
|
||||||
|
|
||||||
(define login-tty
|
(define login-tty
|
||||||
(let* ((proc (syscall->procedure int "login_tty" (list int)
|
(let* ((proc (syscall->procedure int "login_tty" (list int))))
|
||||||
#:library "libutil")))
|
|
||||||
(lambda (fd)
|
(lambda (fd)
|
||||||
"Make FD the controlling terminal of the current process (with the
|
"Make FD the controlling terminal of the current process (with the
|
||||||
TIOCSCTTY ioctl), redirect standard input, standard output and standard error
|
TIOCSCTTY ioctl), redirect standard input, standard output and standard error
|
||||||
|
|
Reference in New Issue