gforth/engine/support.c - diff

Return to support.c CVS log

Up to [gforth] / gforth / engine

version 1.41, 2009/12/31 15:32:36	version 1.42, 2010/04/16 16:11:54
Line 508 int gforth_system(Char *c_addr, UCell u)	Line 508 int gforth_system(Char *c_addr, UCell u)
char *prefix = getenv("GFORTHSYSTEMPREFIX") ? : DEFAULTSYSTEMPREFIX;	char *prefix = getenv("GFORTHSYSTEMPREFIX") ? : DEFAULTSYSTEMPREFIX;
size_t prefixlen = strlen(prefix);	size_t prefixlen = strlen(prefix);
char buffer[prefixlen+u+1];	char buffer[prefixlen+u+1];
	int MAYBE_UNUSED old_tp;
fflush(stdout);	fflush(stdout);
#ifndef MSDOS	#ifndef MSDOS
int old_tp=terminal_prepped;	old_tp=terminal_prepped;
deprep_terminal();	deprep_terminal();
#endif	#endif
memcpy(buffer,prefix,prefixlen);	memcpy(buffer,prefix,prefixlen);