4 * Copyright 1995, 1996 Alexandre Julliard
5 * Copyright 1996 Huw Davies
6 * Copyright 1998 Ulrich Weigand
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
29 #include <sys/types.h>
37 #include "kernel_private.h"
39 #include "wine/exception.h"
40 #include "wine/debug.h"
42 WINE_DEFAULT_DEBUG_CHANNEL(globalmem
);
44 /* address where we try to map the system heap */
45 #define SYSTEM_HEAP_BASE ((void*)0x80000000)
46 #define SYSTEM_HEAP_SIZE 0x1000000 /* Default heap size = 16Mb */
48 static HANDLE systemHeap
; /* globally shared heap */
51 /***********************************************************************
52 * HEAP_CreateSystemHeap
54 * Create the system heap.
56 static inline HANDLE
HEAP_CreateSystemHeap(void)
62 /* create the system heap event first */
63 event
= CreateEventA( NULL
, TRUE
, FALSE
, "__wine_system_heap_event" );
65 if (!(map
= CreateFileMappingA( INVALID_HANDLE_VALUE
, NULL
, SEC_COMMIT
| PAGE_READWRITE
,
66 0, SYSTEM_HEAP_SIZE
, "__wine_system_heap" ))) return 0;
67 created
= (GetLastError() != ERROR_ALREADY_EXISTS
);
69 if (!(base
= MapViewOfFileEx( map
, FILE_MAP_ALL_ACCESS
, 0, 0, 0, SYSTEM_HEAP_BASE
)))
71 /* pre-defined address not available */
72 ERR( "system heap base address %p not available\n", SYSTEM_HEAP_BASE
);
76 if (created
) /* newly created heap */
78 systemHeap
= RtlCreateHeap( HEAP_SHARED
, base
, SYSTEM_HEAP_SIZE
,
79 SYSTEM_HEAP_SIZE
, NULL
, NULL
);
84 /* wait for the heap to be initialized */
85 WaitForSingleObject( event
, INFINITE
);
93 /***********************************************************************
94 * HeapCreate (KERNEL32.@)
96 * Create a heap object.
99 * Handle of heap: Success
102 HANDLE WINAPI
HeapCreate(
103 DWORD flags
, /* [in] Heap allocation flag */
104 SIZE_T initialSize
, /* [in] Initial heap size */
105 SIZE_T maxSize
/* [in] Maximum heap size */
109 if ( flags
& HEAP_SHARED
)
111 if (!systemHeap
) HEAP_CreateSystemHeap();
112 else WARN( "Shared Heap requested, returning system heap.\n" );
117 ret
= RtlCreateHeap( flags
, NULL
, maxSize
, initialSize
, NULL
, NULL
);
118 if (!ret
) SetLastError( ERROR_NOT_ENOUGH_MEMORY
);
124 /***********************************************************************
125 * HeapDestroy (KERNEL32.@)
127 * Destroy a heap object.
133 BOOL WINAPI
HeapDestroy( HANDLE heap
/* [in] Handle of heap */ )
135 if (heap
== systemHeap
)
137 WARN( "attempt to destroy system heap, returning TRUE!\n" );
140 if (!RtlDestroyHeap( heap
)) return TRUE
;
141 SetLastError( ERROR_INVALID_HANDLE
);
146 /***********************************************************************
147 * Global/local heap functions, keep in sync with kernelbase/memory.c
148 ***********************************************************************/
150 #include "pshpack1.h"
162 struct kernelbase_global_data
*kernelbase_global_data
;
164 #define MAGIC_LOCAL_USED 0x5342
165 #define POINTER_TO_HANDLE( p ) (*(((const HGLOBAL *)( p )) - 2))
166 /* align the storage needed for the HLOCAL on an 8-byte boundary thus
167 * LocalAlloc/LocalReAlloc'ing with LMEM_MOVEABLE of memory with
168 * size = 8*k, where k=1,2,3,... allocs exactly the given size.
169 * The Minolta DiMAGE Image Viewer heavily relies on this, corrupting
170 * the output jpeg's > 1 MB if not */
171 #define HLOCAL_STORAGE (sizeof(HLOCAL) * 2)
173 static inline struct mem_entry
*unsafe_mem_from_HLOCAL( HLOCAL handle
)
175 struct mem_entry
*mem
= CONTAINING_RECORD( handle
, struct mem_entry
, ptr
);
176 if (!((ULONG_PTR
)handle
& 2)) return NULL
;
177 if (mem
->magic
!= MAGIC_LOCAL_USED
) return NULL
;
181 static inline void *unsafe_ptr_from_HLOCAL( HLOCAL handle
)
183 if ((ULONG_PTR
)handle
& 2) return NULL
;
188 /***********************************************************************
189 * GlobalLock (KERNEL32.@)
191 * Lock a global memory object and return a pointer to first byte of the memory
194 * handle [I] Handle of the global memory object
197 * Success: Pointer to first byte of the memory block
201 * When the handle is invalid, last error is set to ERROR_INVALID_HANDLE
204 void *WINAPI
GlobalLock( HGLOBAL handle
)
206 return LocalLock( handle
);
210 /***********************************************************************
211 * GlobalUnlock (KERNEL32.@)
213 * Unlock a global memory object.
216 * handle [I] Handle of the global memory object
219 * Success: Object is still locked
220 * Failure: FALSE (The Object is unlocked)
223 * When the handle is invalid, last error is set to ERROR_INVALID_HANDLE
226 BOOL WINAPI
GlobalUnlock( HGLOBAL handle
)
228 if (unsafe_ptr_from_HLOCAL( handle
)) return TRUE
;
229 return LocalUnlock( handle
);
233 /***********************************************************************
234 * GlobalHandle (KERNEL32.@)
236 * Get the handle associated with the pointer to a global memory block.
242 HGLOBAL WINAPI
GlobalHandle( const void *ptr
)
244 struct mem_entry
*mem
;
248 TRACE_(globalmem
)( "ptr %p\n", ptr
);
252 SetLastError( ERROR_INVALID_PARAMETER
);
256 RtlLockHeap( GetProcessHeap() );
261 /* note that if ptr is a pointer to a block allocated by */
262 /* GlobalAlloc with GMEM_MOVEABLE then magic test in HeapValidate */
264 if ((ptr
= unsafe_ptr_from_HLOCAL( (HLOCAL
)ptr
)))
266 if (HeapValidate( GetProcessHeap(), HEAP_NO_SERIALIZE
, ptr
))
268 handle
= (HGLOBAL
)ptr
; /* valid fixed block */
271 handle
= POINTER_TO_HANDLE( ptr
);
273 else handle
= (HGLOBAL
)ptr
;
275 /* Now test handle either passed in or retrieved from pointer */
276 if ((mem
= unsafe_mem_from_HLOCAL( handle
)))
279 if (HeapValidate( GetProcessHeap(), HEAP_NO_SERIALIZE
, (const char *)test
- HLOCAL_STORAGE
) && /* obj(-handle) valid arena? */
280 HeapValidate( GetProcessHeap(), HEAP_NO_SERIALIZE
, mem
)) /* intern valid arena? */
281 break; /* valid moveable block */
284 SetLastError( ERROR_INVALID_HANDLE
);
288 SetLastError( ERROR_INVALID_HANDLE
);
292 RtlUnlockHeap( GetProcessHeap() );
297 /***********************************************************************
298 * GlobalReAlloc (KERNEL32.@)
300 * Change the size or attributes of a global memory object.
306 HGLOBAL WINAPI
GlobalReAlloc( HGLOBAL handle
, SIZE_T size
, UINT flags
)
308 return LocalReAlloc( handle
, size
, flags
);
312 /***********************************************************************
313 * GlobalSize (KERNEL32.@)
315 * Get the size of a global memory object.
318 * handle [I] Handle of the global memory object
322 * Success: Size in Bytes of the global memory object
325 * When the handle is invalid, last error is set to ERROR_INVALID_HANDLE
328 SIZE_T WINAPI
GlobalSize( HGLOBAL handle
)
330 struct mem_entry
*mem
;
334 TRACE_(globalmem
)( "handle %p\n", handle
);
336 if (!((ULONG_PTR
)handle
>> 16))
338 SetLastError( ERROR_INVALID_HANDLE
);
342 if ((ptr
= unsafe_ptr_from_HLOCAL( handle
)))
344 retval
= HeapSize( GetProcessHeap(), 0, ptr
);
345 if (retval
== ~(SIZE_T
)0) /* It might be a GMEM_MOVEABLE data pointer */
347 retval
= HeapSize( GetProcessHeap(), 0, (char *)ptr
- HLOCAL_STORAGE
);
348 if (retval
!= ~(SIZE_T
)0) retval
-= HLOCAL_STORAGE
;
353 RtlLockHeap( GetProcessHeap() );
354 if ((mem
= unsafe_mem_from_HLOCAL( handle
)))
356 if (!mem
->ptr
) /* handle case of GlobalAlloc( ??,0) */
360 retval
= HeapSize( GetProcessHeap(), 0, (char *)mem
->ptr
- HLOCAL_STORAGE
);
361 if (retval
!= ~(SIZE_T
)0) retval
-= HLOCAL_STORAGE
;
366 WARN_(globalmem
)( "invalid handle %p\n", handle
);
367 SetLastError( ERROR_INVALID_HANDLE
);
370 RtlUnlockHeap( GetProcessHeap() );
372 if (retval
== ~(SIZE_T
)0) retval
= 0;
377 /***********************************************************************
378 * GlobalWire (KERNEL32.@)
380 void *WINAPI
GlobalWire( HGLOBAL handle
)
382 return GlobalLock( handle
);
386 /***********************************************************************
387 * GlobalUnWire (KERNEL32.@)
389 BOOL WINAPI
GlobalUnWire( HGLOBAL handle
)
391 return GlobalUnlock( handle
);
395 /***********************************************************************
396 * GlobalFix (KERNEL32.@)
398 VOID WINAPI
GlobalFix( HGLOBAL handle
)
400 GlobalLock( handle
);
404 /***********************************************************************
405 * GlobalUnfix (KERNEL32.@)
407 VOID WINAPI
GlobalUnfix( HGLOBAL handle
)
409 GlobalUnlock( handle
);
413 /***********************************************************************
414 * GlobalFlags (KERNEL32.@)
416 * Get information about a global memory object.
419 * handle [I] Handle of the global memory object
422 * Failure: GMEM_INVALID_HANDLE, when the provided handle is invalid
423 * Success: Value specifying allocation flags and lock count
426 UINT WINAPI
GlobalFlags( HGLOBAL handle
)
428 struct mem_entry
*mem
;
431 TRACE_(globalmem
)( "handle %p\n", handle
);
433 if (unsafe_ptr_from_HLOCAL( handle
))
439 RtlLockHeap( GetProcessHeap() );
440 if ((mem
= unsafe_mem_from_HLOCAL( handle
)))
442 retval
= mem
->lock
+ (mem
->flags
<< 8);
443 if (mem
->ptr
== 0) retval
|= GMEM_DISCARDED
;
447 WARN_(globalmem
)( "invalid handle %p\n", handle
);
448 SetLastError( ERROR_INVALID_HANDLE
);
449 retval
= GMEM_INVALID_HANDLE
;
451 RtlUnlockHeap( GetProcessHeap() );
457 /***********************************************************************
458 * GlobalCompact (KERNEL32.@)
460 SIZE_T WINAPI
GlobalCompact( DWORD minfree
)
462 return 0; /* GlobalCompact does nothing in Win32 */
466 /***********************************************************************
467 * LocalCompact (KERNEL32.@)
469 SIZE_T WINAPI
LocalCompact( UINT minfree
)
471 return 0; /* LocalCompact does nothing in Win32 */
475 /***********************************************************************
476 * LocalFlags (KERNEL32.@)
478 * Get information about a local memory object.
481 * Value specifying allocation flags and lock count.
482 * LMEM_INVALID_HANDLE: Failure
485 * Windows memory management does not provide a separate local heap
488 UINT WINAPI
LocalFlags(
489 HLOCAL handle
/* [in] Handle of memory object */
491 return GlobalFlags( handle
);
495 /***********************************************************************
496 * LocalHandle (KERNEL32.@)
498 * Get the handle associated with the pointer to a local memory block.
505 * Windows memory management does not provide a separate local heap
508 HLOCAL WINAPI
LocalHandle(
509 LPCVOID ptr
/* [in] Address of local memory block */
511 return GlobalHandle( ptr
);
515 /***********************************************************************
516 * LocalShrink (KERNEL32.@)
518 SIZE_T WINAPI
LocalShrink( HGLOBAL handle
, UINT newsize
)
520 return 0; /* LocalShrink does nothing in Win32 */
524 /***********************************************************************
525 * LocalSize (KERNEL32.@)
527 * Get the size of a local memory object.
534 * Windows memory management does not provide a separate local heap
537 SIZE_T WINAPI
LocalSize(
538 HLOCAL handle
/* [in] Handle of memory object */
540 return GlobalSize( handle
);
544 /***********************************************************************
545 * GlobalMemoryStatus (KERNEL32.@)
546 * Provides information about the status of the memory, so apps can tell
547 * roughly how much they are able to allocate
552 VOID WINAPI
GlobalMemoryStatus( LPMEMORYSTATUS lpBuffer
)
554 MEMORYSTATUSEX memstatus
;
555 OSVERSIONINFOW osver
;
557 IMAGE_NT_HEADERS
*nt
= RtlImageNtHeader( GetModuleHandleW(0) );
560 /* Because GlobalMemoryStatus is identical to GlobalMemoryStatusEX save
561 for one extra field in the struct, and the lack of a bug, we simply
562 call GlobalMemoryStatusEx and copy the values across. */
563 memstatus
.dwLength
= sizeof(memstatus
);
564 GlobalMemoryStatusEx(&memstatus
);
566 lpBuffer
->dwLength
= sizeof(*lpBuffer
);
567 lpBuffer
->dwMemoryLoad
= memstatus
.dwMemoryLoad
;
569 /* Windows 2000 and later report -1 when values are greater than 4 Gb.
570 * NT reports values modulo 4 Gb.
573 osver
.dwOSVersionInfoSize
= sizeof(osver
);
574 GetVersionExW(&osver
);
576 lpBuffer
->dwTotalPhys
= memstatus
.ullTotalPhys
;
577 lpBuffer
->dwAvailPhys
= memstatus
.ullAvailPhys
;
578 lpBuffer
->dwTotalPageFile
= memstatus
.ullTotalPageFile
;
579 lpBuffer
->dwAvailPageFile
= memstatus
.ullAvailPageFile
;
580 lpBuffer
->dwTotalVirtual
= memstatus
.ullTotalVirtual
;
581 lpBuffer
->dwAvailVirtual
= memstatus
.ullAvailVirtual
;
584 if ( osver
.dwMajorVersion
>= 5 || osver
.dwPlatformId
== VER_PLATFORM_WIN32_WINDOWS
)
586 lpBuffer
->dwTotalPhys
= min( memstatus
.ullTotalPhys
, MAXDWORD
);
587 lpBuffer
->dwAvailPhys
= min( memstatus
.ullAvailPhys
, MAXDWORD
);
588 /* Limit value for apps that do not expect so much memory. Remove last 512 kb to make Sacrifice demo happy. */
589 lpBuffer
->dwTotalPageFile
= min( memstatus
.ullTotalPageFile
, 0xfff7ffff );
590 lpBuffer
->dwAvailPageFile
= min( memstatus
.ullAvailPageFile
, MAXDWORD
);
591 lpBuffer
->dwTotalVirtual
= min( memstatus
.ullTotalVirtual
, MAXDWORD
);
592 lpBuffer
->dwAvailVirtual
= min( memstatus
.ullAvailVirtual
, MAXDWORD
);
595 /* values are limited to 2Gb unless the app has the IMAGE_FILE_LARGE_ADDRESS_AWARE flag */
596 /* page file sizes are not limited (Adobe Illustrator 8 depends on this) */
597 if (!(nt
->FileHeader
.Characteristics
& IMAGE_FILE_LARGE_ADDRESS_AWARE
))
599 if (lpBuffer
->dwTotalPhys
> MAXLONG
) lpBuffer
->dwTotalPhys
= MAXLONG
;
600 if (lpBuffer
->dwAvailPhys
> MAXLONG
) lpBuffer
->dwAvailPhys
= MAXLONG
;
601 if (lpBuffer
->dwTotalVirtual
> MAXLONG
) lpBuffer
->dwTotalVirtual
= MAXLONG
;
602 if (lpBuffer
->dwAvailVirtual
> MAXLONG
) lpBuffer
->dwAvailVirtual
= MAXLONG
;
605 /* work around for broken photoshop 4 installer */
606 if ( lpBuffer
->dwAvailPhys
+ lpBuffer
->dwAvailPageFile
>= 2U*1024*1024*1024)
607 lpBuffer
->dwAvailPageFile
= 2U*1024*1024*1024 - lpBuffer
->dwAvailPhys
- 1;
609 /* limit page file size for really old binaries */
610 if (nt
->OptionalHeader
.MajorSubsystemVersion
< 4 ||
611 nt
->OptionalHeader
.MajorOperatingSystemVersion
< 4)
613 if (lpBuffer
->dwTotalPageFile
> MAXLONG
) lpBuffer
->dwTotalPageFile
= MAXLONG
;
614 if (lpBuffer
->dwAvailPageFile
> MAXLONG
) lpBuffer
->dwAvailPageFile
= MAXLONG
;
618 TRACE("Length %lu, MemoryLoad %lu, TotalPhys %Ix, AvailPhys %Ix,"
619 " TotalPageFile %Ix, AvailPageFile %Ix, TotalVirtual %Ix, AvailVirtual %Ix\n",
620 lpBuffer
->dwLength
, lpBuffer
->dwMemoryLoad
, lpBuffer
->dwTotalPhys
,
621 lpBuffer
->dwAvailPhys
, lpBuffer
->dwTotalPageFile
, lpBuffer
->dwAvailPageFile
,
622 lpBuffer
->dwTotalVirtual
, lpBuffer
->dwAvailVirtual
);