scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix for sunos 4.x build error because of non-standard declarations of setgid and setguid

This commit is contained in:
bdc 1996-11-04 01:31:01 +00:00
parent 2fe3ec94a7
commit d0fef5a49c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/syscalls.scm
View File

@ -164,7 +164,7 @@
(define-foreign user-gid (getgid) gid_t) (define-foreign user-gid (getgid) gid_t)
(define-foreign user-effective-gid (getegid) gid_t) (define-foreign user-effective-gid (getegid) gid_t)
(define-foreign set-gid/errno (setgid (gid_t id)) (define-foreign set-gid/errno (setgid (gid_t id)) no-declare ; for SunOS 4.x
(to-scheme integer errno_or_false)) (to-scheme integer errno_or_false))
(define-errno-syscall (set-gid gid) set-gid/errno) (define-errno-syscall (set-gid gid) set-gid/errno)
@ -191,7 +191,7 @@
(define-foreign user-uid (getuid) uid_t) (define-foreign user-uid (getuid) uid_t)
(define-foreign user-effective-uid (geteuid) uid_t) (define-foreign user-effective-uid (geteuid) uid_t)
(define-foreign set-uid/errno (setuid (uid_t id)) (define-foreign set-uid/errno (setuid (uid_t id)) no-declare ; for SunOS 4.x
(to-scheme integer errno_or_false)) (to-scheme integer errno_or_false))
(define-errno-syscall (set-uid uid_t) set-uid/errno) (define-errno-syscall (set-uid uid_t) set-uid/errno)