2 * Win32 virtual memory functions
4 * Copyright 1997 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #include "wine/port.h"
28 #include <sys/types.h>
33 #define NONAMELESSUNION
34 #define NONAMELESSSTRUCT
41 #include "wine/exception.h"
43 #include "wine/debug.h"
45 WINE_DEFAULT_DEBUG_CHANNEL(virtual);
46 WINE_DECLARE_DEBUG_CHANNEL(seh);
48 static unsigned int page_size;
50 /* filter for page-fault exceptions */
51 static WINE_EXCEPTION_FILTER(page_fault)
53 if (GetExceptionCode() == EXCEPTION_ACCESS_VIOLATION)
54 return EXCEPTION_EXECUTE_HANDLER;
55 return EXCEPTION_CONTINUE_SEARCH;
59 /***********************************************************************
60 * VirtualAlloc (KERNEL32.@)
61 * Reserves or commits a region of pages in virtual address space
64 * Base address of allocated region of pages
67 LPVOID WINAPI VirtualAlloc(
68 LPVOID addr, /* [in] Address of region to reserve or commit */
69 SIZE_T size, /* [in] Size of region */
70 DWORD type, /* [in] Type of allocation */
71 DWORD protect)/* [in] Type of access protection */
73 return VirtualAllocEx( GetCurrentProcess(), addr, size, type, protect );
77 /***********************************************************************
78 * VirtualAllocEx (KERNEL32.@)
80 * Seems to be just as VirtualAlloc, but with process handle.
82 LPVOID WINAPI VirtualAllocEx(
83 HANDLE hProcess, /* [in] Handle of process to do mem operation */
84 LPVOID addr, /* [in] Address of region to reserve or commit */
85 SIZE_T size, /* [in] Size of region */
86 DWORD type, /* [in] Type of allocation */
87 DWORD protect ) /* [in] Type of access protection */
92 if ((status = NtAllocateVirtualMemory( hProcess, &ret, 0, &size, type, protect )))
94 SetLastError( RtlNtStatusToDosError(status) );
101 /***********************************************************************
102 * VirtualFree (KERNEL32.@)
103 * Release or decommits a region of pages in virtual address space.
109 BOOL WINAPI VirtualFree(
110 LPVOID addr, /* [in] Address of region of committed pages */
111 SIZE_T size, /* [in] Size of region */
112 DWORD type /* [in] Type of operation */
114 return VirtualFreeEx( GetCurrentProcess(), addr, size, type );
118 /***********************************************************************
119 * VirtualFreeEx (KERNEL32.@)
120 * Release or decommits a region of pages in virtual address space.
126 BOOL WINAPI VirtualFreeEx( HANDLE process, LPVOID addr, SIZE_T size, DWORD type )
128 NTSTATUS status = NtFreeVirtualMemory( process, &addr, &size, type );
129 if (status) SetLastError( RtlNtStatusToDosError(status) );
134 /***********************************************************************
135 * VirtualLock (KERNEL32.@)
136 * Locks the specified region of virtual address space
139 * Always returns TRUE
145 BOOL WINAPI VirtualLock( LPVOID addr, /* [in] Address of first byte of range to lock */
146 SIZE_T size ) /* [in] Number of bytes in range to lock */
148 NTSTATUS status = NtLockVirtualMemory( GetCurrentProcess(), &addr, &size, 1 );
149 if (status) SetLastError( RtlNtStatusToDosError(status) );
154 /***********************************************************************
155 * VirtualUnlock (KERNEL32.@)
156 * Unlocks a range of pages in the virtual address space
159 * Always returns TRUE
165 BOOL WINAPI VirtualUnlock( LPVOID addr, /* [in] Address of first byte of range */
166 SIZE_T size ) /* [in] Number of bytes in range */
168 NTSTATUS status = NtUnlockVirtualMemory( GetCurrentProcess(), &addr, &size, 1 );
169 if (status) SetLastError( RtlNtStatusToDosError(status) );
174 /***********************************************************************
175 * VirtualProtect (KERNEL32.@)
176 * Changes the access protection on a region of committed pages
182 BOOL WINAPI VirtualProtect(
183 LPVOID addr, /* [in] Address of region of committed pages */
184 SIZE_T size, /* [in] Size of region */
185 DWORD new_prot, /* [in] Desired access protection */
186 LPDWORD old_prot /* [out] Address of variable to get old protection */
188 return VirtualProtectEx( GetCurrentProcess(), addr, size, new_prot, old_prot );
192 /***********************************************************************
193 * VirtualProtectEx (KERNEL32.@)
194 * Changes the access protection on a region of committed pages in the
195 * virtual address space of a specified process
201 BOOL WINAPI VirtualProtectEx(
202 HANDLE process, /* [in] Handle of process */
203 LPVOID addr, /* [in] Address of region of committed pages */
204 SIZE_T size, /* [in] Size of region */
205 DWORD new_prot, /* [in] Desired access protection */
206 LPDWORD old_prot /* [out] Address of variable to get old protection */ )
208 NTSTATUS status = NtProtectVirtualMemory( process, &addr, &size, new_prot, old_prot );
209 if (status) SetLastError( RtlNtStatusToDosError(status) );
214 /***********************************************************************
215 * VirtualQuery (KERNEL32.@)
216 * Provides info about a range of pages in virtual address space
219 * Number of bytes returned in information buffer
220 * or 0 if addr is >= 0xc0000000 (kernel space).
222 SIZE_T WINAPI VirtualQuery(
223 LPCVOID addr, /* [in] Address of region */
224 PMEMORY_BASIC_INFORMATION info, /* [out] Address of info buffer */
225 SIZE_T len /* [in] Size of buffer */
227 return VirtualQueryEx( GetCurrentProcess(), addr, info, len );
231 /***********************************************************************
232 * VirtualQueryEx (KERNEL32.@)
233 * Provides info about a range of pages in virtual address space of a
237 * Number of bytes returned in information buffer
239 SIZE_T WINAPI VirtualQueryEx(
240 HANDLE process, /* [in] Handle of process */
241 LPCVOID addr, /* [in] Address of region */
242 PMEMORY_BASIC_INFORMATION info, /* [out] Address of info buffer */
243 SIZE_T len /* [in] Size of buffer */ )
248 if ((status = NtQueryVirtualMemory( process, addr, MemoryBasicInformation, info, len, &ret )))
250 SetLastError( RtlNtStatusToDosError(status) );
257 /***********************************************************************
258 * CreateFileMappingA (KERNEL32.@)
259 * Creates a named or unnamed file-mapping object for the specified file
263 * 0: Mapping object does not exist
266 HANDLE WINAPI CreateFileMappingA(
267 HANDLE hFile, /* [in] Handle of file to map */
268 SECURITY_ATTRIBUTES *sa, /* [in] Optional security attributes*/
269 DWORD protect, /* [in] Protection for mapping object */
270 DWORD size_high, /* [in] High-order 32 bits of object size */
271 DWORD size_low, /* [in] Low-order 32 bits of object size */
272 LPCSTR name /* [in] Name of file-mapping object */ )
274 WCHAR buffer[MAX_PATH];
276 if (!name) return CreateFileMappingW( hFile, sa, protect, size_high, size_low, NULL );
278 if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH ))
280 SetLastError( ERROR_FILENAME_EXCED_RANGE );
283 return CreateFileMappingW( hFile, sa, protect, size_high, size_low, buffer );
287 /***********************************************************************
288 * CreateFileMappingW (KERNEL32.@)
289 * See CreateFileMappingA
291 HANDLE WINAPI CreateFileMappingW( HANDLE hFile, LPSECURITY_ATTRIBUTES sa,
292 DWORD protect, DWORD size_high,
293 DWORD size_low, LPCWSTR name )
295 static const int sec_flags = SEC_FILE | SEC_IMAGE | SEC_RESERVE | SEC_COMMIT | SEC_NOCACHE;
298 OBJECT_ATTRIBUTES attr;
299 UNICODE_STRING nameW;
301 DWORD access, sec_type;
304 attr.Length = sizeof(attr);
305 attr.RootDirectory = 0;
306 attr.ObjectName = NULL;
307 attr.Attributes = (sa && sa->bInheritHandle) ? OBJ_INHERIT : 0;
308 attr.SecurityDescriptor = sa ? sa->lpSecurityDescriptor : NULL;
309 attr.SecurityQualityOfService = NULL;
313 RtlInitUnicodeString( &nameW, name );
314 attr.ObjectName = &nameW;
317 sec_type = protect & sec_flags;
318 protect &= ~sec_flags;
319 if (!sec_type) sec_type = SEC_COMMIT;
324 protect = PAGE_READONLY; /* Win9x compatibility */
328 access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ;
331 access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ | SECTION_MAP_WRITE;
334 SetLastError( ERROR_INVALID_PARAMETER );
338 if (hFile == INVALID_HANDLE_VALUE)
341 if (!size_low && !size_high)
343 SetLastError( ERROR_INVALID_PARAMETER );
348 size.u.LowPart = size_low;
349 size.u.HighPart = size_high;
351 status = NtCreateSection( &ret, access, &attr, &size, protect, sec_type, hFile );
352 SetLastError( RtlNtStatusToDosError(status) );
357 /***********************************************************************
358 * OpenFileMappingA (KERNEL32.@)
359 * Opens a named file-mapping object.
365 HANDLE WINAPI OpenFileMappingA(
366 DWORD access, /* [in] Access mode */
367 BOOL inherit, /* [in] Inherit flag */
368 LPCSTR name ) /* [in] Name of file-mapping object */
370 WCHAR buffer[MAX_PATH];
372 if (!name) return OpenFileMappingW( access, inherit, NULL );
374 if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH ))
376 SetLastError( ERROR_FILENAME_EXCED_RANGE );
379 return OpenFileMappingW( access, inherit, buffer );
383 /***********************************************************************
384 * OpenFileMappingW (KERNEL32.@)
385 * See OpenFileMappingA
387 HANDLE WINAPI OpenFileMappingW( DWORD access, BOOL inherit, LPCWSTR name)
389 OBJECT_ATTRIBUTES attr;
390 UNICODE_STRING nameW;
396 SetLastError( ERROR_INVALID_PARAMETER );
399 attr.Length = sizeof(attr);
400 attr.RootDirectory = 0;
401 attr.ObjectName = &nameW;
402 attr.Attributes = inherit ? OBJ_INHERIT : 0;
403 attr.SecurityDescriptor = NULL;
404 attr.SecurityQualityOfService = NULL;
405 RtlInitUnicodeString( &nameW, name );
407 if (access == FILE_MAP_COPY) access = FILE_MAP_READ;
409 if ((status = NtOpenSection( &ret, access, &attr )))
411 SetLastError( RtlNtStatusToDosError(status) );
418 /***********************************************************************
419 * MapViewOfFile (KERNEL32.@)
420 * Maps a view of a file into the address space
423 * Starting address of mapped view
426 LPVOID WINAPI MapViewOfFile(
427 HANDLE mapping, /* [in] File-mapping object to map */
428 DWORD access, /* [in] Access mode */
429 DWORD offset_high, /* [in] High-order 32 bits of file offset */
430 DWORD offset_low, /* [in] Low-order 32 bits of file offset */
431 SIZE_T count /* [in] Number of bytes to map */
433 return MapViewOfFileEx( mapping, access, offset_high,
434 offset_low, count, NULL );
438 /***********************************************************************
439 * MapViewOfFileEx (KERNEL32.@)
440 * Maps a view of a file into the address space
443 * Starting address of mapped view
446 LPVOID WINAPI MapViewOfFileEx(
447 HANDLE handle, /* [in] File-mapping object to map */
448 DWORD access, /* [in] Access mode */
449 DWORD offset_high, /* [in] High-order 32 bits of file offset */
450 DWORD offset_low, /* [in] Low-order 32 bits of file offset */
451 SIZE_T count, /* [in] Number of bytes to map */
452 LPVOID addr /* [in] Suggested starting address for mapped view */
455 LARGE_INTEGER offset;
458 offset.u.LowPart = offset_low;
459 offset.u.HighPart = offset_high;
461 if (access & FILE_MAP_WRITE) protect = PAGE_READWRITE;
462 else if (access & FILE_MAP_READ) protect = PAGE_READONLY;
463 else if (access & FILE_MAP_COPY) protect = PAGE_WRITECOPY;
464 else protect = PAGE_NOACCESS;
466 if ((status = NtMapViewOfSection( handle, GetCurrentProcess(), &addr, 0, 0, &offset,
467 &count, ViewShare, 0, protect )))
469 SetLastError( RtlNtStatusToDosError(status) );
476 /***********************************************************************
477 * UnmapViewOfFile (KERNEL32.@)
478 * Unmaps a mapped view of a file.
481 * Should addr be an LPCVOID?
487 BOOL WINAPI UnmapViewOfFile( LPVOID addr ) /* [in] Address where mapped view begins */
489 NTSTATUS status = NtUnmapViewOfSection( GetCurrentProcess(), addr );
490 if (status) SetLastError( RtlNtStatusToDosError(status) );
495 /***********************************************************************
496 * FlushViewOfFile (KERNEL32.@)
497 * Writes to the disk a byte range within a mapped view of a file
503 BOOL WINAPI FlushViewOfFile( LPCVOID base, /* [in] Start address of byte range to flush */
504 SIZE_T size ) /* [in] Number of bytes in range */
506 NTSTATUS status = NtFlushVirtualMemory( GetCurrentProcess(), &base, &size, 0 );
509 if (status == STATUS_NOT_MAPPED_DATA) status = STATUS_SUCCESS;
510 else SetLastError( RtlNtStatusToDosError(status) );
516 /***********************************************************************
517 * IsBadReadPtr (KERNEL32.@)
520 * FALSE: Process has read access to entire block
523 BOOL WINAPI IsBadReadPtr(
524 LPCVOID ptr, /* [in] Address of memory block */
525 UINT size ) /* [in] Size of block */
527 if (!size) return FALSE; /* handle 0 size case w/o reference */
528 if (!ptr) return TRUE;
530 if (!page_size) page_size = getpagesize();
533 volatile const char *p = ptr;
537 while (count > page_size)
544 dummy = p[count - 1];
548 TRACE_(seh)("%p caused page fault during read\n", ptr);
556 /***********************************************************************
557 * IsBadWritePtr (KERNEL32.@)
560 * FALSE: Process has write access to entire block
563 BOOL WINAPI IsBadWritePtr(
564 LPVOID ptr, /* [in] Address of memory block */
565 UINT size ) /* [in] Size of block in bytes */
567 if (!size) return FALSE; /* handle 0 size case w/o reference */
568 if (!ptr) return TRUE;
570 if (!page_size) page_size = getpagesize();
573 volatile char *p = ptr;
576 while (count > page_size)
587 TRACE_(seh)("%p caused page fault during write\n", ptr);
595 /***********************************************************************
596 * IsBadHugeReadPtr (KERNEL32.@)
598 * FALSE: Process has read access to entire block
601 BOOL WINAPI IsBadHugeReadPtr(
602 LPCVOID ptr, /* [in] Address of memory block */
603 UINT size /* [in] Size of block */
605 return IsBadReadPtr( ptr, size );
609 /***********************************************************************
610 * IsBadHugeWritePtr (KERNEL32.@)
612 * FALSE: Process has write access to entire block
615 BOOL WINAPI IsBadHugeWritePtr(
616 LPVOID ptr, /* [in] Address of memory block */
617 UINT size /* [in] Size of block */
619 return IsBadWritePtr( ptr, size );
623 /***********************************************************************
624 * IsBadCodePtr (KERNEL32.@)
627 * FALSE: Process has read access to specified memory
630 BOOL WINAPI IsBadCodePtr( FARPROC ptr ) /* [in] Address of function */
632 return IsBadReadPtr( ptr, 1 );
636 /***********************************************************************
637 * IsBadStringPtrA (KERNEL32.@)
640 * FALSE: Read access to all bytes in string
643 BOOL WINAPI IsBadStringPtrA(
644 LPCSTR str, /* [in] Address of string */
645 UINT max ) /* [in] Maximum size of string */
647 if (!str) return TRUE;
651 volatile const char *p = str;
652 while (p != str + max) if (!*p++) break;
656 TRACE_(seh)("%p caused page fault during read\n", str);
664 /***********************************************************************
665 * IsBadStringPtrW (KERNEL32.@)
666 * See IsBadStringPtrA
668 BOOL WINAPI IsBadStringPtrW( LPCWSTR str, UINT max )
670 if (!str) return TRUE;
674 volatile const WCHAR *p = str;
675 while (p != str + max) if (!*p++) break;
679 TRACE_(seh)("%p caused page fault during read\n", str);