2 * QEMU low level functions
4 * Copyright (c) 2003 Fabrice Bellard
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
32 /* Needed early for CONFIG_BSD etc. */
33 #include "config-host.h"
35 #if defined(CONFIG_MADVISE) || defined(CONFIG_POSIX_MADVISE)
40 #include <sys/types.h>
41 #include <sys/statvfs.h>
42 /* See MySQL bug #7156 (http://bugs.mysql.com/bug.php?id=7156) for
43 discussion about Solaris header problems */
44 extern int madvise(caddr_t
, size_t, int);
48 #include <sys/eventfd.h>
53 #elif defined(CONFIG_BSD)
59 #include "qemu-common.h"
62 #include "qemu_socket.h"
64 #if !defined(_POSIX_C_SOURCE) || defined(_WIN32) || defined(__sun__)
65 static void *oom_check(void *ptr
)
69 fprintf(stderr
, "Failed to allocate memory: %lu\n", GetLastError());
71 fprintf(stderr
, "Failed to allocate memory: %s\n", strerror(errno
));
80 void *qemu_memalign(size_t alignment
, size_t size
)
87 ptr
= oom_check(VirtualAlloc(NULL
, size
, MEM_COMMIT
, PAGE_READWRITE
));
88 trace_qemu_memalign(alignment
, size
, ptr
);
92 void *qemu_vmalloc(size_t size
)
96 /* FIXME: this is not exactly optimal solution since VirtualAlloc
97 has 64Kb granularity, but at least it guarantees us that the
98 memory is page aligned. */
102 ptr
= oom_check(VirtualAlloc(NULL
, size
, MEM_COMMIT
, PAGE_READWRITE
));
103 trace_qemu_vmalloc(size
, ptr
);
107 void qemu_vfree(void *ptr
)
109 trace_qemu_vfree(ptr
);
110 VirtualFree(ptr
, 0, MEM_RELEASE
);
115 void *qemu_memalign(size_t alignment
, size_t size
)
118 #if defined(_POSIX_C_SOURCE) && !defined(__sun__)
120 ret
= posix_memalign(&ptr
, alignment
, size
);
122 fprintf(stderr
, "Failed to allocate %zu B: %s\n",
123 size
, strerror(ret
));
126 #elif defined(CONFIG_BSD)
127 ptr
= oom_check(valloc(size
));
129 ptr
= oom_check(memalign(alignment
, size
));
131 trace_qemu_memalign(alignment
, size
, ptr
);
135 /* alloc shared memory pages */
136 void *qemu_vmalloc(size_t size
)
139 return qemu_memalign(getpagesize(), size
);
141 return qemu_memalign(65536, size
);
145 void qemu_vfree(void *ptr
)
147 trace_qemu_vfree(ptr
);
153 int qemu_madvise(void *addr
, size_t len
, int advice
)
155 if (advice
== QEMU_MADV_INVALID
) {
159 #if defined(CONFIG_MADVISE)
160 return madvise(addr
, len
, advice
);
161 #elif defined(CONFIG_POSIX_MADVISE)
162 return posix_madvise(addr
, len
, advice
);
169 int qemu_create_pidfile(const char *filename
)
176 fd
= qemu_open(filename
, O_RDWR
| O_CREAT
, 0600);
180 if (lockf(fd
, F_TLOCK
, 0) == -1)
183 len
= snprintf(buffer
, sizeof(buffer
), "%ld\n", (long)getpid());
184 if (write(fd
, buffer
, len
) != len
)
190 memset(&overlap
, 0, sizeof(overlap
));
192 file
= CreateFile(filename
, GENERIC_WRITE
, FILE_SHARE_READ
, NULL
,
193 OPEN_ALWAYS
, FILE_ATTRIBUTE_NORMAL
, NULL
);
195 if (file
== INVALID_HANDLE_VALUE
)
198 len
= snprintf(buffer
, sizeof(buffer
), "%ld\n", (long)getpid());
199 ret
= WriteFileEx(file
, (LPCVOID
)buffer
, (DWORD
)len
,
209 /* mingw32 needs ffs for compilations without optimization. */
212 /* Use gcc's builtin ffs. */
213 return __builtin_ffs(i
);
216 /* Offset between 1/1/1601 and 1/1/1970 in 100 nanosec units */
217 #define _W32_FT_OFFSET (116444736000000000ULL)
219 int qemu_gettimeofday(qemu_timeval
*tp
)
222 unsigned long long ns100
; /*time since 1 Jan 1601 in 100ns units */
228 GetSystemTimeAsFileTime (&_now
.ft
);
229 tp
->tv_usec
=(long)((_now
.ns100
/ 10ULL) % 1000000ULL );
230 tp
->tv_sec
= (long)((_now
.ns100
- _W32_FT_OFFSET
) / 10000000ULL);
232 /* Always return 0 as per Open Group Base Specifications Issue 6.
233 Do not set errno on error. */
240 void socket_set_nonblock(int fd
)
242 unsigned long opt
= 1;
243 ioctlsocket(fd
, FIONBIO
, &opt
);
246 int inet_aton(const char *cp
, struct in_addr
*ia
)
248 uint32_t addr
= inet_addr(cp
);
249 if (addr
== 0xffffffff)
255 void qemu_set_cloexec(int fd
)
261 void socket_set_nonblock(int fd
)
264 f
= fcntl(fd
, F_GETFL
);
265 fcntl(fd
, F_SETFL
, f
| O_NONBLOCK
);
268 void qemu_set_cloexec(int fd
)
271 f
= fcntl(fd
, F_GETFD
);
272 fcntl(fd
, F_SETFD
, f
| FD_CLOEXEC
);
278 * Opens a file with FD_CLOEXEC set
280 int qemu_open(const char *name
, int flags
, ...)
285 if (flags
& O_CREAT
) {
289 mode
= va_arg(ap
, int);
294 ret
= open(name
, flags
| O_CLOEXEC
, mode
);
296 ret
= open(name
, flags
, mode
);
298 qemu_set_cloexec(ret
);
306 * A variant of write(2) which handles partial write.
308 * Return the number of bytes transferred.
309 * Set errno if fewer than `count' bytes are written.
311 * This function don't work with non-blocking fd's.
312 * Any of the possibilities with non-bloking fd's is bad:
313 * - return a short write (then name is wrong)
314 * - busy wait adding (errno == EAGAIN) to the loop
316 ssize_t
qemu_write_full(int fd
, const void *buf
, size_t count
)
322 ret
= write(fd
, buf
, count
);
339 * Creates an eventfd that looks like a pipe and has EFD_CLOEXEC set.
341 int qemu_eventfd(int fds
[2])
343 #ifdef CONFIG_EVENTFD
349 qemu_set_cloexec(ret
);
350 if ((fds
[1] = dup(ret
)) == -1) {
354 qemu_set_cloexec(fds
[1]);
358 if (errno
!= ENOSYS
) {
363 return qemu_pipe(fds
);
367 * Creates a pipe with FD_CLOEXEC set on both file descriptors
369 int qemu_pipe(int pipefd
[2])
374 ret
= pipe2(pipefd
, O_CLOEXEC
);
375 if (ret
!= -1 || errno
!= ENOSYS
) {
381 qemu_set_cloexec(pipefd
[0]);
382 qemu_set_cloexec(pipefd
[1]);
390 * Opens a socket with FD_CLOEXEC set
392 int qemu_socket(int domain
, int type
, int protocol
)
397 ret
= socket(domain
, type
| SOCK_CLOEXEC
, protocol
);
398 if (ret
!= -1 || errno
!= EINVAL
) {
402 ret
= socket(domain
, type
, protocol
);
404 qemu_set_cloexec(ret
);
411 * Accept a connection and set FD_CLOEXEC
413 int qemu_accept(int s
, struct sockaddr
*addr
, socklen_t
*addrlen
)
417 #ifdef CONFIG_ACCEPT4
418 ret
= accept4(s
, addr
, addrlen
, SOCK_CLOEXEC
);
419 if (ret
!= -1 || errno
!= ENOSYS
) {
423 ret
= accept(s
, addr
, addrlen
);
425 qemu_set_cloexec(ret
);