me
/
guix
Archived
1
0
Fork 0

Revert "syscalls: Adjust for glibc 2.34 and later."

This reverts commit 3c8b6fd94c, which
would break bindings on glibc < 2.34 where those symbols are in
"libutil.so".
master
Ludovic Courtès 2022-11-07 22:25:28 +01:00
parent af4f71318a
commit c9984bfc50
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions

View File

@ -2321,7 +2321,8 @@ always a positive integer."
(terminal-dimension window-size-rows port (const 25)))
(define openpty
(let ((proc (syscall->procedure int "openpty" '(* * * * *))))
(let ((proc (syscall->procedure int "openpty" '(* * * * *)
#:library "libutil")))
(lambda ()
"Return two file descriptors: one for the pseudo-terminal control side,
and one for the controlled side."
@ -2342,7 +2343,8 @@ and one for the controlled side."
(values (* head) (* inferior)))))))
(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)
"Make FD the controlling terminal of the current process (with the
TIOCSCTTY ioctl), redirect standard input, standard output and standard error