xref: /openbmc/qemu/util/oslib-win32.c (revision e4e5cb4a)
1 /*
2  * os-win32.c
3  *
4  * Copyright (c) 2003-2008 Fabrice Bellard
5  * Copyright (c) 2010-2016 Red Hat, Inc.
6  *
7  * QEMU library functions for win32 which are shared between QEMU and
8  * the QEMU tools.
9  *
10  * Permission is hereby granted, free of charge, to any person obtaining a copy
11  * of this software and associated documentation files (the "Software"), to deal
12  * in the Software without restriction, including without limitation the rights
13  * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
14  * copies of the Software, and to permit persons to whom the Software is
15  * furnished to do so, subject to the following conditions:
16  *
17  * The above copyright notice and this permission notice shall be included in
18  * all copies or substantial portions of the Software.
19  *
20  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
21  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
22  * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
23  * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
24  * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
25  * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
26  * THE SOFTWARE.
27  */
28 
29 #include "qemu/osdep.h"
30 #include <windows.h>
31 #include "qapi/error.h"
32 #include "qemu/main-loop.h"
33 #include "trace.h"
34 #include "qemu/sockets.h"
35 #include "qemu/cutils.h"
36 #include "qemu/error-report.h"
37 #include <malloc.h>
38 
39 static int get_allocation_granularity(void)
40 {
41     SYSTEM_INFO system_info;
42 
43     GetSystemInfo(&system_info);
44     return system_info.dwAllocationGranularity;
45 }
46 
47 void *qemu_anon_ram_alloc(size_t size, uint64_t *align, bool shared,
48                           bool noreserve)
49 {
50     void *ptr;
51 
52     if (noreserve) {
53         /*
54          * We need a MEM_COMMIT before accessing any memory in a MEM_RESERVE
55          * area; we cannot easily mimic POSIX MAP_NORESERVE semantics.
56          */
57         error_report("Skipping reservation of swap space is not supported.");
58         return NULL;
59     }
60 
61     ptr = VirtualAlloc(NULL, size, MEM_COMMIT, PAGE_READWRITE);
62     trace_qemu_anon_ram_alloc(size, ptr);
63 
64     if (ptr && align) {
65         *align = MAX(get_allocation_granularity(), getpagesize());
66     }
67     return ptr;
68 }
69 
70 void qemu_anon_ram_free(void *ptr, size_t size)
71 {
72     trace_qemu_anon_ram_free(ptr, size);
73     if (ptr) {
74         VirtualFree(ptr, 0, MEM_RELEASE);
75     }
76 }
77 
78 #ifndef _POSIX_THREAD_SAFE_FUNCTIONS
79 /* FIXME: add proper locking */
80 struct tm *gmtime_r(const time_t *timep, struct tm *result)
81 {
82     struct tm *p = gmtime(timep);
83     memset(result, 0, sizeof(*result));
84     if (p) {
85         *result = *p;
86         p = result;
87     }
88     return p;
89 }
90 
91 /* FIXME: add proper locking */
92 struct tm *localtime_r(const time_t *timep, struct tm *result)
93 {
94     struct tm *p = localtime(timep);
95     memset(result, 0, sizeof(*result));
96     if (p) {
97         *result = *p;
98         p = result;
99     }
100     return p;
101 }
102 #endif /* _POSIX_THREAD_SAFE_FUNCTIONS */
103 
104 static int socket_error(void)
105 {
106     switch (WSAGetLastError()) {
107     case 0:
108         return 0;
109     case WSAEINTR:
110         return EINTR;
111     case WSAEINVAL:
112         return EINVAL;
113     case WSA_INVALID_HANDLE:
114         return EBADF;
115     case WSA_NOT_ENOUGH_MEMORY:
116         return ENOMEM;
117     case WSA_INVALID_PARAMETER:
118         return EINVAL;
119     case WSAENAMETOOLONG:
120         return ENAMETOOLONG;
121     case WSAENOTEMPTY:
122         return ENOTEMPTY;
123     case WSAEWOULDBLOCK:
124          /* not using EWOULDBLOCK as we don't want code to have
125           * to check both EWOULDBLOCK and EAGAIN */
126         return EAGAIN;
127     case WSAEINPROGRESS:
128         return EINPROGRESS;
129     case WSAEALREADY:
130         return EALREADY;
131     case WSAENOTSOCK:
132         return ENOTSOCK;
133     case WSAEDESTADDRREQ:
134         return EDESTADDRREQ;
135     case WSAEMSGSIZE:
136         return EMSGSIZE;
137     case WSAEPROTOTYPE:
138         return EPROTOTYPE;
139     case WSAENOPROTOOPT:
140         return ENOPROTOOPT;
141     case WSAEPROTONOSUPPORT:
142         return EPROTONOSUPPORT;
143     case WSAEOPNOTSUPP:
144         return EOPNOTSUPP;
145     case WSAEAFNOSUPPORT:
146         return EAFNOSUPPORT;
147     case WSAEADDRINUSE:
148         return EADDRINUSE;
149     case WSAEADDRNOTAVAIL:
150         return EADDRNOTAVAIL;
151     case WSAENETDOWN:
152         return ENETDOWN;
153     case WSAENETUNREACH:
154         return ENETUNREACH;
155     case WSAENETRESET:
156         return ENETRESET;
157     case WSAECONNABORTED:
158         return ECONNABORTED;
159     case WSAECONNRESET:
160         return ECONNRESET;
161     case WSAENOBUFS:
162         return ENOBUFS;
163     case WSAEISCONN:
164         return EISCONN;
165     case WSAENOTCONN:
166         return ENOTCONN;
167     case WSAETIMEDOUT:
168         return ETIMEDOUT;
169     case WSAECONNREFUSED:
170         return ECONNREFUSED;
171     case WSAELOOP:
172         return ELOOP;
173     case WSAEHOSTUNREACH:
174         return EHOSTUNREACH;
175     default:
176         return EIO;
177     }
178 }
179 
180 void qemu_socket_set_block(int fd)
181 {
182     unsigned long opt = 0;
183     qemu_socket_unselect(fd, NULL);
184     ioctlsocket(fd, FIONBIO, &opt);
185 }
186 
187 int qemu_socket_try_set_nonblock(int fd)
188 {
189     unsigned long opt = 1;
190     if (ioctlsocket(fd, FIONBIO, &opt) != NO_ERROR) {
191         return -socket_error();
192     }
193     return 0;
194 }
195 
196 void qemu_socket_set_nonblock(int fd)
197 {
198     (void)qemu_socket_try_set_nonblock(fd);
199 }
200 
201 int socket_set_fast_reuse(int fd)
202 {
203     /* Enabling the reuse of an endpoint that was used by a socket still in
204      * TIME_WAIT state is usually performed by setting SO_REUSEADDR. On Windows
205      * fast reuse is the default and SO_REUSEADDR does strange things. So we
206      * don't have to do anything here. More info can be found at:
207      * http://msdn.microsoft.com/en-us/library/windows/desktop/ms740621.aspx */
208     return 0;
209 }
210 
211 int inet_aton(const char *cp, struct in_addr *ia)
212 {
213     uint32_t addr = inet_addr(cp);
214     if (addr == 0xffffffff) {
215         return 0;
216     }
217     ia->s_addr = addr;
218     return 1;
219 }
220 
221 void qemu_set_cloexec(int fd)
222 {
223 }
224 
225 int qemu_get_thread_id(void)
226 {
227     return GetCurrentThreadId();
228 }
229 
230 char *
231 qemu_get_local_state_dir(void)
232 {
233     const char * const *data_dirs = g_get_system_data_dirs();
234 
235     g_assert(data_dirs && data_dirs[0]);
236 
237     return g_strdup(data_dirs[0]);
238 }
239 
240 void qemu_set_tty_echo(int fd, bool echo)
241 {
242     HANDLE handle = (HANDLE)_get_osfhandle(fd);
243     DWORD dwMode = 0;
244 
245     if (handle == INVALID_HANDLE_VALUE) {
246         return;
247     }
248 
249     GetConsoleMode(handle, &dwMode);
250 
251     if (echo) {
252         SetConsoleMode(handle, dwMode | ENABLE_ECHO_INPUT | ENABLE_LINE_INPUT);
253     } else {
254         SetConsoleMode(handle,
255                        dwMode & ~(ENABLE_ECHO_INPUT | ENABLE_LINE_INPUT));
256     }
257 }
258 
259 int getpagesize(void)
260 {
261     SYSTEM_INFO system_info;
262 
263     GetSystemInfo(&system_info);
264     return system_info.dwPageSize;
265 }
266 
267 bool qemu_prealloc_mem(int fd, char *area, size_t sz, int max_threads,
268                        ThreadContext *tc, bool async, Error **errp)
269 {
270     int i;
271     size_t pagesize = qemu_real_host_page_size();
272 
273     sz = (sz + pagesize - 1) & -pagesize;
274     for (i = 0; i < sz / pagesize; i++) {
275         memset(area + pagesize * i, 0, 1);
276     }
277 
278     return true;
279 }
280 
281 bool qemu_finish_async_prealloc_mem(Error **errp)
282 {
283     /* async prealloc not supported, there is nothing to finish */
284     return true;
285 }
286 
287 char *qemu_get_pid_name(pid_t pid)
288 {
289     /* XXX Implement me */
290     abort();
291 }
292 
293 
294 bool qemu_socket_select(int sockfd, WSAEVENT hEventObject,
295                         long lNetworkEvents, Error **errp)
296 {
297     SOCKET s = _get_osfhandle(sockfd);
298 
299     if (errp == NULL) {
300         errp = &error_warn;
301     }
302 
303     if (s == INVALID_SOCKET) {
304         error_setg(errp, "invalid socket fd=%d", sockfd);
305         return false;
306     }
307 
308     if (WSAEventSelect(s, hEventObject, lNetworkEvents) != 0) {
309         error_setg_win32(errp, WSAGetLastError(), "failed to WSAEventSelect()");
310         return false;
311     }
312 
313     return true;
314 }
315 
316 bool qemu_socket_unselect(int sockfd, Error **errp)
317 {
318     return qemu_socket_select(sockfd, NULL, 0, errp);
319 }
320 
321 int qemu_socketpair(int domain, int type, int protocol, int sv[2])
322 {
323     struct sockaddr_un addr = {
324         0,
325     };
326     socklen_t socklen;
327     int listener = -1;
328     int client = -1;
329     int server = -1;
330     g_autofree char *path = NULL;
331     int tmpfd;
332     u_long arg;
333     int ret = -1;
334 
335     g_return_val_if_fail(sv != NULL, -1);
336 
337     addr.sun_family = AF_UNIX;
338     socklen = sizeof(addr);
339 
340     tmpfd = g_file_open_tmp(NULL, &path, NULL);
341     if (tmpfd == -1 || !path) {
342         errno = EACCES;
343         goto out;
344     }
345 
346     close(tmpfd);
347 
348     if (strlen(path) >= sizeof(addr.sun_path)) {
349         errno = EINVAL;
350         goto out;
351     }
352 
353     strncpy(addr.sun_path, path, sizeof(addr.sun_path) - 1);
354 
355     listener = socket(domain, type, protocol);
356     if (listener == -1) {
357         goto out;
358     }
359 
360     if (DeleteFile(path) == 0 && GetLastError() != ERROR_FILE_NOT_FOUND) {
361         errno = EACCES;
362         goto out;
363     }
364     g_clear_pointer(&path, g_free);
365 
366     if (bind(listener, (struct sockaddr *)&addr, socklen) == -1) {
367         goto out;
368     }
369 
370     if (listen(listener, 1) == -1) {
371         goto out;
372     }
373 
374     client = socket(domain, type, protocol);
375     if (client == -1) {
376         goto out;
377     }
378 
379     arg = 1;
380     if (ioctlsocket(client, FIONBIO, &arg) != NO_ERROR) {
381         goto out;
382     }
383 
384     if (connect(client, (struct sockaddr *)&addr, socklen) == -1 &&
385         WSAGetLastError() != WSAEWOULDBLOCK) {
386         goto out;
387     }
388 
389     server = accept(listener, NULL, NULL);
390     if (server == -1) {
391         goto out;
392     }
393 
394     arg = 0;
395     if (ioctlsocket(client, FIONBIO, &arg) != NO_ERROR) {
396         goto out;
397     }
398 
399     arg = 0;
400     if (ioctlsocket(client, SIO_AF_UNIX_GETPEERPID, &arg) != NO_ERROR) {
401         goto out;
402     }
403 
404     if (arg != GetCurrentProcessId()) {
405         errno = EPERM;
406         goto out;
407     }
408 
409     sv[0] = server;
410     server = -1;
411     sv[1] = client;
412     client = -1;
413     ret = 0;
414 
415 out:
416     if (listener != -1) {
417         close(listener);
418     }
419     if (client != -1) {
420         close(client);
421     }
422     if (server != -1) {
423         close(server);
424     }
425     if (path) {
426         DeleteFile(path);
427     }
428     return ret;
429 }
430 
431 #undef connect
432 int qemu_connect_wrap(int sockfd, const struct sockaddr *addr,
433                       socklen_t addrlen)
434 {
435     int ret;
436     SOCKET s = _get_osfhandle(sockfd);
437 
438     if (s == INVALID_SOCKET) {
439         return -1;
440     }
441 
442     ret = connect(s, addr, addrlen);
443     if (ret < 0) {
444         if (WSAGetLastError() == WSAEWOULDBLOCK) {
445             errno = EINPROGRESS;
446         } else {
447             errno = socket_error();
448         }
449     }
450     return ret;
451 }
452 
453 
454 #undef listen
455 int qemu_listen_wrap(int sockfd, int backlog)
456 {
457     int ret;
458     SOCKET s = _get_osfhandle(sockfd);
459 
460     if (s == INVALID_SOCKET) {
461         return -1;
462     }
463 
464     ret = listen(s, backlog);
465     if (ret < 0) {
466         errno = socket_error();
467     }
468     return ret;
469 }
470 
471 
472 #undef bind
473 int qemu_bind_wrap(int sockfd, const struct sockaddr *addr,
474                    socklen_t addrlen)
475 {
476     int ret;
477     SOCKET s = _get_osfhandle(sockfd);
478 
479     if (s == INVALID_SOCKET) {
480         return -1;
481     }
482 
483     ret = bind(s, addr, addrlen);
484     if (ret < 0) {
485         errno = socket_error();
486     }
487     return ret;
488 }
489 
490 QEMU_USED EXCEPTION_DISPOSITION
491 win32_close_exception_handler(struct _EXCEPTION_RECORD *exception_record,
492                               void *registration, struct _CONTEXT *context,
493                               void *dispatcher)
494 {
495     return EXCEPTION_EXECUTE_HANDLER;
496 }
497 
498 #undef close
499 int qemu_close_socket_osfhandle(int fd)
500 {
501     SOCKET s = _get_osfhandle(fd);
502     DWORD flags = 0;
503 
504     /*
505      * If we were to just call _close on the descriptor, it would close the
506      * HANDLE, but it wouldn't free any of the resources associated to the
507      * SOCKET, and we can't call _close after calling closesocket, because
508      * closesocket has already closed the HANDLE, and _close would attempt to
509      * close the HANDLE again, resulting in a double free. We can however
510      * protect the HANDLE from actually being closed long enough to close the
511      * file descriptor, then close the socket itself.
512      */
513     if (!GetHandleInformation((HANDLE)s, &flags)) {
514         errno = EACCES;
515         return -1;
516     }
517 
518     if (!SetHandleInformation((HANDLE)s, HANDLE_FLAG_PROTECT_FROM_CLOSE, HANDLE_FLAG_PROTECT_FROM_CLOSE)) {
519         errno = EACCES;
520         return -1;
521     }
522 
523     __try1(win32_close_exception_handler) {
524         /*
525          * close() returns EBADF since we PROTECT_FROM_CLOSE the underlying
526          * handle, but the FD is actually freed
527          */
528         if (close(fd) < 0 && errno != EBADF) {
529             return -1;
530         }
531     }
532     __except1 {
533     }
534 
535     if (!SetHandleInformation((HANDLE)s, flags, flags)) {
536         errno = EACCES;
537         return -1;
538     }
539 
540     return 0;
541 }
542 
543 int qemu_close_wrap(int fd)
544 {
545     SOCKET s = INVALID_SOCKET;
546     int ret = -1;
547 
548     if (!fd_is_socket(fd)) {
549         return close(fd);
550     }
551 
552     s = _get_osfhandle(fd);
553     qemu_close_socket_osfhandle(fd);
554 
555     ret = closesocket(s);
556     if (ret < 0) {
557         errno = socket_error();
558     }
559 
560     return ret;
561 }
562 
563 
564 #undef socket
565 int qemu_socket_wrap(int domain, int type, int protocol)
566 {
567     SOCKET s;
568     int fd;
569 
570     s = socket(domain, type, protocol);
571     if (s == -1) {
572         errno = socket_error();
573         return -1;
574     }
575 
576     fd = _open_osfhandle(s, _O_BINARY);
577     if (fd < 0) {
578         closesocket(s);
579         /* _open_osfhandle may not set errno, and closesocket() may override it */
580         errno = ENOMEM;
581     }
582 
583     return fd;
584 }
585 
586 
587 #undef accept
588 int qemu_accept_wrap(int sockfd, struct sockaddr *addr,
589                      socklen_t *addrlen)
590 {
591     int fd;
592     SOCKET s = _get_osfhandle(sockfd);
593 
594     if (s == INVALID_SOCKET) {
595         return -1;
596     }
597 
598     s = accept(s, addr, addrlen);
599     if (s == -1) {
600         errno = socket_error();
601         return -1;
602     }
603 
604     fd = _open_osfhandle(s, _O_BINARY);
605     if (fd < 0) {
606         closesocket(s);
607         /* _open_osfhandle may not set errno, and closesocket() may override it */
608         errno = ENOMEM;
609     }
610 
611     return fd;
612 }
613 
614 
615 #undef shutdown
616 int qemu_shutdown_wrap(int sockfd, int how)
617 {
618     int ret;
619     SOCKET s = _get_osfhandle(sockfd);
620 
621     if (s == INVALID_SOCKET) {
622         return -1;
623     }
624 
625     ret = shutdown(s, how);
626     if (ret < 0) {
627         errno = socket_error();
628     }
629     return ret;
630 }
631 
632 
633 #undef ioctlsocket
634 int qemu_ioctlsocket_wrap(int fd, int req, void *val)
635 {
636     int ret;
637     SOCKET s = _get_osfhandle(fd);
638 
639     if (s == INVALID_SOCKET) {
640         return -1;
641     }
642 
643     ret = ioctlsocket(s, req, val);
644     if (ret < 0) {
645         errno = socket_error();
646     }
647     return ret;
648 }
649 
650 
651 #undef getsockopt
652 int qemu_getsockopt_wrap(int sockfd, int level, int optname,
653                          void *optval, socklen_t *optlen)
654 {
655     int ret;
656     SOCKET s = _get_osfhandle(sockfd);
657 
658     if (s == INVALID_SOCKET) {
659         return -1;
660     }
661 
662     ret = getsockopt(s, level, optname, optval, optlen);
663     if (ret < 0) {
664         errno = socket_error();
665     }
666     return ret;
667 }
668 
669 
670 #undef setsockopt
671 int qemu_setsockopt_wrap(int sockfd, int level, int optname,
672                          const void *optval, socklen_t optlen)
673 {
674     int ret;
675     SOCKET s = _get_osfhandle(sockfd);
676 
677     if (s == INVALID_SOCKET) {
678         return -1;
679     }
680 
681     ret = setsockopt(s, level, optname, optval, optlen);
682     if (ret < 0) {
683         errno = socket_error();
684     }
685     return ret;
686 }
687 
688 
689 #undef getpeername
690 int qemu_getpeername_wrap(int sockfd, struct sockaddr *addr,
691                           socklen_t *addrlen)
692 {
693     int ret;
694     SOCKET s = _get_osfhandle(sockfd);
695 
696     if (s == INVALID_SOCKET) {
697         return -1;
698     }
699 
700     ret = getpeername(s, addr, addrlen);
701     if (ret < 0) {
702         errno = socket_error();
703     }
704     return ret;
705 }
706 
707 
708 #undef getsockname
709 int qemu_getsockname_wrap(int sockfd, struct sockaddr *addr,
710                           socklen_t *addrlen)
711 {
712     int ret;
713     SOCKET s = _get_osfhandle(sockfd);
714 
715     if (s == INVALID_SOCKET) {
716         return -1;
717     }
718 
719     ret = getsockname(s, addr, addrlen);
720     if (ret < 0) {
721         errno = socket_error();
722     }
723     return ret;
724 }
725 
726 
727 #undef send
728 ssize_t qemu_send_wrap(int sockfd, const void *buf, size_t len, int flags)
729 {
730     int ret;
731     SOCKET s = _get_osfhandle(sockfd);
732 
733     if (s == INVALID_SOCKET) {
734         return -1;
735     }
736 
737     ret = send(s, buf, len, flags);
738     if (ret < 0) {
739         errno = socket_error();
740     }
741     return ret;
742 }
743 
744 
745 #undef sendto
746 ssize_t qemu_sendto_wrap(int sockfd, const void *buf, size_t len, int flags,
747                          const struct sockaddr *addr, socklen_t addrlen)
748 {
749     int ret;
750     SOCKET s = _get_osfhandle(sockfd);
751 
752     if (s == INVALID_SOCKET) {
753         return -1;
754     }
755 
756     ret = sendto(s, buf, len, flags, addr, addrlen);
757     if (ret < 0) {
758         errno = socket_error();
759     }
760     return ret;
761 }
762 
763 
764 #undef recv
765 ssize_t qemu_recv_wrap(int sockfd, void *buf, size_t len, int flags)
766 {
767     int ret;
768     SOCKET s = _get_osfhandle(sockfd);
769 
770     if (s == INVALID_SOCKET) {
771         return -1;
772     }
773 
774     ret = recv(s, buf, len, flags);
775     if (ret < 0) {
776         errno = socket_error();
777     }
778     return ret;
779 }
780 
781 
782 #undef recvfrom
783 ssize_t qemu_recvfrom_wrap(int sockfd, void *buf, size_t len, int flags,
784                            struct sockaddr *addr, socklen_t *addrlen)
785 {
786     int ret;
787     SOCKET s = _get_osfhandle(sockfd);
788 
789     if (s == INVALID_SOCKET) {
790         return -1;
791     }
792 
793     ret = recvfrom(s, buf, len, flags, addr, addrlen);
794     if (ret < 0) {
795         errno = socket_error();
796     }
797     return ret;
798 }
799 
800 bool qemu_write_pidfile(const char *filename, Error **errp)
801 {
802     char buffer[128];
803     int len;
804     HANDLE file;
805     OVERLAPPED overlap;
806     BOOL ret;
807     memset(&overlap, 0, sizeof(overlap));
808 
809     file = CreateFile(filename, GENERIC_WRITE, FILE_SHARE_READ, NULL,
810                       OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
811 
812     if (file == INVALID_HANDLE_VALUE) {
813         error_setg(errp, "Failed to create PID file");
814         return false;
815     }
816     len = snprintf(buffer, sizeof(buffer), FMT_pid "\n", (pid_t)getpid());
817     ret = WriteFile(file, (LPCVOID)buffer, (DWORD)len,
818                     NULL, &overlap);
819     CloseHandle(file);
820     if (ret == 0) {
821         error_setg(errp, "Failed to write PID file");
822         return false;
823     }
824     return true;
825 }
826 
827 size_t qemu_get_host_physmem(void)
828 {
829     MEMORYSTATUSEX statex;
830     statex.dwLength = sizeof(statex);
831 
832     if (GlobalMemoryStatusEx(&statex)) {
833         return statex.ullTotalPhys;
834     }
835     return 0;
836 }
837 
838 int qemu_msync(void *addr, size_t length, int fd)
839 {
840     /**
841      * Perform the sync based on the file descriptor
842      * The sync range will most probably be wider than the one
843      * requested - but it will still get the job done
844      */
845     return qemu_fdatasync(fd);
846 }
847 
848 void *qemu_win32_map_alloc(size_t size, HANDLE *h, Error **errp)
849 {
850     void *bits;
851 
852     trace_win32_map_alloc(size);
853 
854     *h = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0,
855                           size, NULL);
856     if (*h == NULL) {
857         error_setg_win32(errp, GetLastError(), "Failed to CreateFileMapping");
858         return NULL;
859     }
860 
861     bits = MapViewOfFile(*h, FILE_MAP_ALL_ACCESS, 0, 0, size);
862     if (bits == NULL) {
863         error_setg_win32(errp, GetLastError(), "Failed to MapViewOfFile");
864         CloseHandle(*h);
865         return NULL;
866     }
867 
868     return bits;
869 }
870 
871 void qemu_win32_map_free(void *ptr, HANDLE h, Error **errp)
872 {
873     trace_win32_map_free(ptr, h);
874 
875     if (UnmapViewOfFile(ptr) == 0) {
876         error_setg_win32(errp, GetLastError(), "Failed to UnmapViewOfFile");
877     }
878     CloseHandle(h);
879 }
880