gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

Diff for /gforth/engine/main.c between versions 1.223 and 1.224

version 1.223, 2009/06/28 18:36:27	version 1.224, 2009/07/06 18:46:03
Line 2105 enum {	Line 2105 enum {
ss_min_ls,	ss_min_ls,
ss_min_lsu,	ss_min_lsu,
ss_min_nexts,	ss_min_nexts,
	opt_code_block_size,
};	};

#ifndef STANDALONE	#ifndef STANDALONE
Line 2138 void gforth_args(int argc, char ** argv,	Line 2139 void gforth_args(int argc, char ** argv,
{"no-super", no_argument, &no_super, 1},	{"no-super", no_argument, &no_super, 1},
{"no-dynamic", no_argument, &no_dynamic, 1},	{"no-dynamic", no_argument, &no_dynamic, 1},
{"dynamic", no_argument, &no_dynamic, 0},	{"dynamic", no_argument, &no_dynamic, 0},
	{"code-block-size", required_argument, NULL, opt_code_block_size},
{"print-metrics", no_argument, &print_metrics, 1},	{"print-metrics", no_argument, &print_metrics, 1},
{"print-sequences", no_argument, &print_sequences, 1},	{"print-sequences", no_argument, &print_sequences, 1},
{"ss-number", required_argument, NULL, ss_number},	{"ss-number", required_argument, NULL, ss_number},
Line 2175 void gforth_args(int argc, char ** argv,	Line 2177 void gforth_args(int argc, char ** argv,
case 's': die_on_signal = 1; break;	case 's': die_on_signal = 1; break;
case 'x': debug = 1; break;	case 'x': debug = 1; break;
case 'v': fputs(PACKAGE_STRING"\n", stderr); exit(0);	case 'v': fputs(PACKAGE_STRING"\n", stderr); exit(0);
	case opt_code_block_size: code_area_size = atoi(optarg); break;
case ss_number: static_super_number = atoi(optarg); break;	case ss_number: static_super_number = atoi(optarg); break;
case ss_states: maxstates = max(min(atoi(optarg),MAX_STATE),1); break;	case ss_states: maxstates = max(min(atoi(optarg),MAX_STATE),1); break;
#ifndef NO_DYNAMIC	#ifndef NO_DYNAMIC
Line 2188 void gforth_args(int argc, char ** argv,	Line 2191 void gforth_args(int argc, char ** argv,
Engine Options:\n\	Engine Options:\n\
--appl-image FILE Equivalent to '--image-file=FILE --'\n\	--appl-image FILE Equivalent to '--image-file=FILE --'\n\
--clear-dictionary Initialize the dictionary with 0 bytes\n\	--clear-dictionary Initialize the dictionary with 0 bytes\n\
	--code-block-size=SIZE size of native code blocks [512KB]\n\
-d SIZE, --data-stack-size=SIZE Specify data stack size\n\	-d SIZE, --data-stack-size=SIZE Specify data stack size\n\
--debug Print debugging information during startup\n\	--debug Print debugging information during startup\n\
--diag Print diagnostic information during startup\n\	--diag Print diagnostic information during startup\n\
Line 2317 int main(int argc, char argv, char e	Line 2321 int main(int argc, char argv, char e
asm("fldcw %0" : : "m"(fpu_control));	asm("fldcw %0" : : "m"(fpu_control));
#endif /* defined(__i386) */	#endif /* defined(__i386) */

code_here = ((void )0)+CODE_BLOCK_SIZE; / llvm-gcc does not like this as
initializer, so we do it here */
#ifdef MACOSX_DEPLOYMENT_TARGET	#ifdef MACOSX_DEPLOYMENT_TARGET
setenv("MACOSX_DEPLOYMENT_TARGET", MACOSX_DEPLOYMENT_TARGET, 0);	setenv("MACOSX_DEPLOYMENT_TARGET", MACOSX_DEPLOYMENT_TARGET, 0);
#endif	#endif
Line 2354 int main(int argc, char argv, char e	Line 2356 int main(int argc, char argv, char e
#endif /* !defined(NO_DYNAMIC) */	#endif /* !defined(NO_DYNAMIC) */
#endif /* defined(HAS_OS) */	#endif /* defined(HAS_OS) */
#endif	#endif
	code_here = ((void *)0)+code_area_size;
#ifdef STANDALONE	#ifdef STANDALONE
image = gforth_engine(0, 0, 0, 0, 0 sr_call);	image = gforth_engine(0, 0, 0, 0, 0 sr_call);
alloc_stacks((ImageHeader *)image);	alloc_stacks((ImageHeader *)image);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.223
changed lines
	Added in v.1.224