2 * Global heap functions
4 * Copyright 1995 Alexandre Julliard
16 #include "selectors.h"
19 #include "stackframe.h"
25 /* Global arena block */
28 DWORD base
; /* Base address (0 if discarded) */
29 DWORD size
; /* Size in bytes (0 indicates a free block) */
30 HGLOBAL16 handle
; /* Handle for this block */
31 HGLOBAL16 hOwner
; /* Owner of this block */
32 BYTE lockCount
; /* Count of GlobalFix() calls */
33 BYTE pageLockCount
; /* Count of GlobalPageLock() calls */
34 BYTE flags
; /* Allocation flags */
35 BYTE selCount
; /* Number of selectors allocated for this block */
41 /* Flags definitions */
42 #define GA_MOVEABLE 0x02 /* same as GMEM_MOVEABLE */
43 #define GA_DGROUP 0x04
44 #define GA_DISCARDABLE 0x08
45 #define GA_IPCSHARE 0x10 /* same as GMEM_DDESHARE */
48 static GLOBALARENA
*pGlobalArena
= NULL
;
49 static int globalArenaSize
= 0;
51 #define GLOBAL_MAX_ALLOC_SIZE 0x00ff0000 /* Largest allocation is 16M - 64K */
53 #define GET_ARENA_PTR(handle) (pGlobalArena + ((handle) >> __AHSHIFT))
55 /***********************************************************************
58 * Return the arena for a given selector, growing the arena array if needed.
60 static GLOBALARENA
*GLOBAL_GetArena( WORD sel
, WORD selcount
)
62 if (((sel
>> __AHSHIFT
) + selcount
) > globalArenaSize
)
64 int newsize
= ((sel
>> __AHSHIFT
) + selcount
+ 0xff) & ~0xff;
65 GLOBALARENA
*pNewArena
= realloc( pGlobalArena
,
66 newsize
* sizeof(GLOBALARENA
) );
67 if (!pNewArena
) return 0;
68 pGlobalArena
= pNewArena
;
69 memset( pGlobalArena
+ globalArenaSize
, 0,
70 (newsize
- globalArenaSize
) * sizeof(GLOBALARENA
) );
71 globalArenaSize
= newsize
;
73 return pGlobalArena
+ (sel
>> __AHSHIFT
);
81 for (i
= globalArenaSize
-1 ; i
>=0 ; i
--) {
82 if (pGlobalArena
[i
].size
!=0 && (pGlobalArena
[i
].handle
& 0x8000)){
84 printf("0x%08x, ",pGlobalArena
[i
].handle
);
92 /***********************************************************************
95 * Create a global heap block for a fixed range of linear memory.
97 HGLOBAL16
GLOBAL_CreateBlock( WORD flags
, const void *ptr
, DWORD size
,
98 HGLOBAL16 hOwner
, BOOL16 isCode
,
99 BOOL16 is32Bit
, BOOL16 isReadOnly
,
105 /* Allocate the selector(s) */
107 sel
= SELECTOR_AllocBlock( ptr
, size
,
108 isCode
? SEGMENT_CODE
: SEGMENT_DATA
,
109 is32Bit
, isReadOnly
);
112 selcount
= (size
+ 0xffff) / 0x10000;
114 if (!(pArena
= GLOBAL_GetArena( sel
, selcount
)))
116 SELECTOR_FreeBlock( sel
, selcount
);
120 /* Fill the arena block */
122 pArena
->base
= (DWORD
)ptr
;
123 pArena
->size
= GET_SEL_LIMIT(sel
) + 1;
126 if (flags
& GMEM_DDESHARE
)
128 pArena
->handle
= shmdata
->handle
;
129 pArena
->shmid
= shmdata
->shmid
;
134 pArena
->handle
= (flags
& GMEM_MOVEABLE
) ? sel
- 1 : sel
;
138 pArena
->handle
= (flags
& GMEM_MOVEABLE
) ? sel
- 1 : sel
;
140 pArena
->hOwner
= hOwner
;
141 pArena
->lockCount
= 0;
142 pArena
->pageLockCount
= 0;
143 pArena
->flags
= flags
& GA_MOVEABLE
;
144 if (flags
& GMEM_DISCARDABLE
) pArena
->flags
|= GA_DISCARDABLE
;
145 if (flags
& GMEM_DDESHARE
) pArena
->flags
|= GA_IPCSHARE
;
146 if (!isCode
) pArena
->flags
|= GA_DGROUP
;
147 pArena
->selCount
= selcount
;
148 if (selcount
> 1) /* clear the next arena blocks */
149 memset( pArena
+ 1, 0, (selcount
- 1) * sizeof(GLOBALARENA
) );
151 return pArena
->handle
;
155 /***********************************************************************
158 * Free a block allocated by GLOBAL_CreateBlock, without touching
159 * the associated linear memory range.
161 BOOL16
GLOBAL_FreeBlock( HGLOBAL16 handle
)
166 if (!handle
) return TRUE
;
167 sel
= GlobalHandleToSel( handle
);
168 pArena
= GET_ARENA_PTR(sel
);
169 SELECTOR_FreeBlock( sel
, (pArena
->size
+ 0xffff) / 0x10000 );
170 memset( pArena
, 0, sizeof(GLOBALARENA
) );
175 /***********************************************************************
178 * Implementation of GlobalAlloc16()
180 HGLOBAL16
GLOBAL_Alloc( UINT16 flags
, DWORD size
, HGLOBAL16 hOwner
,
181 BOOL16 isCode
, BOOL16 is32Bit
, BOOL16 isReadOnly
)
187 dprintf_global( stddeb
, "GlobalAlloc: %ld flags=%04x\n", size
, flags
);
189 /* If size is 0, create a discarded block */
191 if (size
== 0) return GLOBAL_CreateBlock( flags
, NULL
, 1, hOwner
, isCode
,
192 is32Bit
, isReadOnly
, NULL
);
196 if (size
>= GLOBAL_MAX_ALLOC_SIZE
- 0x1f) return 0;
197 size
= (size
+ 0x1f) & ~0x1f;
199 /* Allocate the linear memory */
202 if (flags
& GMEM_DDESHARE
)
203 ptr
= DDE_malloc(flags
, size
, &shmdata
);
205 #endif /* CONFIG_IPC */
207 ptr
= HeapAlloc( SystemHeap
, 0, size
);
209 /* FIXME: free discardable blocks and try again? */
212 /* Allocate the selector(s) */
214 handle
= GLOBAL_CreateBlock( flags
, ptr
, size
, hOwner
,
215 isCode
, is32Bit
, isReadOnly
, &shmdata
);
218 HeapFree( SystemHeap
, 0, ptr
);
222 if (flags
& GMEM_ZEROINIT
) memset( ptr
, 0, size
);
228 /***********************************************************************
231 * Find the arena for a given handle
232 * (when handle is not serial - e.g. DDE)
234 static GLOBALARENA
*GLOBAL_FindArena( HGLOBAL16 handle
)
237 for (i
= globalArenaSize
-1 ; i
>=0 ; i
--) {
238 if (pGlobalArena
[i
].size
!=0 && pGlobalArena
[i
].handle
== handle
)
239 return ( &pGlobalArena
[i
] );
245 /***********************************************************************
246 * DDE_GlobalHandleToSel
249 WORD
DDE_GlobalHandleToSel( HGLOBAL16 handle
)
254 pArena
= GLOBAL_FindArena(handle
);
256 int ArenaIdx
= pArena
- pGlobalArena
;
258 /* See if synchronized to the shared memory */
259 return DDE_SyncHandle(handle
, ( ArenaIdx
<< __AHSHIFT
) | 7);
262 /* attach the block */
263 DDE_AttachHandle(handle
, &segptr
);
265 return SELECTOROF( segptr
);
267 #endif /* CONFIG_IPC */
270 /***********************************************************************
271 * GlobalAlloc16 (KERNEL.15)
273 HGLOBAL16 WINAPI
GlobalAlloc16( UINT16 flags
, DWORD size
)
275 HANDLE16 owner
= GetCurrentPDB();
277 if (flags
& GMEM_DDESHARE
)
278 owner
= MODULE_HANDLEtoHMODULE16(owner
); /* Make it a module handle */
279 return GLOBAL_Alloc( flags
, size
, owner
, FALSE
, FALSE
, FALSE
);
283 /***********************************************************************
284 * GlobalReAlloc16 (KERNEL.16)
286 HGLOBAL16 WINAPI
GlobalReAlloc16( HGLOBAL16 handle
, DWORD size
, UINT16 flags
)
291 GLOBALARENA
*pArena
, *pNewArena
;
292 WORD sel
= GlobalHandleToSel( handle
);
294 dprintf_global( stddeb
, "GlobalReAlloc16: %04x %ld flags=%04x\n",
295 handle
, size
, flags
);
296 if (!handle
) return 0;
299 if (flags
& GMEM_DDESHARE
|| is_dde_handle(handle
))
302 "GlobalReAlloc16: shared memory reallocating unimplemented\n");
305 #endif /* CONFIG_IPC */
307 pArena
= GET_ARENA_PTR( handle
);
309 /* Discard the block if requested */
311 if ((size
== 0) && (flags
& GMEM_MOVEABLE
) && !(flags
& GMEM_MODIFY
))
313 if (!(pArena
->flags
& GA_MOVEABLE
) ||
314 !(pArena
->flags
& GA_DISCARDABLE
) ||
315 (pArena
->lockCount
> 0) || (pArena
->pageLockCount
> 0)) return 0;
316 HeapFree( SystemHeap
, 0, (void *)pArena
->base
);
319 /* Note: we rely on the fact that SELECTOR_ReallocBlock won't
320 * change the selector if we are shrinking the block.
321 * FIXME: shouldn't we keep selectors until the block is deleted?
323 SELECTOR_ReallocBlock( sel
, 0, 1, SEGMENT_DATA
, 0, 0 );
329 if (size
> GLOBAL_MAX_ALLOC_SIZE
- 0x20) return 0;
330 if (size
== 0) size
= 0x20;
331 else size
= (size
+ 0x1f) & ~0x1f;
333 /* Change the flags */
335 if (flags
& GMEM_MODIFY
)
337 /* Change the flags, leaving GA_DGROUP alone */
338 pArena
->flags
= (pArena
->flags
& GA_DGROUP
) | (flags
& GA_MOVEABLE
);
339 if (flags
& GMEM_DISCARDABLE
) pArena
->flags
|= GA_DISCARDABLE
;
343 /* Reallocate the linear memory */
345 ptr
= (void *)pArena
->base
;
346 oldsize
= pArena
->size
;
347 dprintf_global(stddeb
,"oldsize %08lx\n",oldsize
);
348 if (ptr
&& (size
== oldsize
)) return handle
; /* Nothing to do */
350 ptr
= HeapReAlloc( SystemHeap
, 0, ptr
, size
);
353 SELECTOR_FreeBlock( sel
, (oldsize
+ 0xffff) / 0x10000 );
354 memset( pArena
, 0, sizeof(GLOBALARENA
) );
358 /* Reallocate the selector(s) */
360 sel
= SELECTOR_ReallocBlock( sel
, ptr
, size
, SEGMENT_DATA
, 0, 0 );
363 HeapFree( SystemHeap
, 0, ptr
);
364 memset( pArena
, 0, sizeof(GLOBALARENA
) );
367 selcount
= (size
+ 0xffff) / 0x10000;
369 if (!(pNewArena
= GLOBAL_GetArena( sel
, selcount
)))
371 HeapFree( SystemHeap
, 0, ptr
);
372 SELECTOR_FreeBlock( sel
, selcount
);
376 /* Fill the new arena block */
378 if (pNewArena
!= pArena
) memcpy( pNewArena
, pArena
, sizeof(GLOBALARENA
) );
379 pNewArena
->base
= (DWORD
)ptr
;
380 pNewArena
->size
= GET_SEL_LIMIT(sel
) + 1;
381 pNewArena
->selCount
= selcount
;
382 pNewArena
->handle
= (pNewArena
->flags
& GA_MOVEABLE
) ? sel
- 1 : sel
;
384 if (selcount
> 1) /* clear the next arena blocks */
385 memset( pNewArena
+ 1, 0, (selcount
- 1) * sizeof(GLOBALARENA
) );
387 if ((oldsize
< size
) && (flags
& GMEM_ZEROINIT
))
388 memset( (char *)ptr
+ oldsize
, 0, size
- oldsize
);
389 return pNewArena
->handle
;
393 /***********************************************************************
394 * GlobalFree16 (KERNEL.17)
396 HGLOBAL16 WINAPI
GlobalFree16( HGLOBAL16 handle
)
398 void *ptr
= (void *)GET_ARENA_PTR(handle
)->base
;
400 dprintf_global( stddeb
, "GlobalFree16: %04x\n", handle
);
401 if (!GLOBAL_FreeBlock( handle
)) return handle
; /* failed */
403 if (is_dde_handle(handle
)) return DDE_GlobalFree(handle
);
404 #endif /* CONFIG_IPC */
405 if (ptr
) HeapFree( SystemHeap
, 0, ptr
);
410 /***********************************************************************
411 * WIN16_GlobalLock16 (KERNEL.18)
413 * This is the GlobalLock16() function used by 16-bit code.
415 SEGPTR WINAPI
WIN16_GlobalLock16( HGLOBAL16 handle
)
417 dprintf_global( stddeb
, "WIN16_GlobalLock16(%04x) -> %08lx\n",
418 handle
, MAKELONG( 0, GlobalHandleToSel(handle
)) );
421 if (handle
== (HGLOBAL16
)-1) handle
= CURRENT_DS
;
424 if (is_dde_handle(handle
))
425 return PTR_SEG_OFF_TO_SEGPTR( DDE_GlobalHandleToSel(handle
), 0 );
426 #endif /* CONFIG_IPC */
428 if (!GET_ARENA_PTR(handle
)->base
) return (SEGPTR
)0;
429 GET_ARENA_PTR(handle
)->lockCount
++;
430 return PTR_SEG_OFF_TO_SEGPTR( GlobalHandleToSel(handle
), 0 );
431 /* FIXME: put segment value in CX as well */
437 /***********************************************************************
438 * GlobalLock16 (KERNEL.18)
440 * This is the GlobalLock16() function used by 32-bit code.
442 LPVOID WINAPI
GlobalLock16( HGLOBAL16 handle
)
444 if (!handle
) return 0;
445 GET_ARENA_PTR(handle
)->lockCount
++;
447 if (is_dde_handle(handle
)) return DDE_AttachHandle(handle
, NULL
);
449 return (LPVOID
)GET_ARENA_PTR(handle
)->base
;
453 /***********************************************************************
454 * GlobalUnlock16 (KERNEL.19)
456 BOOL16 WINAPI
GlobalUnlock16( HGLOBAL16 handle
)
458 GLOBALARENA
*pArena
= GET_ARENA_PTR(handle
);
459 dprintf_global( stddeb
, "GlobalUnlock16: %04x\n", handle
);
460 if (pArena
->lockCount
) pArena
->lockCount
--;
461 return pArena
->lockCount
;
465 /***********************************************************************
466 * GlobalSize16 (KERNEL.20)
468 DWORD WINAPI
GlobalSize16( HGLOBAL16 handle
)
470 dprintf_global( stddeb
, "GlobalSize16: %04x\n", handle
);
471 if (!handle
) return 0;
472 return GET_ARENA_PTR(handle
)->size
;
476 /***********************************************************************
477 * GlobalHandle16 (KERNEL.21)
479 DWORD WINAPI
GlobalHandle16( WORD sel
)
481 dprintf_global( stddeb
, "GlobalHandle16: %04x\n", sel
);
482 return MAKELONG( GET_ARENA_PTR(sel
)->handle
, GlobalHandleToSel(sel
) );
485 /***********************************************************************
486 * GlobalHandleNoRIP (KERNEL.159)
488 DWORD WINAPI
GlobalHandleNoRIP( WORD sel
)
491 for (i
= globalArenaSize
-1 ; i
>=0 ; i
--) {
492 if (pGlobalArena
[i
].size
!=0 && pGlobalArena
[i
].handle
== sel
)
493 return MAKELONG( GET_ARENA_PTR(sel
)->handle
, GlobalHandleToSel(sel
) );
498 /***********************************************************************
499 * GlobalFlags16 (KERNEL.22)
501 UINT16 WINAPI
GlobalFlags16( HGLOBAL16 handle
)
505 dprintf_global( stddeb
, "GlobalFlags16: %04x\n", handle
);
506 pArena
= GET_ARENA_PTR(handle
);
507 return pArena
->lockCount
|
508 ((pArena
->flags
& GA_DISCARDABLE
) ? GMEM_DISCARDABLE
: 0) |
509 ((pArena
->base
== 0) ? GMEM_DISCARDED
: 0);
513 /***********************************************************************
514 * LockSegment16 (KERNEL.23)
516 HGLOBAL16 WINAPI
LockSegment16( HGLOBAL16 handle
)
518 dprintf_global( stddeb
, "LockSegment: %04x\n", handle
);
519 if (handle
== (HGLOBAL16
)-1) handle
= CURRENT_DS
;
520 GET_ARENA_PTR(handle
)->lockCount
++;
525 /***********************************************************************
526 * UnlockSegment16 (KERNEL.24)
528 void WINAPI
UnlockSegment16( HGLOBAL16 handle
)
530 dprintf_global( stddeb
, "UnlockSegment: %04x\n", handle
);
531 if (handle
== (HGLOBAL16
)-1) handle
= CURRENT_DS
;
532 GET_ARENA_PTR(handle
)->lockCount
--;
533 /* FIXME: this ought to return the lock count in CX (go figure...) */
537 /***********************************************************************
538 * GlobalCompact16 (KERNEL.25)
540 DWORD WINAPI
GlobalCompact16( DWORD desired
)
542 return GLOBAL_MAX_ALLOC_SIZE
;
546 /***********************************************************************
547 * GlobalFreeAll (KERNEL.26)
549 void WINAPI
GlobalFreeAll( HGLOBAL16 owner
)
554 pArena
= pGlobalArena
;
555 for (i
= 0; i
< globalArenaSize
; i
++, pArena
++)
557 if ((pArena
->size
!= 0) && (pArena
->hOwner
== owner
))
558 GlobalFree16( pArena
->handle
);
563 /***********************************************************************
564 * GlobalWire16 (KERNEL.111)
566 SEGPTR WINAPI
GlobalWire16( HGLOBAL16 handle
)
568 return WIN16_GlobalLock16( handle
);
572 /***********************************************************************
573 * GlobalUnWire16 (KERNEL.112)
575 BOOL16 WINAPI
GlobalUnWire16( HGLOBAL16 handle
)
577 return !GlobalUnlock16( handle
);
581 /***********************************************************************
582 * SetSwapAreaSize16 (KERNEL.106)
584 LONG WINAPI
SetSwapAreaSize16( WORD size
)
586 dprintf_global(stdnimp
, "STUB: SetSwapAreaSize(%d)\n", size
);
587 return MAKELONG( size
, 0xffff );
591 /***********************************************************************
592 * GlobalLRUOldest (KERNEL.163)
594 HGLOBAL16 WINAPI
GlobalLRUOldest( HGLOBAL16 handle
)
596 dprintf_global( stddeb
, "GlobalLRUOldest: %04x\n", handle
);
597 if (handle
== (HGLOBAL16
)-1) handle
= CURRENT_DS
;
602 /***********************************************************************
603 * GlobalLRUNewest (KERNEL.164)
605 HGLOBAL16 WINAPI
GlobalLRUNewest( HGLOBAL16 handle
)
607 dprintf_global( stddeb
, "GlobalLRUNewest: %04x\n", handle
);
608 if (handle
== (HGLOBAL16
)-1) handle
= CURRENT_DS
;
613 /***********************************************************************
614 * GetFreeSpace16 (KERNEL.169)
616 DWORD WINAPI
GetFreeSpace16( UINT16 wFlags
)
619 GlobalMemoryStatus( &ms
);
620 return ms
.dwAvailVirtual
;
623 /***********************************************************************
624 * GlobalDOSAlloc (KERNEL.184)
626 DWORD WINAPI
GlobalDOSAlloc(DWORD size
)
629 LPVOID lpBlock
= DOSMEM_GetBlock( size
, &uParagraph
);
633 HMODULE16 hModule
= GetModuleHandle16("KERNEL");
636 wSelector
= GLOBAL_CreateBlock(GMEM_FIXED
, lpBlock
, size
,
637 hModule
, 0, 0, 0, NULL
);
638 return MAKELONG(wSelector
,uParagraph
);
643 /***********************************************************************
644 * GlobalDOSFree (KERNEL.185)
646 WORD WINAPI
GlobalDOSFree(WORD sel
)
648 DWORD block
= GetSelectorBase(sel
);
650 if( block
&& block
< 0x100000 )
652 LPVOID lpBlock
= DOSMEM_MapDosToLinear( block
);
653 if( DOSMEM_FreeBlock( lpBlock
) )
654 GLOBAL_FreeBlock( sel
);
660 /***********************************************************************
661 * GlobalPageLock (KERNEL.191)
663 WORD WINAPI
GlobalPageLock( HGLOBAL16 handle
)
665 dprintf_global( stddeb
, "GlobalPageLock: %04x\n", handle
);
666 return ++(GET_ARENA_PTR(handle
)->pageLockCount
);
670 /***********************************************************************
671 * GlobalPageUnlock (KERNEL.192)
673 WORD WINAPI
GlobalPageUnlock( HGLOBAL16 handle
)
675 dprintf_global( stddeb
, "GlobalPageUnlock: %04x\n", handle
);
676 return --(GET_ARENA_PTR(handle
)->pageLockCount
);
680 /***********************************************************************
681 * GlobalFix16 (KERNEL.197)
683 void WINAPI
GlobalFix16( HGLOBAL16 handle
)
685 dprintf_global( stddeb
, "GlobalFix16: %04x\n", handle
);
686 GET_ARENA_PTR(handle
)->lockCount
++;
690 /***********************************************************************
691 * GlobalUnfix16 (KERNEL.198)
693 void WINAPI
GlobalUnfix16( HGLOBAL16 handle
)
695 dprintf_global( stddeb
, "GlobalUnfix16: %04x\n", handle
);
696 GET_ARENA_PTR(handle
)->lockCount
--;
700 /***********************************************************************
701 * FarSetOwner (KERNEL.403)
703 void WINAPI
FarSetOwner( HGLOBAL16 handle
, HANDLE16 hOwner
)
705 GET_ARENA_PTR(handle
)->hOwner
= hOwner
;
709 /***********************************************************************
710 * FarGetOwner (KERNEL.404)
712 HANDLE16 WINAPI
FarGetOwner( HGLOBAL16 handle
)
714 return GET_ARENA_PTR(handle
)->hOwner
;
718 /***********************************************************************
719 * GlobalHandleToSel (TOOLHELP.50)
721 WORD WINAPI
GlobalHandleToSel( HGLOBAL16 handle
)
723 dprintf_toolhelp( stddeb
, "GlobalHandleToSel: %04x\n", handle
);
724 if (!handle
) return 0;
726 if (is_dde_handle(handle
)) return DDE_GlobalHandleToSel(handle
);
730 fprintf( stderr
, "Program attempted invalid selector conversion\n" );
737 /***********************************************************************
738 * GlobalFirst (TOOLHELP.51)
740 BOOL16 WINAPI
GlobalFirst( GLOBALENTRY
*pGlobal
, WORD wFlags
)
742 if (wFlags
== GLOBAL_LRU
) return FALSE
;
744 return GlobalNext( pGlobal
, wFlags
);
748 /***********************************************************************
749 * GlobalNext (TOOLHELP.52)
751 BOOL16 WINAPI
GlobalNext( GLOBALENTRY
*pGlobal
, WORD wFlags
)
755 if (pGlobal
->dwNext
>= globalArenaSize
) return FALSE
;
756 pArena
= pGlobalArena
+ pGlobal
->dwNext
;
757 if (wFlags
== GLOBAL_FREE
) /* only free blocks */
760 for (i
= pGlobal
->dwNext
; i
< globalArenaSize
; i
++, pArena
++)
761 if (pArena
->size
== 0) break; /* block is free */
762 if (i
>= globalArenaSize
) return FALSE
;
766 pGlobal
->dwAddress
= pArena
->base
;
767 pGlobal
->dwBlockSize
= pArena
->size
;
768 pGlobal
->hBlock
= pArena
->handle
;
769 pGlobal
->wcLock
= pArena
->lockCount
;
770 pGlobal
->wcPageLock
= pArena
->pageLockCount
;
771 pGlobal
->wFlags
= (GetCurrentPDB() == pArena
->hOwner
);
772 pGlobal
->wHeapPresent
= FALSE
;
773 pGlobal
->hOwner
= pArena
->hOwner
;
774 pGlobal
->wType
= GT_UNKNOWN
;
781 /***********************************************************************
782 * GlobalInfo (TOOLHELP.53)
784 BOOL16 WINAPI
GlobalInfo( GLOBALINFO
*pInfo
)
789 pInfo
->wcItems
= globalArenaSize
;
790 pInfo
->wcItemsFree
= 0;
791 pInfo
->wcItemsLRU
= 0;
792 for (i
= 0, pArena
= pGlobalArena
; i
< globalArenaSize
; i
++, pArena
++)
793 if (pArena
->size
== 0) pInfo
->wcItemsFree
++;
798 /***********************************************************************
799 * GlobalEntryHandle (TOOLHELP.54)
801 BOOL16 WINAPI
GlobalEntryHandle( GLOBALENTRY
*pGlobal
, HGLOBAL16 hItem
)
807 /***********************************************************************
808 * GlobalEntryModule (TOOLHELP.55)
810 BOOL16 WINAPI
GlobalEntryModule( GLOBALENTRY
*pGlobal
, HMODULE16 hModule
,
817 /***********************************************************************
818 * MemManInfo (TOOLHELP.72)
820 BOOL16 WINAPI
MemManInfo( MEMMANINFO
*info
)
825 * Not unsurprisingly although the documention says you
826 * _must_ provide the size in the dwSize field, this function
827 * (under Windows) always fills the structure and returns true.
829 GlobalMemoryStatus( &status
);
831 info
->wPageSize
= sysconf(_SC_PAGESIZE
);
833 info
->wPageSize
= getpagesize();
835 info
->dwLargestFreeBlock
= status
.dwAvailVirtual
;
836 info
->dwMaxPagesAvailable
= info
->dwLargestFreeBlock
/ info
->wPageSize
;
837 info
->dwMaxPagesLockable
= info
->dwMaxPagesAvailable
;
838 info
->dwTotalLinearSpace
= status
.dwTotalVirtual
/ info
->wPageSize
;
839 info
->dwTotalUnlockedPages
= info
->dwTotalLinearSpace
;
840 info
->dwFreePages
= info
->dwMaxPagesAvailable
;
841 info
->dwTotalPages
= info
->dwTotalLinearSpace
;
842 info
->dwFreeLinearSpace
= info
->dwMaxPagesAvailable
;
843 info
->dwSwapFilePages
= status
.dwTotalPageFile
/ info
->wPageSize
;
847 /***********************************************************************
848 * GetFreeMemInfo (KERNEL.316)
850 DWORD WINAPI
GetFreeMemInfo(void)
854 return MAKELONG( info
.dwTotalLinearSpace
, info
.dwMaxPagesAvailable
);
858 * Win32 Global heap functions (GlobalXXX).
859 * These functions included in Win32 for compatibility with 16 bit Windows
860 * Especially the moveable blocks and handles are oldish.
861 * But the ability to directly allocate memory with GPTR and LPTR is widely
864 * The handle stuff looks horrible, but it's implemented almost like Win95
869 #define MAGIC_GLOBAL_USED 0x5342
870 #define GLOBAL_LOCK_MAX 0xFF
871 #define HANDLE_TO_INTERN(h) ((PGLOBAL32_INTERN)(((char *)(h))-2))
872 #define INTERN_TO_HANDLE(i) ((HGLOBAL32) &((i)->Pointer))
873 #define POINTER_TO_HANDLE(p) (*(((HGLOBAL32 *)(p))-1))
874 #define ISHANDLE(h) (((DWORD)(h)&2)!=0)
875 #define ISPOINTER(h) (((DWORD)(h)&2)==0)
877 typedef struct __GLOBAL32_INTERN
880 LPVOID Pointer WINE_PACKED
;
883 } GLOBAL32_INTERN
, *PGLOBAL32_INTERN
;
886 /***********************************************************************
887 * GlobalAlloc32 (KERNEL32.315)
889 HGLOBAL32 WINAPI
GlobalAlloc32(UINT32 flags
, DWORD size
)
891 PGLOBAL32_INTERN pintern
;
895 if(flags
&GMEM_ZEROINIT
)
896 hpflags
=HEAP_ZERO_MEMORY
;
900 if((flags
& GMEM_MOVEABLE
)==0) /* POINTER */
902 palloc
=HeapAlloc(GetProcessHeap(), hpflags
, size
);
903 return (HGLOBAL32
) palloc
;
907 /* HeapLock(GetProcessHeap()); */
909 pintern
=HeapAlloc(GetProcessHeap(), 0, sizeof(GLOBAL32_INTERN
));
912 palloc
=HeapAlloc(GetProcessHeap(), hpflags
, size
+sizeof(HGLOBAL32
));
913 *(HGLOBAL32
*)palloc
=INTERN_TO_HANDLE(pintern
);
914 pintern
->Pointer
=palloc
+sizeof(HGLOBAL32
);
917 pintern
->Pointer
=NULL
;
918 pintern
->Magic
=MAGIC_GLOBAL_USED
;
919 pintern
->Flags
=flags
>>8;
920 pintern
->LockCount
=0;
922 /* HeapUnlock(GetProcessHeap()); */
924 return INTERN_TO_HANDLE(pintern
);
929 /***********************************************************************
930 * GlobalLock32 (KERNEL32.326)
932 LPVOID WINAPI
GlobalLock32(HGLOBAL32 hmem
)
934 PGLOBAL32_INTERN pintern
;
938 return (LPVOID
) hmem
;
940 /* HeapLock(GetProcessHeap()); */
942 pintern
=HANDLE_TO_INTERN(hmem
);
943 if(pintern
->Magic
==MAGIC_GLOBAL_USED
)
945 if(pintern
->LockCount
<GLOBAL_LOCK_MAX
)
946 pintern
->LockCount
++;
947 palloc
=pintern
->Pointer
;
951 dprintf_global(stddeb
, "GlobalLock32: invalid handle\n");
952 palloc
=(LPVOID
) NULL
;
954 /* HeapUnlock(GetProcessHeap()); */;
959 /***********************************************************************
960 * GlobalUnlock32 (KERNEL32.332)
962 BOOL32 WINAPI
GlobalUnlock32(HGLOBAL32 hmem
)
964 PGLOBAL32_INTERN pintern
;
970 /* HeapLock(GetProcessHeap()); */
971 pintern
=HANDLE_TO_INTERN(hmem
);
973 if(pintern
->Magic
==MAGIC_GLOBAL_USED
)
975 if((pintern
->LockCount
<GLOBAL_LOCK_MAX
)&&(pintern
->LockCount
>0))
976 pintern
->LockCount
--;
978 locked
=(pintern
->LockCount
==0) ? FALSE
: TRUE
;
982 dprintf_global(stddeb
, "GlobalUnlock32: invalid handle\n");
985 /* HeapUnlock(GetProcessHeap()); */
990 /***********************************************************************
991 * GlobalHandle32 (KERNEL32.325)
993 HGLOBAL32 WINAPI
GlobalHandle32(LPCVOID pmem
)
997 if (!HEAP_IsInsideHeap( GetProcessHeap(), 0, pmem
)) goto error
;
998 handle
= POINTER_TO_HANDLE(pmem
);
999 if (HEAP_IsInsideHeap( GetProcessHeap(), 0, (LPCVOID
)handle
))
1001 if (HANDLE_TO_INTERN(handle
)->Magic
== MAGIC_GLOBAL_USED
)
1002 return handle
; /* valid moveable block */
1004 /* maybe FIXED block */
1005 if (HeapValidate( GetProcessHeap(), 0, pmem
))
1006 return (HGLOBAL32
)pmem
; /* valid fixed block */
1009 SetLastError( ERROR_INVALID_HANDLE
);
1014 /***********************************************************************
1015 * GlobalReAlloc32 (KERNEL32.328)
1017 HGLOBAL32 WINAPI
GlobalReAlloc32(HGLOBAL32 hmem
, DWORD size
, UINT32 flags
)
1021 PGLOBAL32_INTERN pintern
;
1024 /* HeapLock(GetProcessHeap()); */
1025 if(flags
& GMEM_MODIFY
) /* modify flags */
1027 if( ISPOINTER(hmem
) && (flags
& GMEM_MOVEABLE
))
1029 /* make a fixed block moveable
1030 * actually only NT is able to do this. But it's soo simple
1032 size
=HeapSize(GetProcessHeap(), 0, (LPVOID
) hmem
);
1033 hnew
=GlobalAlloc32( flags
, size
);
1034 palloc
=GlobalLock32(hnew
);
1035 memcpy(palloc
, (LPVOID
) hmem
, size
);
1036 GlobalUnlock32(hnew
);
1039 else if( ISPOINTER(hmem
) &&(flags
& GMEM_DISCARDABLE
))
1041 /* change the flags to make our block "discardable" */
1042 pintern
=HANDLE_TO_INTERN(hmem
);
1043 pintern
->Flags
= pintern
->Flags
| (GMEM_DISCARDABLE
>> 8);
1048 SetLastError(ERROR_INVALID_PARAMETER
);
1056 /* reallocate fixed memory */
1057 hnew
=(HGLOBAL32
)HeapReAlloc(GetProcessHeap(), 0, (LPVOID
) hmem
, size
);
1061 /* reallocate a moveable block */
1062 pintern
=HANDLE_TO_INTERN(hmem
);
1063 if(pintern
->LockCount
!=0)
1064 SetLastError(ERROR_INVALID_HANDLE
);
1068 if(pintern
->Pointer
)
1070 palloc
=HeapReAlloc(GetProcessHeap(), 0,
1071 pintern
->Pointer
-sizeof(HGLOBAL32
),
1072 size
+sizeof(HGLOBAL32
) );
1073 pintern
->Pointer
=palloc
+sizeof(HGLOBAL32
);
1077 palloc
=HeapAlloc(GetProcessHeap(), 0, size
+sizeof(HGLOBAL32
));
1078 *(HGLOBAL32
*)palloc
=hmem
;
1079 pintern
->Pointer
=palloc
+sizeof(HGLOBAL32
);
1084 if(pintern
->Pointer
)
1086 HeapFree(GetProcessHeap(), 0, pintern
->Pointer
-sizeof(HGLOBAL32
));
1087 pintern
->Pointer
=NULL
;
1092 /* HeapUnlock(GetProcessHeap()); */
1097 /***********************************************************************
1098 * GlobalFree32 (KERNEL32.322)
1100 HGLOBAL32 WINAPI
GlobalFree32(HGLOBAL32 hmem
)
1102 PGLOBAL32_INTERN pintern
;
1103 HGLOBAL32 hreturned
= 0;
1105 if(ISPOINTER(hmem
)) /* POINTER */
1107 if(!HeapFree(GetProcessHeap(), 0, (LPVOID
) hmem
)) hmem
= 0;
1111 /* HeapLock(GetProcessHeap()); */
1112 pintern
=HANDLE_TO_INTERN(hmem
);
1114 if(pintern
->Magic
==MAGIC_GLOBAL_USED
)
1116 if(pintern
->LockCount
!=0)
1117 SetLastError(ERROR_INVALID_HANDLE
);
1118 if(pintern
->Pointer
)
1119 if(!HeapFree(GetProcessHeap(), 0,
1120 (char *)(pintern
->Pointer
)-sizeof(HGLOBAL32
)))
1122 if(!HeapFree(GetProcessHeap(), 0, pintern
))
1125 /* HeapUnlock(GetProcessHeap()); */
1131 /***********************************************************************
1132 * GlobalSize32 (KERNEL32.329)
1134 DWORD WINAPI
GlobalSize32(HGLOBAL32 hmem
)
1137 PGLOBAL32_INTERN pintern
;
1141 retval
=HeapSize(GetProcessHeap(), 0, (LPVOID
) hmem
);
1145 /* HeapLock(GetProcessHeap()); */
1146 pintern
=HANDLE_TO_INTERN(hmem
);
1148 if(pintern
->Magic
==MAGIC_GLOBAL_USED
)
1150 retval
=HeapSize(GetProcessHeap(), 0,
1151 (char *)(pintern
->Pointer
)-sizeof(HGLOBAL32
))-4;
1155 dprintf_global(stddeb
, "GlobalSize32: invalid handle\n");
1158 /* HeapUnlock(GetProcessHeap()); */
1164 /***********************************************************************
1165 * GlobalWire32 (KERNEL32.333)
1167 LPVOID WINAPI
GlobalWire32(HGLOBAL32 hmem
)
1169 return GlobalLock32( hmem
);
1173 /***********************************************************************
1174 * GlobalUnWire32 (KERNEL32.330)
1176 BOOL32 WINAPI
GlobalUnWire32(HGLOBAL32 hmem
)
1178 return GlobalUnlock32( hmem
);
1182 /***********************************************************************
1183 * GlobalFix32 (KERNEL32.320)
1185 VOID WINAPI
GlobalFix32(HGLOBAL32 hmem
)
1187 GlobalLock32( hmem
);
1191 /***********************************************************************
1192 * GlobalUnfix32 (KERNEL32.331)
1194 VOID WINAPI
GlobalUnfix32(HGLOBAL32 hmem
)
1196 GlobalUnlock32( hmem
);
1200 /***********************************************************************
1201 * GlobalFlags32 (KERNEL32.321)
1203 UINT32 WINAPI
GlobalFlags32(HGLOBAL32 hmem
)
1206 PGLOBAL32_INTERN pintern
;
1214 /* HeapLock(GetProcessHeap()); */
1215 pintern
=HANDLE_TO_INTERN(hmem
);
1216 if(pintern
->Magic
==MAGIC_GLOBAL_USED
)
1218 retval
=pintern
->LockCount
+ (pintern
->Flags
<<8);
1219 if(pintern
->Pointer
==0)
1220 retval
|= GMEM_DISCARDED
;
1224 dprintf_global(stddeb
,"GlobalFlags32: invalid handle\n");
1227 /* HeapUnlock(GetProcessHeap()); */
1233 /***********************************************************************
1234 * GlobalCompact32 (KERNEL32.316)
1236 DWORD WINAPI
GlobalCompact32( DWORD minfree
)
1238 return 0; /* GlobalCompact does nothing in Win32 */
1242 /***********************************************************************
1243 * GlobalMemoryStatus (KERNEL32.327)
1245 VOID WINAPI
GlobalMemoryStatus( LPMEMORYSTATUS lpmem
)
1248 FILE *f
= fopen( "/proc/meminfo", "r" );
1252 int total
, used
, free
;
1254 lpmem
->dwTotalPhys
= lpmem
->dwAvailPhys
= 0;
1255 lpmem
->dwTotalPageFile
= lpmem
->dwAvailPageFile
= 0;
1256 while (fgets( buffer
, sizeof(buffer
), f
))
1258 /* old style /proc/meminfo ... */
1259 if (sscanf( buffer
, "Mem: %d %d %d", &total
, &used
, &free
))
1261 lpmem
->dwTotalPhys
+= total
;
1262 lpmem
->dwAvailPhys
+= free
;
1264 if (sscanf( buffer
, "Swap: %d %d %d", &total
, &used
, &free
))
1266 lpmem
->dwTotalPageFile
+= total
;
1267 lpmem
->dwAvailPageFile
+= free
;
1270 /* new style /proc/meminfo ... */
1271 if (sscanf(buffer
, "MemTotal: %d", &total
))
1272 lpmem
->dwTotalPhys
= total
*1024;
1273 if (sscanf(buffer
, "MemFree: %d", &free
))
1274 lpmem
->dwAvailPhys
= free
*1024;
1275 if (sscanf(buffer
, "SwapTotal: %d", &total
))
1276 lpmem
->dwTotalPageFile
= total
*1024;
1277 if (sscanf(buffer
, "SwapFree: %d", &free
))
1278 lpmem
->dwAvailPageFile
= free
*1024;
1282 if (lpmem
->dwTotalPhys
)
1284 lpmem
->dwTotalVirtual
= lpmem
->dwTotalPhys
+lpmem
->dwTotalPageFile
;
1285 lpmem
->dwAvailVirtual
= lpmem
->dwAvailPhys
+lpmem
->dwAvailPageFile
;
1286 lpmem
->dwMemoryLoad
= (lpmem
->dwTotalVirtual
-lpmem
->dwAvailVirtual
)
1287 / (lpmem
->dwTotalVirtual
/ 100);
1292 /* FIXME: should do something for other systems */
1293 lpmem
->dwMemoryLoad
= 0;
1294 lpmem
->dwTotalPhys
= 16*1024*1024;
1295 lpmem
->dwAvailPhys
= 16*1024*1024;
1296 lpmem
->dwTotalPageFile
= 16*1024*1024;
1297 lpmem
->dwAvailPageFile
= 16*1024*1024;
1298 lpmem
->dwTotalVirtual
= 32*1024*1024;
1299 lpmem
->dwAvailVirtual
= 32*1024*1024;
1302 /**********************************************************************
1303 * WOWGlobalAllocLock (KERNEL32.62)
1305 * Combined GlobalAlloc and GlobalLock.
1307 SEGPTR WINAPI
WOWGlobalAllocLock16(DWORD flags
,DWORD cb
,HGLOBAL16
*hmem
)
1310 xhmem
= GlobalAlloc16(flags
,cb
);
1311 if (hmem
) *hmem
= xhmem
;
1312 return WIN16_GlobalLock16(xhmem
);