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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 #include "wine/port.h"
31 #include <sys/types.h>
33 #ifdef HAVE_SYS_PARAM_H
34 #include <sys/param.h>
36 #ifdef HAVE_SYS_SYSCTL_H
37 #include <sys/sysctl.h>
50 #include "wine/exception.h"
51 #include "wine/debug.h"
53 WINE_DEFAULT_DEBUG_CHANNEL(heap);
55 /* address where we try to map the system heap */
56 #define SYSTEM_HEAP_BASE ((void*)0x80000000)
57 #define SYSTEM_HEAP_SIZE 0x1000000 /* Default heap size = 16Mb */
59 static HANDLE systemHeap; /* globally shared heap */
63 /* filter for page-fault exceptions */
64 /* It is possible for a bogus global pointer to cause a */
65 /* page zero reference, so I include EXCEPTION_PRIV_INSTRUCTION too. */
66 static WINE_EXCEPTION_FILTER(page_fault)
68 switch (GetExceptionCode()) {
69 case (EXCEPTION_ACCESS_VIOLATION):
70 case (EXCEPTION_PRIV_INSTRUCTION):
71 return EXCEPTION_EXECUTE_HANDLER;
73 return EXCEPTION_CONTINUE_SEARCH;
77 /***********************************************************************
78 * HEAP_CreateSystemHeap
80 * Create the system heap.
82 inline static HANDLE HEAP_CreateSystemHeap(void)
88 /* create the system heap event first */
89 event = CreateEventA( NULL, TRUE, FALSE, "__wine_system_heap_event" );
91 if (!(map = CreateFileMappingA( INVALID_HANDLE_VALUE, NULL, SEC_COMMIT | PAGE_READWRITE,
92 0, SYSTEM_HEAP_SIZE, "__wine_system_heap" ))) return 0;
93 created = (GetLastError() != ERROR_ALREADY_EXISTS);
95 if (!(base = MapViewOfFileEx( map, FILE_MAP_ALL_ACCESS, 0, 0, 0, SYSTEM_HEAP_BASE )))
97 /* pre-defined address not available */
98 ERR( "system heap base address %p not available\n", SYSTEM_HEAP_BASE );
102 if (created) /* newly created heap */
104 systemHeap = RtlCreateHeap( HEAP_SHARED, base, SYSTEM_HEAP_SIZE,
105 SYSTEM_HEAP_SIZE, NULL, NULL );
110 /* wait for the heap to be initialized */
111 WaitForSingleObject( event, INFINITE );
112 systemHeap = (HANDLE)base;
119 /***********************************************************************
120 * HeapCreate (KERNEL32.@)
122 * Handle of heap: Success
125 HANDLE WINAPI HeapCreate(
126 DWORD flags, /* [in] Heap allocation flag */
127 SIZE_T initialSize, /* [in] Initial heap size */
128 SIZE_T maxSize /* [in] Maximum heap size */
132 if ( flags & HEAP_SHARED )
134 if (!systemHeap) HEAP_CreateSystemHeap();
135 else WARN( "Shared Heap requested, returning system heap.\n" );
140 ret = RtlCreateHeap( flags, NULL, maxSize, initialSize, NULL, NULL );
141 if (!ret) SetLastError( ERROR_NOT_ENOUGH_MEMORY );
147 /***********************************************************************
148 * HeapDestroy (KERNEL32.@)
153 BOOL WINAPI HeapDestroy( HANDLE heap /* [in] Handle of heap */ )
155 if (heap == systemHeap)
157 WARN( "attempt to destroy system heap, returning TRUE!\n" );
160 if (!RtlDestroyHeap( heap )) return TRUE;
161 SetLastError( ERROR_INVALID_HANDLE );
166 /***********************************************************************
167 * HeapCompact (KERNEL32.@)
169 SIZE_T WINAPI HeapCompact( HANDLE heap, DWORD flags )
171 return RtlCompactHeap( heap, flags );
175 /***********************************************************************
176 * HeapValidate (KERNEL32.@)
177 * Validates a specified heap.
186 BOOL WINAPI HeapValidate(
187 HANDLE heap, /* [in] Handle to the heap */
188 DWORD flags, /* [in] Bit flags that control access during operation */
189 LPCVOID block /* [in] Optional pointer to memory block to validate */
191 return RtlValidateHeap( heap, flags, block );
195 /***********************************************************************
196 * HeapWalk (KERNEL32.@)
197 * Enumerates the memory blocks in a specified heap.
200 * - handling of PROCESS_HEAP_ENTRY_MOVEABLE and
201 * PROCESS_HEAP_ENTRY_DDESHARE (needs heap.c support)
207 BOOL WINAPI HeapWalk(
208 HANDLE heap, /* [in] Handle to heap to enumerate */
209 LPPROCESS_HEAP_ENTRY entry /* [out] Pointer to structure of enumeration info */
211 NTSTATUS ret = RtlWalkHeap( heap, entry );
212 if (ret) SetLastError( RtlNtStatusToDosError(ret) );
217 /***********************************************************************
218 * HeapLock (KERNEL32.@)
219 * Attempts to acquire the critical section object for a specified heap.
225 BOOL WINAPI HeapLock(
226 HANDLE heap /* [in] Handle of heap to lock for exclusive access */
228 return RtlLockHeap( heap );
232 /***********************************************************************
233 * HeapUnlock (KERNEL32.@)
234 * Releases ownership of the critical section object.
240 BOOL WINAPI HeapUnlock(
241 HANDLE heap /* [in] Handle to the heap to unlock */
243 return RtlUnlockHeap( heap );
247 /***********************************************************************
248 * GetProcessHeap (KERNEL32.@)
250 HANDLE WINAPI GetProcessHeap(void)
252 return NtCurrentTeb()->Peb->ProcessHeap;
256 /***********************************************************************
257 * GetProcessHeaps (KERNEL32.@)
259 DWORD WINAPI GetProcessHeaps( DWORD count, HANDLE *heaps )
261 return RtlGetProcessHeaps( count, heaps );
265 /* These are needed so that we can call the functions from inside kernel itself */
267 LPVOID WINAPI HeapAlloc( HANDLE heap, DWORD flags, SIZE_T size )
269 return RtlAllocateHeap( heap, flags, size );
272 BOOL WINAPI HeapFree( HANDLE heap, DWORD flags, LPVOID ptr )
274 return RtlFreeHeap( heap, flags, ptr );
277 LPVOID WINAPI HeapReAlloc( HANDLE heap, DWORD flags, LPVOID ptr, SIZE_T size )
279 return RtlReAllocateHeap( heap, flags, ptr, size );
282 SIZE_T WINAPI HeapSize( HANDLE heap, DWORD flags, LPVOID ptr )
284 return RtlSizeHeap( heap, flags, ptr );
288 * Win32 Global heap functions (GlobalXXX).
289 * These functions included in Win32 for compatibility with 16 bit Windows
290 * Especially the moveable blocks and handles are oldish.
291 * But the ability to directly allocate memory with GPTR and LPTR is widely
294 * The handle stuff looks horrible, but it's implemented almost like Win95
299 #define MAGIC_GLOBAL_USED 0x5342
300 #define GLOBAL_LOCK_MAX 0xFF
301 #define HANDLE_TO_INTERN(h) ((PGLOBAL32_INTERN)(((char *)(h))-2))
302 #define INTERN_TO_HANDLE(i) ((HGLOBAL) &((i)->Pointer))
303 #define POINTER_TO_HANDLE(p) (*(((HGLOBAL *)(p))-2))
304 #define ISHANDLE(h) (((ULONG_PTR)(h)&2)!=0)
305 #define ISPOINTER(h) (((ULONG_PTR)(h)&2)==0)
306 /* align the storage needed for the HGLOBAL on an 8byte boundary thus
307 * GlobalAlloc/GlobalReAlloc'ing with GMEM_MOVEABLE of memory with
308 * size = 8*k, where k=1,2,3,... alloc's exactly the given size.
309 * The Minolta DiMAGE Image Viewer heavily relies on this, corrupting
310 * the output jpeg's > 1 MB if not */
311 #define HGLOBAL_STORAGE 8 /* sizeof(HGLOBAL)*2 */
313 #include "pshpack1.h"
315 typedef struct __GLOBAL32_INTERN
321 } GLOBAL32_INTERN, *PGLOBAL32_INTERN;
325 /***********************************************************************
326 * GlobalAlloc (KERNEL32.@)
331 HGLOBAL WINAPI GlobalAlloc(
332 UINT flags, /* [in] Object allocation attributes */
333 SIZE_T size /* [in] Number of bytes to allocate */
335 PGLOBAL32_INTERN pintern;
339 if(flags&GMEM_ZEROINIT)
340 hpflags=HEAP_ZERO_MEMORY;
344 TRACE("() flags=%04x\n", flags );
346 if((flags & GMEM_MOVEABLE)==0) /* POINTER */
348 palloc=HeapAlloc(GetProcessHeap(), hpflags, size);
349 return (HGLOBAL) palloc;
353 RtlLockHeap(GetProcessHeap());
355 pintern = HeapAlloc(GetProcessHeap(), 0, sizeof(GLOBAL32_INTERN));
358 pintern->Magic = MAGIC_GLOBAL_USED;
359 pintern->Flags = flags >> 8;
360 pintern->LockCount = 0;
364 palloc = HeapAlloc(GetProcessHeap(), hpflags, size+HGLOBAL_STORAGE);
367 HeapFree(GetProcessHeap(), 0, pintern);
372 *(HGLOBAL *)palloc = INTERN_TO_HANDLE(pintern);
373 pintern->Pointer = (char *)palloc + HGLOBAL_STORAGE;
377 pintern->Pointer = NULL;
380 RtlUnlockHeap(GetProcessHeap());
381 return pintern ? INTERN_TO_HANDLE(pintern) : 0;
386 /***********************************************************************
387 * GlobalLock (KERNEL32.@)
389 * Pointer to first byte of block
392 LPVOID WINAPI GlobalLock(
393 HGLOBAL hmem /* [in] Handle of global memory object */
396 PGLOBAL32_INTERN pintern;
400 return IsBadReadPtr(hmem, 1) ? NULL : hmem;
402 RtlLockHeap(GetProcessHeap());
405 pintern = HANDLE_TO_INTERN(hmem);
406 if (pintern->Magic == MAGIC_GLOBAL_USED)
408 if (pintern->LockCount < GLOBAL_LOCK_MAX)
409 pintern->LockCount++;
410 palloc = pintern->Pointer;
414 WARN("invalid handle %p\n", hmem);
416 SetLastError(ERROR_INVALID_HANDLE);
421 WARN("page fault on %p\n", hmem);
423 SetLastError(ERROR_INVALID_HANDLE);
426 RtlUnlockHeap(GetProcessHeap());
431 /***********************************************************************
432 * GlobalUnlock (KERNEL32.@)
434 * TRUE: Object is still locked
435 * FALSE: Object is unlocked
437 BOOL WINAPI GlobalUnlock(
438 HGLOBAL hmem /* [in] Handle of global memory object */
440 PGLOBAL32_INTERN pintern;
443 if (ISPOINTER(hmem)) return FALSE;
445 RtlLockHeap(GetProcessHeap());
448 pintern=HANDLE_TO_INTERN(hmem);
449 if(pintern->Magic==MAGIC_GLOBAL_USED)
451 if((pintern->LockCount<GLOBAL_LOCK_MAX)&&(pintern->LockCount>0))
452 pintern->LockCount--;
454 locked = (pintern->LockCount != 0);
455 if (!locked) SetLastError(NO_ERROR);
459 WARN("invalid handle\n");
460 SetLastError(ERROR_INVALID_HANDLE);
466 ERR("page fault occurred ! Caused by bug ?\n");
467 SetLastError( ERROR_INVALID_PARAMETER );
471 RtlUnlockHeap(GetProcessHeap());
476 /***********************************************************************
477 * GlobalHandle (KERNEL32.@)
478 * Returns the handle associated with the specified pointer.
484 HGLOBAL WINAPI GlobalHandle(
485 LPCVOID pmem /* [in] Pointer to global memory block */
488 PGLOBAL32_INTERN maybe_intern;
493 SetLastError( ERROR_INVALID_PARAMETER );
497 RtlLockHeap(GetProcessHeap());
502 /* note that if pmem is a pointer to a a block allocated by */
503 /* GlobalAlloc with GMEM_MOVEABLE then magic test in HeapValidate */
505 if (ISPOINTER(pmem)) {
506 if (HeapValidate( GetProcessHeap(), 0, pmem )) {
507 handle = (HGLOBAL)pmem; /* valid fixed block */
510 handle = POINTER_TO_HANDLE(pmem);
512 handle = (HGLOBAL)pmem;
514 /* Now test handle either passed in or retrieved from pointer */
515 maybe_intern = HANDLE_TO_INTERN( handle );
516 if (maybe_intern->Magic == MAGIC_GLOBAL_USED) {
517 test = maybe_intern->Pointer;
518 if (HeapValidate( GetProcessHeap(), 0, (const char *)test - HGLOBAL_STORAGE ) && /* obj(-handle) valid arena? */
519 HeapValidate( GetProcessHeap(), 0, maybe_intern )) /* intern valid arena? */
520 break; /* valid moveable block */
523 SetLastError( ERROR_INVALID_HANDLE );
527 SetLastError( ERROR_INVALID_HANDLE );
531 RtlUnlockHeap(GetProcessHeap());
537 /***********************************************************************
538 * GlobalReAlloc (KERNEL32.@)
543 HGLOBAL WINAPI GlobalReAlloc(
544 HGLOBAL hmem, /* [in] Handle of global memory object */
545 SIZE_T size, /* [in] New size of block */
546 UINT flags /* [in] How to reallocate object */
550 PGLOBAL32_INTERN pintern;
551 DWORD heap_flags = (flags & GMEM_ZEROINIT) ? HEAP_ZERO_MEMORY : 0;
554 RtlLockHeap(GetProcessHeap());
555 if(flags & GMEM_MODIFY) /* modify flags */
557 if( ISPOINTER(hmem) && (flags & GMEM_MOVEABLE))
559 /* make a fixed block moveable
560 * actually only NT is able to do this. But it's soo simple
564 WARN("GlobalReAlloc with null handle!\n");
565 SetLastError( ERROR_NOACCESS );
570 size = HeapSize(GetProcessHeap(), 0, (LPVOID)hmem);
571 hnew = GlobalAlloc(flags, size);
572 palloc = GlobalLock(hnew);
573 memcpy(palloc, (LPVOID)hmem, size);
578 else if( ISPOINTER(hmem) &&(flags & GMEM_DISCARDABLE))
580 /* change the flags to make our block "discardable" */
581 pintern=HANDLE_TO_INTERN(hmem);
582 pintern->Flags = pintern->Flags | (GMEM_DISCARDABLE >> 8);
587 SetLastError(ERROR_INVALID_PARAMETER);
595 /* reallocate fixed memory */
596 hnew=HeapReAlloc(GetProcessHeap(), heap_flags, hmem, size);
600 /* reallocate a moveable block */
601 pintern=HANDLE_TO_INTERN(hmem);
604 /* Apparently Windows doesn't care whether the handle is locked at this point */
605 /* See also the same comment in GlobalFree() */
606 if(pintern->LockCount>1) {
607 ERR("handle 0x%08lx is still locked, cannot realloc!\n",(DWORD)hmem);
608 SetLastError(ERROR_INVALID_HANDLE);
616 if((palloc = HeapReAlloc(GetProcessHeap(), heap_flags,
617 (char *) pintern->Pointer-HGLOBAL_STORAGE,
618 size+HGLOBAL_STORAGE)) == NULL)
619 hnew = 0; /* Block still valid */
621 pintern->Pointer = (char *)palloc+HGLOBAL_STORAGE;
625 if((palloc=HeapAlloc(GetProcessHeap(), heap_flags, size+HGLOBAL_STORAGE))
630 *(HGLOBAL *)palloc = hmem;
631 pintern->Pointer = (char *)palloc + HGLOBAL_STORAGE;
639 HeapFree(GetProcessHeap(), 0, (char *) pintern->Pointer-HGLOBAL_STORAGE);
640 pintern->Pointer=NULL;
645 RtlUnlockHeap(GetProcessHeap());
650 /***********************************************************************
651 * GlobalFree (KERNEL32.@)
656 HGLOBAL WINAPI GlobalFree(
657 HGLOBAL hmem /* [in] Handle of global memory object */
659 PGLOBAL32_INTERN pintern;
662 RtlLockHeap(GetProcessHeap());
666 if(ISPOINTER(hmem)) /* POINTER */
668 if(!HeapFree(GetProcessHeap(), 0, (LPVOID) hmem)) hmem = 0;
672 pintern=HANDLE_TO_INTERN(hmem);
674 if(pintern->Magic==MAGIC_GLOBAL_USED)
677 /* WIN98 does not make this test. That is you can free a */
678 /* block you have not unlocked. Go figure!! */
679 /* if(pintern->LockCount!=0) */
680 /* SetLastError(ERROR_INVALID_HANDLE); */
683 if(!HeapFree(GetProcessHeap(), 0, (char *)(pintern->Pointer)-HGLOBAL_STORAGE))
685 if(!HeapFree(GetProcessHeap(), 0, pintern))
692 ERR("page fault occurred ! Caused by bug ?\n");
693 SetLastError( ERROR_INVALID_PARAMETER );
697 RtlUnlockHeap(GetProcessHeap());
702 /***********************************************************************
703 * GlobalSize (KERNEL32.@)
705 * Size in bytes of the global memory object
708 SIZE_T WINAPI GlobalSize(
709 HGLOBAL hmem /* [in] Handle of global memory object */
712 PGLOBAL32_INTERN pintern;
718 retval=HeapSize(GetProcessHeap(), 0, (LPVOID) hmem);
722 RtlLockHeap(GetProcessHeap());
723 pintern=HANDLE_TO_INTERN(hmem);
725 if(pintern->Magic==MAGIC_GLOBAL_USED)
727 if (!pintern->Pointer) /* handle case of GlobalAlloc( ??,0) */
731 retval = HeapSize(GetProcessHeap(), 0,
732 (char *)(pintern->Pointer) - HGLOBAL_STORAGE );
733 if (retval != (DWORD)-1) retval -= HGLOBAL_STORAGE;
738 WARN("invalid handle\n");
741 RtlUnlockHeap(GetProcessHeap());
743 /* HeapSize returns 0xffffffff on failure */
744 if (retval == 0xffffffff) retval = 0;
749 /***********************************************************************
750 * GlobalWire (KERNEL32.@)
752 LPVOID WINAPI GlobalWire(HGLOBAL hmem)
754 return GlobalLock( hmem );
758 /***********************************************************************
759 * GlobalUnWire (KERNEL32.@)
761 BOOL WINAPI GlobalUnWire(HGLOBAL hmem)
763 return GlobalUnlock( hmem);
767 /***********************************************************************
768 * GlobalFix (KERNEL32.@)
770 VOID WINAPI GlobalFix(HGLOBAL hmem)
776 /***********************************************************************
777 * GlobalUnfix (KERNEL32.@)
779 VOID WINAPI GlobalUnfix(HGLOBAL hmem)
785 /***********************************************************************
786 * GlobalFlags (KERNEL32.@)
787 * Returns information about the specified global memory object
790 * Should this return GMEM_INVALID_HANDLE on invalid handle?
793 * Value specifying allocation flags and lock count
794 * GMEM_INVALID_HANDLE: Failure
796 UINT WINAPI GlobalFlags(
797 HGLOBAL hmem /* [in] Handle to global memory object */
800 PGLOBAL32_INTERN pintern;
808 RtlLockHeap(GetProcessHeap());
809 pintern=HANDLE_TO_INTERN(hmem);
810 if(pintern->Magic==MAGIC_GLOBAL_USED)
812 retval=pintern->LockCount + (pintern->Flags<<8);
813 if(pintern->Pointer==0)
814 retval|= GMEM_DISCARDED;
818 WARN("Invalid handle: %p\n", hmem);
821 RtlUnlockHeap(GetProcessHeap());
827 /***********************************************************************
828 * GlobalCompact (KERNEL32.@)
830 SIZE_T WINAPI GlobalCompact( DWORD minfree )
832 return 0; /* GlobalCompact does nothing in Win32 */
836 /***********************************************************************
837 * LocalAlloc (KERNEL32.@)
842 HLOCAL WINAPI LocalAlloc(
843 UINT flags, /* [in] Allocation attributes */
844 SIZE_T size /* [in] Number of bytes to allocate */
846 return (HLOCAL)GlobalAlloc( flags, size );
850 /***********************************************************************
851 * LocalCompact (KERNEL32.@)
853 SIZE_T WINAPI LocalCompact( UINT minfree )
855 return 0; /* LocalCompact does nothing in Win32 */
859 /***********************************************************************
860 * LocalFlags (KERNEL32.@)
862 * Value specifying allocation flags and lock count.
863 * LMEM_INVALID_HANDLE: Failure
865 UINT WINAPI LocalFlags(
866 HLOCAL handle /* [in] Handle of memory object */
868 return GlobalFlags( (HGLOBAL)handle );
872 /***********************************************************************
873 * LocalFree (KERNEL32.@)
878 HLOCAL WINAPI LocalFree(
879 HLOCAL handle /* [in] Handle of memory object */
881 return (HLOCAL)GlobalFree( (HGLOBAL)handle );
885 /***********************************************************************
886 * LocalHandle (KERNEL32.@)
891 HLOCAL WINAPI LocalHandle(
892 LPCVOID ptr /* [in] Address of local memory object */
894 return (HLOCAL)GlobalHandle( ptr );
898 /***********************************************************************
899 * LocalLock (KERNEL32.@)
900 * Locks a local memory object and returns pointer to the first byte
901 * of the memory block.
907 LPVOID WINAPI LocalLock(
908 HLOCAL handle /* [in] Address of local memory object */
910 return GlobalLock( (HGLOBAL)handle );
914 /***********************************************************************
915 * LocalReAlloc (KERNEL32.@)
920 HLOCAL WINAPI LocalReAlloc(
921 HLOCAL handle, /* [in] Handle of memory object */
922 SIZE_T size, /* [in] New size of block */
923 UINT flags /* [in] How to reallocate object */
925 return (HLOCAL)GlobalReAlloc( (HGLOBAL)handle, size, flags );
929 /***********************************************************************
930 * LocalShrink (KERNEL32.@)
932 SIZE_T WINAPI LocalShrink( HGLOBAL handle, UINT newsize )
934 return 0; /* LocalShrink does nothing in Win32 */
938 /***********************************************************************
939 * LocalSize (KERNEL32.@)
944 SIZE_T WINAPI LocalSize(
945 HLOCAL handle /* [in] Handle of memory object */
947 return GlobalSize( (HGLOBAL)handle );
951 /***********************************************************************
952 * LocalUnlock (KERNEL32.@)
954 * TRUE: Object is still locked
955 * FALSE: Object is unlocked
957 BOOL WINAPI LocalUnlock(
958 HLOCAL handle /* [in] Handle of memory object */
960 return GlobalUnlock( (HGLOBAL)handle );
964 /**********************************************************************
965 * AllocMappedBuffer (KERNEL32.38)
967 * This is an undocumented KERNEL32 function that
968 * SMapLS's a GlobalAlloc'ed buffer.
970 * Input: EDI register: size of buffer to allocate
971 * Output: EDI register: pointer to buffer
973 * Note: The buffer is preceded by 8 bytes:
976 * edi-4 SEGPTR to buffer
977 * edi-8 some magic Win95 needs for SUnMapLS
978 * (we use it for the memory handle)
980 * The SEGPTR is used by the caller!
982 void WINAPI __regs_AllocMappedBuffer( CONTEXT86 *context )
984 HGLOBAL handle = GlobalAlloc(0, context->Edi + 8);
985 DWORD *buffer = (DWORD *)GlobalLock(handle);
989 if (!(ptr = MapLS(buffer + 2)))
991 GlobalUnlock(handle);
996 context->Eax = context->Edi = 0;
999 buffer[0] = (DWORD)handle;
1002 context->Eax = (DWORD) ptr;
1003 context->Edi = (DWORD)(buffer + 2);
1006 #ifdef DEFINE_REGS_ENTRYPOINT
1007 DEFINE_REGS_ENTRYPOINT( AllocMappedBuffer, 0, 0 );
1010 /**********************************************************************
1011 * FreeMappedBuffer (KERNEL32.39)
1013 * Free a buffer allocated by AllocMappedBuffer
1015 * Input: EDI register: pointer to buffer
1017 void WINAPI __regs_FreeMappedBuffer( CONTEXT86 *context )
1021 DWORD *buffer = (DWORD *)context->Edi - 2;
1025 GlobalUnlock((HGLOBAL)buffer[0]);
1026 GlobalFree((HGLOBAL)buffer[0]);
1029 #ifdef DEFINE_REGS_ENTRYPOINT
1030 DEFINE_REGS_ENTRYPOINT( FreeMappedBuffer, 0, 0 );
1033 /***********************************************************************
1034 * GlobalMemoryStatusEx (KERNEL32.@)
1035 * A version of GlobalMemoryStatus that can deal with memory over 4GB
1040 BOOL WINAPI GlobalMemoryStatusEx( LPMEMORYSTATUSEX lpmemex )
1042 static MEMORYSTATUSEX cached_memstatus;
1043 static int cache_lastchecked = 0;
1048 #if defined(__FreeBSD__) || defined(__NetBSD__)
1051 int mib[2] = { CTL_HW };
1053 if (time(NULL)==cache_lastchecked) {
1054 memcpy(lpmemex,&cached_memstatus,sizeof(*lpmemex));
1057 cache_lastchecked = time(NULL);
1059 lpmemex->dwLength = sizeof(*lpmemex);
1060 lpmemex->dwMemoryLoad = 0;
1061 lpmemex->ullTotalPhys = 16*1024*1024;
1062 lpmemex->ullAvailPhys = 16*1024*1024;
1063 lpmemex->ullTotalPageFile = 16*1024*1024;
1064 lpmemex->ullAvailPageFile = 16*1024*1024;
1067 f = fopen( "/proc/meminfo", "r" );
1071 int total, used, free, shared, buffers, cached;
1073 lpmemex->ullTotalPhys = lpmemex->ullAvailPhys = 0;
1074 lpmemex->ullTotalPageFile = lpmemex->ullAvailPageFile = 0;
1075 while (fgets( buffer, sizeof(buffer), f ))
1077 /* old style /proc/meminfo ... */
1078 if (sscanf( buffer, "Mem: %d %d %d %d %d %d", &total, &used, &free, &shared, &buffers, &cached ))
1080 lpmemex->ullTotalPhys += total;
1081 lpmemex->ullAvailPhys += free + buffers + cached;
1083 if (sscanf( buffer, "Swap: %d %d %d", &total, &used, &free ))
1085 lpmemex->ullTotalPageFile += total;
1086 lpmemex->ullAvailPageFile += free;
1089 /* new style /proc/meminfo ... */
1090 if (sscanf(buffer, "MemTotal: %d", &total))
1091 lpmemex->ullTotalPhys = total*1024;
1092 if (sscanf(buffer, "MemFree: %d", &free))
1093 lpmemex->ullAvailPhys = free*1024;
1094 if (sscanf(buffer, "SwapTotal: %d", &total))
1095 lpmemex->ullTotalPageFile = total*1024;
1096 if (sscanf(buffer, "SwapFree: %d", &free))
1097 lpmemex->ullAvailPageFile = free*1024;
1098 if (sscanf(buffer, "Buffers: %d", &buffers))
1099 lpmemex->ullAvailPhys += buffers*1024;
1100 if (sscanf(buffer, "Cached: %d", &cached))
1101 lpmemex->ullAvailPhys += cached*1024;
1105 if (lpmemex->ullTotalPhys)
1107 DWORDLONG TotalPhysical = lpmemex->ullTotalPhys+lpmemex->ullTotalPageFile;
1108 DWORDLONG AvailPhysical = lpmemex->ullAvailPhys+lpmemex->ullAvailPageFile;
1109 lpmemex->dwMemoryLoad = (TotalPhysical-AvailPhysical)
1110 / (TotalPhysical / 100);
1113 #elif defined(__FreeBSD__) || defined(__NetBSD__)
1114 mib[1] = HW_PHYSMEM;
1115 sysctl(mib, 2, NULL, &size_sys, NULL, 0);
1116 tmp = malloc(size_sys * sizeof(int));
1117 sysctl(mib, 2, tmp, &size_sys, NULL, 0);
1120 lpmemex->ullTotalPhys = *tmp;
1122 mib[1] = HW_USERMEM;
1123 sysctl(mib, 2, NULL, &size_sys, NULL, 0);
1124 tmp = malloc(size_sys * sizeof(int));
1125 sysctl(mib, 2, tmp, &size_sys, NULL, 0);
1128 lpmemex->ullAvailPhys = *tmp;
1129 lpmemex->ullTotalPageFile = *tmp;
1130 lpmemex->ullAvailPageFile = *tmp;
1131 lpmemex->dwMemoryLoad = lpmemex->ullTotalPhys - lpmemex->ullAvailPhys;
1134 lpmemex->ullAvailPhys = lpmemex->ullTotalPhys;
1135 lpmemex->ullTotalPageFile = lpmemex->ullTotalPhys;
1136 lpmemex->ullAvailPageFile = lpmemex->ullTotalPhys;
1137 lpmemex->dwMemoryLoad = 0;
1144 /* FIXME: should do something for other systems */
1146 lpmemex->ullTotalVirtual = (char*)si.lpMaximumApplicationAddress-(char*)si.lpMinimumApplicationAddress;
1147 /* FIXME: we should track down all the already allocated VM pages and substract them, for now arbitrarily remove 64KB so that it matches NT */
1148 lpmemex->ullAvailVirtual = lpmemex->ullTotalVirtual-64*1024;
1149 memcpy(&cached_memstatus,lpmemex,sizeof(*lpmemex));
1151 /* it appears some memory display programs want to divide by these values */
1152 if(lpmemex->ullTotalPageFile==0)
1153 lpmemex->ullTotalPageFile++;
1155 if(lpmemex->ullAvailPageFile==0)
1156 lpmemex->ullAvailPageFile++;
1158 /* MSDN says about AvailExtendedVirtual: Size of unreserved and uncommitted
1159 memory in the extended portion of the virtual address space of the calling
1161 However, I don't know what this means, so set it to zero :(
1163 lpmemex->ullAvailExtendedVirtual = 0;
1165 TRACE("<-- LPMEMORYSTATUSEX: dwLength %ld, dwMemoryLoad %ld, ullTotalPhys %s, ullAvailPhys %s,"
1166 " ullTotalPageFile %s, ullAvailPageFile %s, ullTotalVirtual %s, ullAvailVirtual %s\n",
1167 lpmemex->dwLength, lpmemex->dwMemoryLoad, wine_dbgstr_longlong(lpmemex->ullTotalPhys),
1168 wine_dbgstr_longlong(lpmemex->ullAvailPhys), wine_dbgstr_longlong(lpmemex->ullTotalPageFile),
1169 wine_dbgstr_longlong(lpmemex->ullAvailPageFile), wine_dbgstr_longlong(lpmemex->ullTotalVirtual),
1170 wine_dbgstr_longlong(lpmemex->ullAvailVirtual) );
1175 /***********************************************************************
1176 * GlobalMemoryStatus (KERNEL32.@)
1177 * Provides information about the status of the memory, so apps can tell
1178 * roughly how much they are able to allocate
1183 VOID WINAPI GlobalMemoryStatus( LPMEMORYSTATUS lpBuffer )
1185 MEMORYSTATUSEX memstatus;
1186 OSVERSIONINFOW osver;
1188 /* Because GlobalMemoryStatus is identical to GlobalMemoryStatusEX save
1189 for one extra field in the struct, and the lack of a bug, we simply
1190 call GlobalMemoryStatusEx and copy the values across. */
1191 GlobalMemoryStatusEx(&memstatus);
1193 lpBuffer->dwLength = sizeof(*lpBuffer);
1194 lpBuffer->dwMemoryLoad = memstatus.dwMemoryLoad;
1196 /* Windows 2000 and later report -1 when values are greater than 4 Gb.
1197 * NT reports values modulo 4 Gb.
1198 * Values between 2 Gb and 4 Gb are rounded down to 2 Gb.
1201 osver.dwOSVersionInfoSize = sizeof(osver);
1202 GetVersionExW(&osver);
1204 if ( osver.dwMajorVersion >= 5 )
1206 lpBuffer->dwTotalPhys = (memstatus.ullTotalPhys > MAXDWORD) ? MAXDWORD :
1207 (memstatus.ullTotalPhys > MAXLONG) ? MAXLONG : memstatus.ullTotalPhys;
1208 lpBuffer->dwAvailPhys = (memstatus.ullAvailPhys > MAXDWORD) ? MAXDWORD :
1209 (memstatus.ullAvailPhys > MAXLONG) ? MAXLONG : memstatus.ullAvailPhys;
1210 lpBuffer->dwTotalPageFile = (memstatus.ullTotalPageFile > MAXDWORD) ? MAXDWORD :
1211 (memstatus.ullTotalPageFile > MAXLONG) ? MAXLONG : memstatus.ullTotalPageFile;
1212 lpBuffer->dwAvailPageFile = (memstatus.ullAvailPageFile > MAXDWORD) ? MAXDWORD :
1213 (memstatus.ullAvailPageFile > MAXLONG) ? MAXLONG : memstatus.ullAvailPageFile;
1214 lpBuffer->dwTotalVirtual = (memstatus.ullTotalVirtual > MAXDWORD) ? MAXDWORD :
1215 (memstatus.ullTotalVirtual > MAXLONG) ? MAXLONG : memstatus.ullTotalVirtual;
1216 lpBuffer->dwAvailVirtual = (memstatus.ullAvailVirtual > MAXDWORD) ? MAXDWORD :
1217 (memstatus.ullAvailVirtual > MAXLONG) ? MAXLONG : memstatus.ullAvailVirtual;
1219 else /* duplicate NT bug */
1221 lpBuffer->dwTotalPhys = (memstatus.ullTotalPhys > MAXDWORD) ? memstatus.ullTotalPhys :
1222 (memstatus.ullTotalPhys > MAXLONG) ? MAXLONG : memstatus.ullTotalPhys;
1223 lpBuffer->dwAvailPhys = (memstatus.ullAvailPhys > MAXDWORD) ? memstatus.ullAvailPhys :
1224 (memstatus.ullAvailPhys > MAXLONG) ? MAXLONG : memstatus.ullAvailPhys;
1225 lpBuffer->dwTotalPageFile = (memstatus.ullTotalPageFile > MAXDWORD) ? memstatus.ullTotalPageFile :
1226 (memstatus.ullTotalPageFile > MAXLONG) ? MAXLONG : memstatus.ullTotalPageFile;
1227 lpBuffer->dwAvailPageFile = (memstatus.ullAvailPageFile > MAXDWORD) ? memstatus.ullAvailPageFile :
1228 (memstatus.ullAvailPageFile > MAXLONG) ? MAXLONG : memstatus.ullAvailPageFile;
1229 lpBuffer->dwTotalVirtual = (memstatus.ullTotalVirtual > MAXDWORD) ? memstatus.ullTotalVirtual :
1230 (memstatus.ullTotalVirtual > MAXLONG) ? MAXLONG : memstatus.ullTotalVirtual;
1231 lpBuffer->dwAvailVirtual = (memstatus.ullAvailVirtual > MAXDWORD) ? memstatus.ullAvailVirtual :
1232 (memstatus.ullAvailVirtual > MAXLONG) ? MAXLONG : memstatus.ullAvailVirtual;
1235 /* work around for broken photoshop 4 installer */
1236 if ( lpBuffer->dwAvailPhys + lpBuffer->dwAvailPageFile >= 2U*1024*1024*1024)
1237 lpBuffer->dwAvailPageFile = 2U*1024*1024*1024 - lpBuffer->dwAvailPhys - 1;