gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.113, 2003/01/02 16:48:12	version 1.115, 2003/01/08 09:38:28
Line 1886 flag = FLAG(!fnmatch(pattern, string, 0)	Line 1886 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
};	};
Line 2486 f = forget_dyncode(c_code);	Line 2487 f = forget_dyncode(c_code);
decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim	decompile-prim ( a_code -- a_prim ) gforth-internal decompile_prim
""a_prim is the code address of the primitive that has been	""a_prim is the code address of the primitive that has been
compile_prim1ed to a_code""	compile_prim1ed to a_code""
a_prim = decompile_code(a_code);	a_prim = (Label)decompile_code((Label)a_code);

\+	\+