dlls/kernel32/virtual.c

   1 /*
   2  * Win32 virtual memory functions
   3  *
   4  * Copyright 1997 Alexandre Julliard
   5  *
   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.
  10  *
  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.
  15  *
  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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22 #include "wine/port.h"
  23
  24 #include <fcntl.h>
  25 #include <stdarg.h>
  26 #include <stdlib.h>
  27 #include <string.h>
  28 #include <sys/types.h>
  29 #ifdef HAVE_UNISTD_H
  30 # include <unistd.h>
  31 #endif
  32
  33 #include "ntstatus.h"
  34 #define WIN32_NO_STATUS
  35 #define NONAMELESSUNION
  36 #include "windef.h"
  37 #include "winbase.h"
  38 #include "winnls.h"
  39 #include "winternl.h"
  40 #include "winerror.h"
  41 #include "psapi.h"
  42 #include "wine/exception.h"
  43 #include "wine/debug.h"
  44
  45 #include "kernel_private.h"
  46
  47 WINE_DECLARE_DEBUG_CHANNEL(seh);
  48 WINE_DECLARE_DEBUG_CHANNEL(file);
  49
  50
  51 /***********************************************************************
  52  *             VirtualAlloc   (KERNEL32.@)
  53  *
  54  * Reserves or commits a region of pages in virtual address space.
  55  *
  56  * PARAMS
  57  *  addr    [I] Address of region to reserve or commit.
  58  *  size    [I] Size of region.
  59  *  type    [I] Type of allocation.
  60  *  protect [I] Type of access protection.
  61  *
  62  * RETURNS
  63  *      Success: Base address of allocated region of pages.
  64  *      Failure: NULL.
  65  */
  66 LPVOID WINAPI DECLSPEC_HOTPATCH VirtualAlloc( void *addr, SIZE_T size, DWORD type, DWORD protect )
  67 {
  68     return VirtualAllocEx( GetCurrentProcess(), addr, size, type, protect );
  69 }
  70
  71
  72 /***********************************************************************
  73  *             VirtualAllocEx   (KERNEL32.@)
  74  *
  75  * Seems to be just as VirtualAlloc, but with process handle.
  76  *
  77  * PARAMS
  78  *  hProcess [I] Handle to process to do mem operation.
  79  *  addr     [I] Address of region to reserve or commit.
  80  *  size     [I] Size of region.
  81  *  type     [I] Type of allocation.
  82  *  protect  [I] Type of access protection.
  83  *
  84  *
  85  * RETURNS
  86  *      Success: Base address of allocated region of pages.
  87  *      Failure: NULL.
  88  */
  89 LPVOID WINAPI VirtualAllocEx( HANDLE hProcess, LPVOID addr, SIZE_T size,
  90     DWORD type, DWORD protect )
  91 {
  92     LPVOID ret = addr;
  93     NTSTATUS status;
  94
  95     if ((status = NtAllocateVirtualMemory( hProcess, &ret, 0, &size, type, protect )))
  96     {
  97         SetLastError( RtlNtStatusToDosError(status) );
  98         ret = NULL;
  99     }
 100     return ret;
 101 }
 102
 103
 104 /***********************************************************************
 105  *             VirtualFree   (KERNEL32.@)
 106  *
 107  * Releases or decommits a region of pages in virtual address space.
 108  *
 109  * PARAMS
 110  *  addr [I] Address of region of committed pages.
 111  *  size [I] Size of region.
 112  *  type [I] Type of operation.
 113  *
 114  * RETURNS
 115  *      Success: TRUE.
 116  *      Failure: FALSE.
 117  */
 118 BOOL WINAPI VirtualFree( LPVOID addr, SIZE_T size, DWORD type )
 119 {
 120     return VirtualFreeEx( GetCurrentProcess(), addr, size, type );
 121 }
 122
 123
 124 /***********************************************************************
 125  *             VirtualFreeEx   (KERNEL32.@)
 126  *
 127  * Releases or decommits a region of pages in virtual address space.
 128  *
 129  * PARAMS
 130  *  process [I] Handle to process.
 131  *  addr    [I] Address of region to free.
 132  *  size    [I] Size of region.
 133  *  type    [I] Type of operation.
 134  *
 135  * RETURNS
 136  *      Success: TRUE.
 137  *      Failure: FALSE.
 138  */
 139 BOOL WINAPI VirtualFreeEx( HANDLE process, LPVOID addr, SIZE_T size, DWORD type )
 140 {
 141     NTSTATUS status = NtFreeVirtualMemory( process, &addr, &size, type );
 142     if (status) SetLastError( RtlNtStatusToDosError(status) );
 143     return !status;
 144 }
 145
 146
 147 /***********************************************************************
 148  *             VirtualLock   (KERNEL32.@)
 149  *
 150  * Locks the specified region of virtual address space.
 151  *
 152  * PARAMS
 153  *  addr [I] Address of first byte of range to lock.
 154  *  size [I] Number of bytes in range to lock.
 155  *
 156  * RETURNS
 157  *      Success: TRUE.
 158  *      Failure: FALSE.
 159  *
 160  * NOTES
 161  *      Always returns TRUE.
 162  *
 163  */
 164 BOOL WINAPI VirtualLock( LPVOID addr, SIZE_T size )
 165 {
 166     NTSTATUS status = NtLockVirtualMemory( GetCurrentProcess(), &addr, &size, 1 );
 167     if (status) SetLastError( RtlNtStatusToDosError(status) );
 168     return !status;
 169 }
 170
 171
 172 /***********************************************************************
 173  *             VirtualUnlock   (KERNEL32.@)
 174  *
 175  * Unlocks a range of pages in the virtual address space.
 176  *
 177  * PARAMS
 178  *  addr [I] Address of first byte of range.
 179  *  size [I] Number of bytes in range.
 180  *
 181  * RETURNS
 182  *      Success: TRUE.
 183  *      Failure: FALSE.
 184  *
 185  * NOTES
 186  *      Always returns TRUE.
 187  *
 188  */
 189 BOOL WINAPI VirtualUnlock( LPVOID addr, SIZE_T size )
 190 {
 191     NTSTATUS status = NtUnlockVirtualMemory( GetCurrentProcess(), &addr, &size, 1 );
 192     if (status) SetLastError( RtlNtStatusToDosError(status) );
 193     return !status;
 194 }
 195
 196
 197 /***********************************************************************
 198  *             VirtualProtect   (KERNEL32.@)
 199  *
 200  * Changes the access protection on a region of committed pages.
 201  *
 202  * PARAMS
 203  *  addr     [I] Address of region of committed pages.
 204  *  size     [I] Size of region.
 205  *  new_prot [I] Desired access protection.
 206  *  old_prot [O] Address of variable to get old protection.
 207  *
 208  * RETURNS
 209  *      Success: TRUE.
 210  *      Failure: FALSE.
 211  */
 212 BOOL WINAPI VirtualProtect( LPVOID addr, SIZE_T size, DWORD new_prot, LPDWORD old_prot)
 213 {
 214     return VirtualProtectEx( GetCurrentProcess(), addr, size, new_prot, old_prot );
 215 }
 216
 217
 218 /***********************************************************************
 219  *             VirtualProtectEx   (KERNEL32.@)
 220  *
 221  * Changes the access protection on a region of committed pages in the
 222  * virtual address space of a specified process.
 223  *
 224  * PARAMS
 225  *  process  [I] Handle of process.
 226  *  addr     [I] Address of region of committed pages.
 227  *  size     [I] Size of region.
 228  *  new_prot [I] Desired access protection.
 229  *  old_prot [O] Address of variable to get old protection.
 230  *
 231  * RETURNS
 232  *      Success: TRUE.
 233  *      Failure: FALSE.
 234  */
 235 BOOL WINAPI VirtualProtectEx( HANDLE process, LPVOID addr, SIZE_T size,
 236     DWORD new_prot, LPDWORD old_prot )
 237 {
 238     NTSTATUS status;
 239     DWORD prot;
 240
 241     /* Win9x allows passing NULL as old_prot while this fails on NT */
 242     if (!old_prot && (GetVersion() & 0x80000000)) old_prot = &prot;
 243
 244     status = NtProtectVirtualMemory( process, &addr, &size, new_prot, old_prot );
 245     if (status) SetLastError( RtlNtStatusToDosError(status) );
 246     return !status;
 247 }
 248
 249
 250 /***********************************************************************
 251  *             VirtualQuery   (KERNEL32.@)
 252  *
 253  * Provides info about a range of pages in virtual address space.
 254  *
 255  * PARAMS
 256  *  addr [I] Address of region.
 257  *  info [O] Address of info buffer.
 258  *  len  [I] Size of buffer.
 259  *
 260  * RETURNS
 261  *      Number of bytes returned in information buffer or 0 if
 262  *      addr >= 0xc0000000 (kernel space).
 263  */
 264 SIZE_T WINAPI VirtualQuery( LPCVOID addr, PMEMORY_BASIC_INFORMATION info,
 265     SIZE_T len )
 266 {
 267     return VirtualQueryEx( GetCurrentProcess(), addr, info, len );
 268 }
 269
 270
 271 /***********************************************************************
 272  *             VirtualQueryEx   (KERNEL32.@)
 273  *
 274  * Provides info about a range of pages in virtual address space of a
 275  * specified process.
 276  *
 277  * PARAMS
 278  *  process [I] Handle to process.
 279  *  addr    [I] Address of region.
 280  *  info    [O] Address of info buffer.
 281  *  len     [I] Size of buffer.
 282  *
 283  * RETURNS
 284  *      Number of bytes returned in information buffer.
 285  */
 286 SIZE_T WINAPI VirtualQueryEx( HANDLE process, LPCVOID addr,
 287     PMEMORY_BASIC_INFORMATION info, SIZE_T len )
 288 {
 289     SIZE_T ret;
 290     NTSTATUS status;
 291
 292     if ((status = NtQueryVirtualMemory( process, addr, MemoryBasicInformation, info, len, &ret )))
 293     {
 294         SetLastError( RtlNtStatusToDosError(status) );
 295         ret = 0;
 296     }
 297     return ret;
 298 }
 299
 300
 301 /***********************************************************************
 302  *             CreateFileMappingA   (KERNEL32.@)
 303  *
 304  * Creates a named or unnamed file-mapping object for the specified file.
 305  *
 306  * PARAMS
 307  *  hFile     [I] Handle to the file to map.
 308  *  sa        [I] Optional security attributes.
 309  *  protect   [I] Protection for mapping object.
 310  *  size_high [I] High-order 32 bits of object size.
 311  *  size_low  [I] Low-order 32 bits of object size.
 312  *  name      [I] Name of file-mapping object.
 313  *
 314  * RETURNS
 315  *      Success: Handle.
 316  *      Failure: NULL. Mapping object does not exist.
 317  */
 318 HANDLE WINAPI CreateFileMappingA( HANDLE hFile, SECURITY_ATTRIBUTES *sa,
 319     DWORD protect, DWORD size_high, DWORD size_low, LPCSTR name )
 320 {
 321     WCHAR buffer[MAX_PATH];
 322
 323     if (!name) return CreateFileMappingW( hFile, sa, protect, size_high, size_low, NULL );
 324
 325     if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH ))
 326     {
 327         SetLastError( ERROR_FILENAME_EXCED_RANGE );
 328         return 0;
 329     }
 330     return CreateFileMappingW( hFile, sa, protect, size_high, size_low, buffer );
 331 }
 332
 333
 334 /***********************************************************************
 335  *             CreateFileMappingW   (KERNEL32.@)
 336  *
 337  * See CreateFileMappingA.
 338  */
 339 HANDLE WINAPI CreateFileMappingW( HANDLE hFile, LPSECURITY_ATTRIBUTES sa,
 340                                   DWORD protect, DWORD size_high,
 341                                   DWORD size_low, LPCWSTR name )
 342 {
 343     static const int sec_flags = SEC_FILE | SEC_IMAGE | SEC_RESERVE | SEC_COMMIT | SEC_NOCACHE;
 344
 345     HANDLE ret;
 346     NTSTATUS status;
 347     DWORD access, sec_type;
 348     LARGE_INTEGER size;
 349
 350     sec_type = protect & sec_flags;
 351     protect &= ~sec_flags;
 352     if (!sec_type) sec_type = SEC_COMMIT;
 353
 354     /* Win9x compatibility */
 355     if (!protect && (GetVersion() & 0x80000000)) protect = PAGE_READONLY;
 356
 357     switch(protect)
 358     {
 359     case PAGE_READONLY:
 360     case PAGE_WRITECOPY:
 361         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ;
 362         break;
 363     case PAGE_READWRITE:
 364         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ | SECTION_MAP_WRITE;
 365         break;
 366     case PAGE_EXECUTE_READ:
 367     case PAGE_EXECUTE_WRITECOPY:
 368         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ | SECTION_MAP_EXECUTE;
 369         break;
 370     case PAGE_EXECUTE_READWRITE:
 371         access = STANDARD_RIGHTS_REQUIRED | SECTION_QUERY | SECTION_MAP_READ | SECTION_MAP_WRITE | SECTION_MAP_EXECUTE;
 372         break;
 373     default:
 374         SetLastError( ERROR_INVALID_PARAMETER );
 375         return 0;
 376     }
 377
 378     if (hFile == INVALID_HANDLE_VALUE)
 379     {
 380         hFile = 0;
 381         if (!size_low && !size_high)
 382         {
 383             SetLastError( ERROR_INVALID_PARAMETER );
 384             return 0;
 385         }
 386     }
 387
 388     size.u.LowPart  = size_low;
 389     size.u.HighPart = size_high;
 390
 391     if (sa || name)
 392     {
 393         OBJECT_ATTRIBUTES attr;
 394         UNICODE_STRING nameW;
 395
 396         attr.Length                   = sizeof(attr);
 397         attr.RootDirectory            = 0;
 398         attr.ObjectName               = NULL;
 399         attr.Attributes               = OBJ_OPENIF | ((sa && sa->bInheritHandle) ? OBJ_INHERIT : 0);
 400         attr.SecurityDescriptor       = sa ? sa->lpSecurityDescriptor : NULL;
 401         attr.SecurityQualityOfService = NULL;
 402         if (name)
 403         {
 404             RtlInitUnicodeString( &nameW, name );
 405             attr.ObjectName = &nameW;
 406             attr.RootDirectory = get_BaseNamedObjects_handle();
 407         }
 408         status = NtCreateSection( &ret, access, &attr, &size, protect, sec_type, hFile );
 409     }
 410     else status = NtCreateSection( &ret, access, NULL, &size, protect, sec_type, hFile );
 411
 412     if (status == STATUS_OBJECT_NAME_EXISTS)
 413         SetLastError( ERROR_ALREADY_EXISTS );
 414     else
 415         SetLastError( RtlNtStatusToDosError(status) );
 416     return ret;
 417 }
 418
 419
 420 /***********************************************************************
 421  *             OpenFileMappingA   (KERNEL32.@)
 422  *
 423  * Opens a named file-mapping object.
 424  *
 425  * PARAMS
 426  *  access  [I] Access mode.
 427  *  inherit [I] Inherit flag.
 428  *  name    [I] Name of file-mapping object.
 429  *
 430  * RETURNS
 431  *      Success: Handle.
 432  *      Failure: NULL.
 433  */
 434 HANDLE WINAPI OpenFileMappingA( DWORD access, BOOL inherit, LPCSTR name )
 435 {
 436     WCHAR buffer[MAX_PATH];
 437
 438     if (!name) return OpenFileMappingW( access, inherit, NULL );
 439
 440     if (!MultiByteToWideChar( CP_ACP, 0, name, -1, buffer, MAX_PATH ))
 441     {
 442         SetLastError( ERROR_FILENAME_EXCED_RANGE );
 443         return 0;
 444     }
 445     return OpenFileMappingW( access, inherit, buffer );
 446 }
 447
 448
 449 /***********************************************************************
 450  *             OpenFileMappingW   (KERNEL32.@)
 451  *
 452  * See OpenFileMappingA.
 453  */
 454 HANDLE WINAPI OpenFileMappingW( DWORD access, BOOL inherit, LPCWSTR name)
 455 {
 456     OBJECT_ATTRIBUTES attr;
 457     UNICODE_STRING nameW;
 458     HANDLE ret;
 459     NTSTATUS status;
 460
 461     if (!name)
 462     {
 463         SetLastError( ERROR_INVALID_PARAMETER );
 464         return 0;
 465     }
 466     attr.Length = sizeof(attr);
 467     attr.RootDirectory = get_BaseNamedObjects_handle();
 468     attr.ObjectName = &nameW;
 469     attr.Attributes = inherit ? OBJ_INHERIT : 0;
 470     attr.SecurityDescriptor = NULL;
 471     attr.SecurityQualityOfService = NULL;
 472     RtlInitUnicodeString( &nameW, name );
 473
 474     if (access == FILE_MAP_COPY) access = SECTION_MAP_READ;
 475
 476     if (GetVersion() & 0x80000000)
 477     {
 478         /* win9x doesn't do access checks, so try with full access first */
 479         if (!NtOpenSection( &ret, access | SECTION_MAP_READ | SECTION_MAP_WRITE, &attr )) return ret;
 480     }
 481
 482     if ((status = NtOpenSection( &ret, access, &attr )))
 483     {
 484         SetLastError( RtlNtStatusToDosError(status) );
 485         ret = 0;
 486     }
 487     return ret;
 488 }
 489
 490
 491 /***********************************************************************
 492  *             MapViewOfFile   (KERNEL32.@)
 493  *
 494  * Maps a view of a file into the address space.
 495  *
 496  * PARAMS
 497  *  mapping     [I] File-mapping object to map.
 498  *  access      [I] Access mode.
 499  *  offset_high [I] High-order 32 bits of file offset.
 500  *  offset_low  [I] Low-order 32 bits of file offset.
 501  *  count       [I] Number of bytes to map.
 502  *
 503  * RETURNS
 504  *      Success: Starting address of mapped view.
 505  *      Failure: NULL.
 506  */
 507 LPVOID WINAPI DECLSPEC_HOTPATCH MapViewOfFile( HANDLE mapping, DWORD access,
 508     DWORD offset_high, DWORD offset_low, SIZE_T count )
 509 {
 510     return MapViewOfFileEx( mapping, access, offset_high,
 511                             offset_low, count, NULL );
 512 }
 513
 514
 515 /***********************************************************************
 516  *             MapViewOfFileEx   (KERNEL32.@)
 517  *
 518  * Maps a view of a file into the address space.
 519  *
 520  * PARAMS
 521  *  handle      [I] File-mapping object to map.
 522  *  access      [I] Access mode.
 523  *  offset_high [I] High-order 32 bits of file offset.
 524  *  offset_low  [I] Low-order 32 bits of file offset.
 525  *  count       [I] Number of bytes to map.
 526  *  addr        [I] Suggested starting address for mapped view.
 527  *
 528  * RETURNS
 529  *      Success: Starting address of mapped view.
 530  *      Failure: NULL.
 531  */
 532 LPVOID WINAPI MapViewOfFileEx( HANDLE handle, DWORD access,
 533     DWORD offset_high, DWORD offset_low, SIZE_T count, LPVOID addr )
 534 {
 535     NTSTATUS status;
 536     LARGE_INTEGER offset;
 537     ULONG protect;
 538     BOOL exec;
 539
 540     offset.u.LowPart  = offset_low;
 541     offset.u.HighPart = offset_high;
 542
 543     exec = access & FILE_MAP_EXECUTE;
 544     access &= ~FILE_MAP_EXECUTE;
 545
 546     if (access == FILE_MAP_COPY)
 547         protect = exec ? PAGE_EXECUTE_WRITECOPY : PAGE_WRITECOPY;
 548     else if (access & FILE_MAP_WRITE)
 549         protect = exec ? PAGE_EXECUTE_READWRITE : PAGE_READWRITE;
 550     else if (access & FILE_MAP_READ)
 551         protect = exec ? PAGE_EXECUTE_READ : PAGE_READONLY;
 552     else protect = PAGE_NOACCESS;
 553
 554     if ((status = NtMapViewOfSection( handle, GetCurrentProcess(), &addr, 0, 0, &offset,
 555                                       &count, ViewShare, 0, protect )) < 0)
 556     {
 557         SetLastError( RtlNtStatusToDosError(status) );
 558         addr = NULL;
 559     }
 560     return addr;
 561 }
 562
 563
 564 /***********************************************************************
 565  *             UnmapViewOfFile   (KERNEL32.@)
 566  *
 567  * Unmaps a mapped view of a file.
 568  *
 569  * PARAMS
 570  *  addr [I] Address where mapped view begins.
 571  *
 572  * RETURNS
 573  *      Success: TRUE.
 574  *      Failure: FALSE.
 575  *
 576  */
 577 BOOL WINAPI UnmapViewOfFile( LPCVOID addr )
 578 {
 579     NTSTATUS status;
 580
 581     if (GetVersion() & 0x80000000)
 582     {
 583         MEMORY_BASIC_INFORMATION info;
 584         if (!VirtualQuery( addr, &info, sizeof(info) ) || info.AllocationBase != addr)
 585         {
 586             SetLastError( ERROR_INVALID_ADDRESS );
 587             return FALSE;
 588         }
 589     }
 590
 591     status = NtUnmapViewOfSection( GetCurrentProcess(), (void *)addr );
 592     if (status) SetLastError( RtlNtStatusToDosError(status) );
 593     return !status;
 594 }
 595
 596
 597 /***********************************************************************
 598  *             FlushViewOfFile   (KERNEL32.@)
 599  *
 600  * Writes to the disk a byte range within a mapped view of a file.
 601  *
 602  * PARAMS
 603  *  base [I] Start address of byte range to flush.
 604  *  size [I] Number of bytes in range.
 605  *
 606  * RETURNS
 607  *      Success: TRUE.
 608  *      Failure: FALSE.
 609  */
 610 BOOL WINAPI FlushViewOfFile( LPCVOID base, SIZE_T size )
 611 {
 612     NTSTATUS status = NtFlushVirtualMemory( GetCurrentProcess(), &base, &size, 0 );
 613     if (status)
 614     {
 615         if (status == STATUS_NOT_MAPPED_DATA) status = STATUS_SUCCESS;
 616         else SetLastError( RtlNtStatusToDosError(status) );
 617     }
 618     return !status;
 619 }
 620
 621
 622 /***********************************************************************
 623  *             GetWriteWatch   (KERNEL32.@)
 624  */
 625 UINT WINAPI GetWriteWatch( DWORD flags, LPVOID base, SIZE_T size, LPVOID *addresses,
 626                            ULONG_PTR *count, ULONG *granularity )
 627 {
 628     NTSTATUS status;
 629
 630     status = NtGetWriteWatch( GetCurrentProcess(), flags, base, size, addresses, count, granularity );
 631     if (status) SetLastError( RtlNtStatusToDosError(status) );
 632     return status ? ~0u : 0;
 633 }
 634
 635
 636 /***********************************************************************
 637  *             ResetWriteWatch   (KERNEL32.@)
 638  */
 639 UINT WINAPI ResetWriteWatch( LPVOID base, SIZE_T size )
 640 {
 641     NTSTATUS status;
 642
 643     status = NtResetWriteWatch( GetCurrentProcess(), base, size );
 644     if (status) SetLastError( RtlNtStatusToDosError(status) );
 645     return status ? ~0u : 0;
 646 }
 647
 648
 649 /***********************************************************************
 650  *             IsBadReadPtr   (KERNEL32.@)
 651  *
 652  * Check for read access on a memory block.
 653  *
 654  * ptr  [I] Address of memory block.
 655  * size [I] Size of block.
 656  *
 657  * RETURNS
 658  *  Success: TRUE.
 659  *      Failure: FALSE. Process has read access to entire block.
 660  */
 661 BOOL WINAPI IsBadReadPtr( LPCVOID ptr, UINT_PTR size )
 662 {
 663     if (!size) return FALSE;  /* handle 0 size case w/o reference */
 664     if (!ptr) return TRUE;
 665     __TRY
 666     {
 667         volatile const char *p = ptr;
 668         char dummy __attribute__((unused));
 669         UINT_PTR count = size;
 670
 671         while (count > system_info.PageSize)
 672         {
 673             dummy = *p;
 674             p += system_info.PageSize;
 675             count -= system_info.PageSize;
 676         }
 677         dummy = p[0];
 678         dummy = p[count - 1];
 679     }
 680     __EXCEPT_PAGE_FAULT
 681     {
 682         TRACE_(seh)("%p caused page fault during read\n", ptr);
 683         return TRUE;
 684     }
 685     __ENDTRY
 686     return FALSE;
 687 }
 688
 689
 690 /***********************************************************************
 691  *             IsBadWritePtr   (KERNEL32.@)
 692  *
 693  * Check for write access on a memory block.
 694  *
 695  * PARAMS
 696  *  ptr  [I] Address of memory block.
 697  *  size [I] Size of block in bytes.
 698  *
 699  * RETURNS
 700  *  Success: TRUE.
 701  *      Failure: FALSE. Process has write access to entire block.
 702  */
 703 BOOL WINAPI IsBadWritePtr( LPVOID ptr, UINT_PTR size )
 704 {
 705     if (!size) return FALSE;  /* handle 0 size case w/o reference */
 706     if (!ptr) return TRUE;
 707     __TRY
 708     {
 709         volatile char *p = ptr;
 710         UINT_PTR count = size;
 711
 712         while (count > system_info.PageSize)
 713         {
 714             *p |= 0;
 715             p += system_info.PageSize;
 716             count -= system_info.PageSize;
 717         }
 718         p[0] |= 0;
 719         p[count - 1] |= 0;
 720     }
 721     __EXCEPT_PAGE_FAULT
 722     {
 723         TRACE_(seh)("%p caused page fault during write\n", ptr);
 724         return TRUE;
 725     }
 726     __ENDTRY
 727     return FALSE;
 728 }
 729
 730
 731 /***********************************************************************
 732  *             IsBadHugeReadPtr   (KERNEL32.@)
 733  *
 734  * Check for read access on a memory block.
 735  *
 736  * PARAMS
 737  *  ptr  [I] Address of memory block.
 738  *  size [I] Size of block.
 739  *
 740  * RETURNS
 741  *  Success: TRUE.
 742  *      Failure: FALSE. Process has read access to entire block.
 743  */
 744 BOOL WINAPI IsBadHugeReadPtr( LPCVOID ptr, UINT_PTR size )
 745 {
 746     return IsBadReadPtr( ptr, size );
 747 }
 748
 749
 750 /***********************************************************************
 751  *             IsBadHugeWritePtr   (KERNEL32.@)
 752  *
 753  * Check for write access on a memory block.
 754  *
 755  * PARAMS
 756  *  ptr  [I] Address of memory block.
 757  *  size [I] Size of block.
 758  *
 759  * RETURNS
 760  *  Success: TRUE.
 761  *      Failure: FALSE. Process has write access to entire block.
 762  */
 763 BOOL WINAPI IsBadHugeWritePtr( LPVOID ptr, UINT_PTR size )
 764 {
 765     return IsBadWritePtr( ptr, size );
 766 }
 767
 768
 769 /***********************************************************************
 770  *             IsBadCodePtr   (KERNEL32.@)
 771  *
 772  * Check for read access on a memory address.
 773  *
 774  * PARAMS
 775  *  ptr [I] Address of function.
 776  *
 777  * RETURNS
 778  *      Success: TRUE.
 779  *      Failure: FALSE. Process has read access to specified memory.
 780  */
 781 BOOL WINAPI IsBadCodePtr( FARPROC ptr )
 782 {
 783     return IsBadReadPtr( ptr, 1 );
 784 }
 785
 786
 787 /***********************************************************************
 788  *             IsBadStringPtrA   (KERNEL32.@)
 789  *
 790  * Check for read access on a range of memory pointed to by a string pointer.
 791  *
 792  * PARAMS
 793  *  str [I] Address of string.
 794  *  max [I] Maximum size of string.
 795  *
 796  * RETURNS
 797  *      Success: TRUE.
 798  *      Failure: FALSE. Read access to all bytes in string.
 799  */
 800 BOOL WINAPI IsBadStringPtrA( LPCSTR str, UINT_PTR max )
 801 {
 802     if (!str) return TRUE;
 803
 804     __TRY
 805     {
 806         volatile const char *p = str;
 807         while (p != str + max) if (!*p++) break;
 808     }
 809     __EXCEPT_PAGE_FAULT
 810     {
 811         TRACE_(seh)("%p caused page fault during read\n", str);
 812         return TRUE;
 813     }
 814     __ENDTRY
 815     return FALSE;
 816 }
 817
 818
 819 /***********************************************************************
 820  *             IsBadStringPtrW   (KERNEL32.@)
 821  *
 822  * See IsBadStringPtrA.
 823  */
 824 BOOL WINAPI IsBadStringPtrW( LPCWSTR str, UINT_PTR max )
 825 {
 826     if (!str) return TRUE;
 827
 828     __TRY
 829     {
 830         volatile const WCHAR *p = str;
 831         while (p != str + max) if (!*p++) break;
 832     }
 833     __EXCEPT_PAGE_FAULT
 834     {
 835         TRACE_(seh)("%p caused page fault during read\n", str);
 836         return TRUE;
 837     }
 838     __ENDTRY
 839     return FALSE;
 840 }
 841
 842 /***********************************************************************
 843  *           K32GetMappedFileNameA (KERNEL32.@)
 844  */
 845 DWORD WINAPI K32GetMappedFileNameA(HANDLE process, LPVOID lpv, LPSTR file_name, DWORD size)
 846 {
 847     FIXME_(file)("(%p, %p, %p, %d): stub\n", process, lpv, file_name, size);
 848
 849     if (file_name && size)
 850         file_name[0] = '\0';
 851
 852     return 0;
 853 }
 854
 855 /***********************************************************************
 856  *           K32GetMappedFileNameW (KERNEL32.@)
 857  */
 858 DWORD WINAPI K32GetMappedFileNameW(HANDLE process, LPVOID lpv, LPWSTR file_name, DWORD size)
 859 {
 860     FIXME_(file)("(%p, %p, %p, %d): stub\n", process, lpv, file_name, size);
 861
 862     if (file_name && size)
 863         file_name[0] = '\0';
 864
 865     return 0;
 866 }
 867
 868 /***********************************************************************
 869  *           K32EnumPageFilesA (KERNEL32.@)
 870  */
 871 BOOL WINAPI K32EnumPageFilesA( PENUM_PAGE_FILE_CALLBACKA callback, LPVOID context )
 872 {
 873     FIXME_(file)("(%p, %p) stub\n", callback, context );
 874     return FALSE;
 875 }
 876
 877 /***********************************************************************
 878  *           K32EnumPageFilesW (KERNEL32.@)
 879  */
 880 BOOL WINAPI K32EnumPageFilesW( PENUM_PAGE_FILE_CALLBACKW callback, LPVOID context )
 881 {
 882     FIXME_(file)("(%p, %p) stub\n", callback, context );
 883     return FALSE;
 884 }
 885
 886 /***********************************************************************
 887  *           K32GetWsChanges (KERNEL32.@)
 888  */
 889 BOOL WINAPI K32GetWsChanges(HANDLE process, PPSAPI_WS_WATCH_INFORMATION watchinfo, DWORD size)
 890 {
 891     NTSTATUS status;
 892
 893     TRACE_(seh)("(%p, %p, %d)\n", process, watchinfo, size);
 894
 895     status = NtQueryInformationProcess( process, ProcessWorkingSetWatch, watchinfo, size, NULL );
 896
 897     if (status)
 898     {
 899         SetLastError( RtlNtStatusToDosError( status ) );
 900         return FALSE;
 901     }
 902     return TRUE;
 903 }
 904
 905 /***********************************************************************
 906  *           K32InitializeProcessForWsWatch (KERNEL32.@)
 907  */
 908 BOOL WINAPI K32InitializeProcessForWsWatch(HANDLE process)
 909 {
 910     FIXME_(seh)("(process=%p): stub\n", process);
 911
 912     return TRUE;
 913 }