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