Select Code to Download

#! perl -slw
use strict;
...
U32 heapFree( U32 hHeap, U32 flags, U32 mem ) {
    return (U32)HeapFree( (HANDLE)hHeap, flags, (LPVOID)mem );
}

c:\test>HeapMem.pl
pagefaults before alloc of 40960 bytes: 952
...
pagefaults before alloc of 40960 bytes: 965
pagefaults after alloc of 40960 bytes: 965
40960