gforth/engine/main.c - diff

Return to main.c CVS log

Up to [gforth] / gforth / engine

version 1.222, 2009/06/28 18:27:11	version 1.223, 2009/06/28 18:36:27
Line 1156 static void reserve_code_space(UCell siz	Line 1156 static void reserve_code_space(UCell siz
if (code_area+code_area_size < code_here+size) {	if (code_area+code_area_size < code_here+size) {
struct code_block_list *p;	struct code_block_list *p;
append_jump();	append_jump();
	debugp(stderr,"Did not use %ld bytes in code block\n",
	(long)(code_area+code_area_size-code_here));
flush_to_here();	flush_to_here();
if (*next_code_blockp == NULL) {	if (*next_code_blockp == NULL) {
code_here = start_flush = code_area = gforth_alloc(code_area_size);	code_here = start_flush = code_area = gforth_alloc(code_area_size);