Files
org-hyperion-cules/w32dl.h
2018-03-08 13:27:34 -08:00

30 lines
878 B
C

/* W32DL.H (C) Copyright Jan Jaeger, 2004-2012 */
/* dlopen compat */
/* */
/* Released under "The Q Public License Version 1" */
/* (http://www.hercules-390.org/herclic.html) as modifications to */
/* Hercules. */
#ifndef _W32_DL_H
#define _W32_DL_H
#ifdef _WIN32
#define RTLD_NOW 0
#define dlopen(_name, _flags) \
(void*) ((_name) ? LoadLibrary((_name)) : GetModuleHandle( NULL ) )
#define dlsym(_handle, _symbol) \
(void*)GetProcAddress((HMODULE)(_handle), (_symbol))
#define dlclose(_handle) \
FreeLibrary((HMODULE)(_handle))
#define dlerror() \
strerror( GetLastError() )
#endif /* _WIN32 */
#endif /* _W32_DL_H */