gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.223, 2008/01/13 16:02:37	version 1.225, 2008/04/19 19:15:14
Line 2394 r = fp[u];	Line 2394 r = fp[u];

open-lib ( c_addr1 u1 -- u2 ) gforth open_lib	open-lib ( c_addr1 u1 -- u2 ) gforth open_lib
#if 1	#if 1
u2 = (UCell)lt_dlopen(cstr(c_addr1, u1, 1));	u2 = (UCell)lt_dlopenadvise(cstr(c_addr1, u1, 1), ltdl_advice);
#elif defined(HAVE_LIBDL) \|\| defined(HAVE_DLOPEN)	#elif defined(HAVE_LIBDL) \|\| defined(HAVE_DLOPEN)
#ifndef RTLD_GLOBAL	#ifndef RTLD_GLOBAL
#define RTLD_GLOBAL 0	#define RTLD_GLOBAL 0
Line 2782 uploop(i, 0, 7, `fcall(i)')	Line 2782 uploop(i, 0, 7, `fcall(i)')
fcall(20)	fcall(20)

\+	\+
\+

lib-error ( -- c_addr u ) gforth lib_error	lib-error ( -- c_addr u ) gforth lib_error
c_addr = lt_dlerror();	c_addr = lt_dlerror();
u = (c_addr == NULL) ? 0 : strlen(c_addr);	u = (c_addr == NULL) ? 0 : strlen(c_addr);

	\+
\g peephole	\g peephole

\+peephole	\+peephole