ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: Adjust for glibc 2.34 and later.

Browse source 
* guix/build/syscalls.scm (openpty, login-tty): Remove #:library argument, as
these functions have been moved to libc.so.
This commit is contained in:
Marius Bakke 2022-09-02 00:05:52 +02:00
parent 25b30622b4
commit 3c8b6fd94c
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/build/syscalls.scm
View file

@ -2321,8 +2321,7 @@ (define* (terminal-rows #:optional (port (current-output-port)))
(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 @@ (define openpty
(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