gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.236, 2008/10/06 21:21:20	version 1.238, 2008/10/15 15:27:33
Line 1662 ucols=cols;	Line 1662 ucols=cols;

wcwidth ( u -- n ) gforth	wcwidth ( u -- n ) gforth
""The number of fixed-width characters per unicode character u""	""The number of fixed-width characters per unicode character u""
	#ifdef HAVE_WCWIDTH
n = wcwidth(u);	n = wcwidth(u);
	#else
	n = 1;
	#endif

flush-icache ( c_addr u -- ) gforth flush_icache	flush-icache ( c_addr u -- ) gforth flush_icache
""Make sure that the instruction cache of the processor (if there is	""Make sure that the instruction cache of the processor (if there is
Line 2407 r = fp[u];	Line 2411 r = fp[u];
\g syslib	\g syslib

open-lib ( c_addr1 u1 -- u2 ) gforth open_lib	open-lib ( c_addr1 u1 -- u2 ) gforth open_lib
#ifdef HAVE_LIBLTDL	u2 = gforth_dlopen(c_addr1, u1);
u2 = (UCell)lt_dlopen(tilde_cstr(c_addr1, u1, 1));
#elif defined(HAVE_LIBDL) \|\| defined(HAVE_DLOPEN)
#ifndef RTLD_GLOBAL
#define RTLD_GLOBAL 0
#endif
u2=(UCell) dlopen(tilde_cstr(c_addr1, u1, 1), RTLD_GLOBAL \| RTLD_LAZY);
#else
# ifdef _WIN32
u2 = (Cell) GetModuleHandle(tilde_cstr(c_addr1, u1, 1));
# else
#warning Define open-lib!
u2 = 0;
# endif
#endif

lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym	lib-sym ( c_addr1 u1 u2 -- u3 ) gforth lib_sym
#ifdef HAVE_LIBLTDL	#ifdef HAVE_LIBLTDL