me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
This reverts commit 3c8b6fd94c, which
would break bindings on glibc < 2.34 where those symbols are in
"libutil.so".
This commit is contained in:
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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/build/syscalls.scm
View file

@ -2321,7 +2321,8 @@ 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."
@ -2342,7 +2343,8 @@ 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