Fortran: fix ICE with use with rename of namelist member [PR116530]
[official-gcc.git] / libgo / go / syscall / libcall_aix.go
blobbb5db6ce525793addf0b6c319110f4fbd2a596f7
1 // Copyright 2017 The Go Authors. All rights reserved.
2 // Use of this source code is governed by a BSD-style
3 // license that can be found in the LICENSE file.
5 //go:build aix
6 // +build aix
8 package syscall
10 import (
11 "unsafe"
14 // For exec_unix.go.
15 const SYS_EXECVE = 0
17 //sys Openat(dirfd int, path string, flags int, mode uint32) (fd int, err error)
18 //open64at(dirfd _C_int, path *byte, flags _C_int, mode Mode_t) _C_int
20 //sys ptrace64(request int, id int64, addr int64, data int, buff uintptr) (err error)
21 //ptrace64(request _C_int, id int64, addr int64, data _C_int, buff *byte) _C_int
23 func raw_ptrace(request int, pid int, addr uintptr, data uintptr) Errno {
24 if request == _PTRACE_TRACEME {
25 // Convert to AIX ptrace call.
26 err := ptrace64(_PT_TRACE_ME, 0, 0, 0, 0)
27 if err != nil {
28 return err.(Errno)
30 return 0
32 return ENOSYS
35 func ptracePeek(pid int, addr uintptr, out []byte) (count int, err error) {
36 n := 0
37 for len(out) > 0 {
38 bsize := len(out)
39 if bsize > 1024 {
40 bsize = 1024
42 err = ptrace64(_PT_READ_BLOCK, int64(pid), int64(addr), bsize, uintptr(unsafe.Pointer(&out[0])))
43 if err != nil {
44 return 0, err
46 addr += uintptr(bsize)
47 n += bsize
48 out = out[n:]
50 return n, nil
53 func PtracePeekText(pid int, addr uintptr, out []byte) (count int, err error) {
54 return ptracePeek(pid, addr, out)
57 func PtracePeekData(pid int, addr uintptr, out []byte) (count int, err error) {
58 return ptracePeek(pid, addr, out)
61 func ptracePoke(pid int, addr uintptr, data []byte) (count int, err error) {
62 n := 0
63 for len(data) > 0 {
64 bsize := len(data)
65 if bsize > 1024 {
66 bsize = 1024
68 err = ptrace64(_PT_WRITE_BLOCK, int64(pid), int64(addr), bsize, uintptr(unsafe.Pointer(&data[0])))
69 if err != nil {
70 return 0, err
72 addr += uintptr(bsize)
73 n += bsize
74 data = data[n:]
76 return n, nil
79 func PtracePokeText(pid int, addr uintptr, data []byte) (count int, err error) {
80 return ptracePoke(pid, addr, data)
83 func PtracePokeData(pid int, addr uintptr, data []byte) (count int, err error) {
84 return ptracePoke(pid, addr, data)
87 func PtraceCont(pid int, signal int) (err error) {
88 return ptrace64(_PT_CONTINUE, int64(pid), 1, signal, 0)
91 func PtraceSingleStep(pid int) (err error) { return ptrace64(_PT_STEP, int64(pid), 1, 0, 0) }
93 func PtraceAttach(pid int) (err error) { return ptrace64(_PT_ATTACH, int64(pid), 0, 0, 0) }
95 func PtraceDetach(pid int) (err error) { return ptrace64(_PT_DETACH, int64(pid), 0, 0, 0) }
97 //sys reboot(how int) (err error)
98 //__linux_reboot(how _C_int) _C_int
100 func Reboot(how int) (err error) {
101 return reboot(how)
104 //sys Acct(path string) (err error)
105 //acct(path *byte) _C_int
107 //sys Faccessat(dirfd int, path string, mode uint32, flags int) (err error)
108 //faccessat(dirfd _C_int, pathname *byte, mode _C_int, flags _C_int) _C_int
110 //sys Fchmodat(dirfd int, path string, mode uint32, flags int) (err error)
111 //fchmodat(dirfd _C_int, pathname *byte, mode Mode_t, flags _C_int) _C_int
113 //sys Fchownat(dirfd int, path string, uid int, gid int, flags int) (err error)
114 //fchownat(dirfd _C_int, path *byte, owner Uid_t, group Gid_t, flags _C_int) _C_int
116 //sys Fstatfs(fd int, buf *Statfs_t) (err error)
117 //fstatfs64(fd _C_int, buf *Statfs_t) _C_int
119 //sys Mkdirat(dirfd int, path string, mode uint32) (err error)
120 //mkdirat(dirfd _C_int, path *byte, mode Mode_t) _C_int
122 //sys Mknodat(dirfd int, path string, mode uint32, dev int) (err error)
123 //mknodat(dirfd _C_int, path *byte, mode Mode_t, dev _dev_t) _C_int
125 //sys getdirent(fd int, buf []byte) (n int, err error)
126 //getdirent64(fd _C_int, buf *byte, nbyte Size_t) _C_int
128 func ReadDirent(fd int, buf []byte) (n int, err error) {
129 return getdirent(fd, buf)
132 //sys Renameat(olddirfd int, oldpath string, newdirfd int, newpath string) (err error)
133 //renameat(olddirfd _C_int, oldpath *byte, newdirfd _C_int, newpath *byte) _C_int
135 //sys Statfs(path string, buf *Statfs_t) (err error)
136 //statfs64(path *byte, buf *Statfs_t) _C_int
138 //sys unlinkat(dirfd int, path string, flags int) (err error)
139 //unlinkat(dirfd _C_int, path *byte, flags _C_int) _C_int
141 func Unlinkat(dirfd int, path string) (err error) {
142 return unlinkat(dirfd, path, 0)
145 //sys Getkerninfo(op int32, where uintptr, size uintptr, arg int64) (i int32, err error)
146 //getkerninfo(op _C_int, where *byte, size *byte, arg _C_long) _C_int