haskell/win32

// Out-of-line versions of all the inline functions from HsWin32.h
#define INLINE  /* nothing */
#include "HsWin32.h"

void UnmapViewOfFileFinaliser(void * p) {
    UnmapViewOfFile(p);
}

void CloseHandleFinaliser(HANDLE h) {
    CloseHandle(h);
}

void FreeLibraryFinaliser(HMODULE m) {
    FreeLibrary(m);
}

void DeleteObjectFinaliser(HGDIOBJ h) {
    DeleteObject(h);
}