gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.6, 1997/09/13 12:04:58	version 1.8, 1998/06/04 16:17:41
Line 2016 rret = ((Float(*)(argdlist($1)))u)(argcl	Line 2016 rret = ((Float(*)(argdlist($1)))u)(argcl

open-lib c_addr1 u1 -- u2 gforth open_lib	open-lib c_addr1 u1 -- u2 gforth open_lib
#if defined(HAVE_LIBDL) \|\| defined(HAVE_DLOPEN)	#if defined(HAVE_LIBDL) \|\| defined(HAVE_DLOPEN)
u2=(UCell) dlopen(cstr(c_addr1, u1, 1), RTLD_LAZY);	#ifndef RTLD_GLOBAL
	#define RTLD_GLOBAL 0
	#endif
	u2=(UCell) dlopen(cstr(c_addr1, u1, 1), RTLD_GLOBAL \| RTLD_LAZY);
#else	#else
# ifdef HAVE_LIBKERNEL32	# ifdef HAVE_LIBKERNEL32
u2 = (Cell) GetModuleHandle(cstr(c_addr1, u1, 1));	u2 = (Cell) GetModuleHandle(cstr(c_addr1, u1, 1));