gforth/vmgen-ex/mini.h - diff

Return to mini.h CVS log

Up to [gforth] / gforth / vmgen-ex

version 1.4, 2002/06/02 17:02:56	version 1.6, 2002/08/07 10:11:18
Line 41 extern FILE *vm_out;	Line 41 extern FILE *vm_out;
extern Inst *vmcodep;	extern Inst *vmcodep;
extern Inst *last_compiled;	extern Inst *last_compiled;
extern Inst *vmcode_end;	extern Inst *vmcode_end;
	extern int use_super;

/* generic vmgen support functions (e.g., wrappers) */	/* generic vmgen support functions (e.g., wrappers) */
void gen_inst(Inst **vmcodepp, Inst i);	void gen_inst(Inst **vmcodepp, Inst i);
Line 49 void vm_disassemble(Inst ip, Inst endp	Line 50 void vm_disassemble(Inst ip, Inst endp
void vm_count_block(Inst *ip);	void vm_count_block(Inst *ip);
struct block_count block_insert(Inst ip);	struct block_count block_insert(Inst ip);
void vm_print_profile(FILE *file);	void vm_print_profile(FILE *file);

	/* type change macros; these are specific to the types you use, so you
	have to change this part */
	#define vm_Cell2i(_cell,x) ((x)=(long)(_cell))
	#define vm_Cell2target(_cell,x) ((x)=(Inst *)(_cell))
	#define vm_Cell2a(_cell,x) ((x)=(char *)(_cell))
	#define vm_i2Cell(x,_cell) ((_cell)=(Cell)(x))
	#define vm_target2Cell(x,_cell) ((_cell)=(Cell)(x))
	#define vm_a2Cell(x,_cell) ((_cell)=(Cell)(x))
	#define vm_Cell2Cell(_x,_y) ((_y)=(Cell)(_x))

#define VM_IS_INST(inst, n) ((inst) == vm_prim[n])	#define VM_IS_INST(inst, n) ((inst) == vm_prim[n])

/* mini type-specific support functions */	/* mini type-specific support functions */