#! perl -slw
use strict;
use Inline  C => Config => LIBS => '-lpsapi.lib';

use Inline C => 'DATA', NAME => 'heap', CLEAN_AFTER_BUILD => 0;

my $heap = heapCreate( 0, 0, 1024 * 1024 );

my $space = heapAlloc( $heap, 0, 4096 * 10 );
heapFree( $heap, 0, $space );

$space = heapAlloc( $heap, 0, 4096 * 10 );

print heapSize( $heap, 0, $space );


__DATA__
__C__

#include <windows.h>
#include <psapi.h>

U32 heapCreate( U32 flags, U32 initial, int max ) {
    return (U32) HeapCreate( flags, initial, max );
}

U32 heapAlloc( U32 hHeap, U32 flags, U32 size ) {
    U32 pMem;
    PROCESS_MEMORY_COUNTERS pmc;
    pmc.cb = sizeof( PROCESS_MEMORY_COUNTERS );

    GetProcessMemoryInfo( GetCurrentProcess(), 
        &pmc, sizeof( PROCESS_MEMORY_COUNTERS ) 
    );
    printf( "pagefaults before alloc of %d bytes: %d\n", 
        size, pmc.PageFaultCount 
    );

    pMem = (U32)HeapAlloc( (HANDLE)hHeap, flags, (SIZE_T)size );

    GetProcessMemoryInfo( GetCurrentProcess(), 
        &pmc, sizeof( PROCESS_MEMORY_COUNTERS ) 
    );
    printf( "pagefaults after alloc of %d bytes: %d\n",
        size, pmc.PageFaultCount 
    );

    return pMem;
}

U32 heapSize( U32 hHeap, U32 flags, U32 mem ) {
    return (U32)HeapSize( (HANDLE)hHeap, flags, (LPVOID)mem );
}

U32 heapFree( U32 hHeap, U32 flags, U32 mem ) {
    return (U32)HeapFree( (HANDLE)hHeap, flags, (LPVOID)mem );
}