gforth/vmgen-ex/support.c - diff

Return to support.c CVS log

Up to [gforth] / gforth / vmgen-ex

version 1.1, 2001/04/29 11:28:24	version 1.2, 2001/05/01 10:20:56
Line 52 void printarg_a(char *a)	Line 52 void printarg_a(char *a)
fprintf(vm_out, "%p ", a);	fprintf(vm_out, "%p ", a);
}	}

	void printarg_Cell(Cell i)
	{
	fprintf(vm_out, "0x%lx ", i);
	}

/* This language has separate name spaces for functions and variables;	/* This language has separate name spaces for functions and variables;
this works because there are no function variables, and the syntax	this works because there are no function variables, and the syntax
makes it possible to differentiate between function and variable	makes it possible to differentiate between function and variable
Line 200 Options:\n	Line 205 Options:\n
exit(1);	exit(1);

start=vmcodep;	start=vmcodep;
gen_main_end();	gen_main_end();
	vmcode_end=vmcodep;

if (disassembling)	if (disassembling)
vm_disassemble(vm_code, vmcodep, vm_prim);	vm_disassemble(vm_code, vmcodep, vm_prim);

printf("result = %ld\n",runvm(start, stack+STACK_SIZE-1, NULL));	printf("result = %ld\n",runvm(start, stack+STACK_SIZE-1, NULL));

	if (profiling)
	vm_print_profile(vm_out);

return 0;	return 0;
}	}