/*
 * Win32 miscellaneous functions
 *
 * Copyright 1995 Thomas Sandford (tdgsandf@prds-grn.demon.co.uk)
 */

/* Misc. new functions - they should be moved into appropriate files
at a later date. */

#include <stdio.h>
#include "windows.h"
#include "winerror.h"
#include "kernel32.h"
#include "stddebug.h"
#include "debug.h"

/***********************************************************************
 *           RaiseException		(KERNEL32.??)
 *
 * Stub function - does not allow exceptions to be caught yet
 */
WINAPI VOID RaiseException(DWORD dwExceptionCode,
		    DWORD dwExceptionFlags,
		    DWORD cArguments,
		    const DWORD * lpArguments)
{
    ExitProcess(dwExceptionCode); /* what status should be used here ? */
}

/***********************************************************************
 *           GetProcAddress		(KERNEL32.257)
 *
 */
WINAPI FARPROC W32_GetProcAddress(HMODULE hModule,
			      LPCSTR lpszProc)
{
    char *modulename;

    modulename = MODULE_GetModuleName(hModule);
    if (modulename == NULL)
	return (FARPROC) NULL;
    if (((int) lpszProc) & 0xffff) 
	return RELAY32_GetEntryPoint(modulename, lpszProc, 0);
    else
	return RELAY32_GetEntryPoint(modulename, (char *) NULL, (int) lpszProc);
}