D8150.id21047.diff
No OneTemporary
Actions

Size

813 B

Referenced Files

None

Subscribers

None

D8150.id21047.diff
View Options

	Index: sys/boot/common/interp_forth.c
	===================================================================
	--- sys/boot/common/interp_forth.c
	+++ sys/boot/common/interp_forth.c
	@@ -63,6 +63,7 @@

	FICL_SYSTEM *bf_sys;
	FICL_VM *bf_vm;
	+FICL_WORD *pInterp;

	/*
	* Shim for taking commands from BF and passing them out to 'standard'
	@@ -280,6 +281,8 @@
	ficlSetEnv(bf_sys, "loader_version",
	(bootprog_rev[0] - '0') * 10 + (bootprog_rev[2] - '0'));

	+ pInterp = ficlLookup(bf_sys, "interpret");
	+
	/* try to load and run init file if present */
	if (rc == NULL)
	rc = "/boot/boot.4th";
	@@ -290,6 +293,9 @@
	close(fd);
	}
	}
	+
	+ /* Do this again, so that interpret can be redefined. */
	+ pInterp = ficlLookup(bf_sys, "interpret");
	}

	/*