mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
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.
This commit is contained in:
parent
25b30622b4
commit
3c8b6fd94c
1 changed files with 2 additions and 4 deletions
|
@ -2321,8 +2321,7 @@ (define* (terminal-rows #:optional (port (current-output-port)))
|
|||
(terminal-dimension window-size-rows port (const 25)))
|
||||
|
||||
(define openpty
|
||||
(let ((proc (syscall->procedure int "openpty" '(* * * * *)
|
||||
#:library "libutil")))
|
||||
(let ((proc (syscall->procedure int "openpty" '(* * * * *))))
|
||||
(lambda ()
|
||||
"Return two file descriptors: one for the pseudo-terminal control side,
|
||||
and one for the controlled side."
|
||||
|
@ -2343,8 +2342,7 @@ (define openpty
|
|||
(values (* head) (* inferior)))))))
|
||||
|
||||
(define login-tty
|
||||
(let* ((proc (syscall->procedure int "login_tty" (list int)
|
||||
#:library "libutil")))
|
||||
(let* ((proc (syscall->procedure int "login_tty" (list int))))
|
||||
(lambda (fd)
|
||||
"Make FD the controlling terminal of the current process (with the
|
||||
TIOCSCTTY ioctl), redirect standard input, standard output and standard error
|
||||
|
|
Loading…
Reference in a new issue