gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.114, 2003/01/07 22:38:36	version 1.116, 2003/01/08 09:53:07
Line 1473 f_addr = (Float *)((((Cell)c_addr)+(size	Line 1473 f_addr = (Float *)((((Cell)c_addr)+(size
:	:
[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;	[ 1 floats 1- ] Literal + [ -1 floats ] Literal and ;

>body ( xt -- a_addr ) core to_body
"" Get the address of the body of the word represented by @i{xt} (the address
of the word's data field).""
a_addr = PFA(xt);
:
2 cells + ;

\ threading stuff is currently only interesting if we have a compiler	\ threading stuff is currently only interesting if we have a compiler
\fhas? standardthreading has? compiler and [IF]	\fhas? standardthreading has? compiler and [IF]

Line 1886 flag = FLAG(!fnmatch(pattern, string, 0)	Line 1879 flag = FLAG(!fnmatch(pattern, string, 0)
newline ( -- c_addr u ) gforth	newline ( -- c_addr u ) gforth
""String containing the newline sequence of the host OS""	""String containing the newline sequence of the host OS""
char newline[] = {	char newline[] = {
#if defined(unix) \|\| defined(__MACH__)	#if DIRSEP=='/'
/* Darwin/MacOS X sets __MACH__, but not unix. */	/* Unix */
'\n'	'\n'
#else	#else
	/* DOS, Win, OS/2 */
'\r','\n'	'\r','\n'
#endif	#endif
};	};