svn commit: r307323 - head/sys/boot/common

[Warner Losh]

Author: imp
Date: Fri Oct 14 16:23:05 2016
New Revision: 307323
URL: https://svnweb.freebsd.org/changeset/base/307323

Log:
  Remove fetching of pInterp. Currently, there's no actual effect other
  than to store the location of a forth word that is subsequently never
  used. It was last used before the 2.03 ficl upgrade in r51786. It was
  only used from r43614 (so Feb-Sept 1999) on head and in the 3.x branch
  (merged r43715 3.1 -> EOL). Remove it since nobody cared enough to
  report the bug in the last 18 years rather than fix it. It's need
  seems to have passed in the 2.03 ficl update.
  
  Differential Revision: https://reviews.freebsd.org/D8150

Modified:
  head/sys/boot/common/interp_forth.c

Modified: head/sys/boot/common/interp_forth.c
==============================================================================
--- head/sys/boot/common/interp_forth.c	Fri Oct 14 16:05:44 2016	(r307322)
+++ head/sys/boot/common/interp_forth.c	Fri Oct 14 16:23:05 2016	(r307323)
@@ -63,7 +63,6 @@ extern char bootprog_rev[];
 
 FICL_SYSTEM *bf_sys;
 FICL_VM	*bf_vm;
-FICL_WORD *pInterp;
 
 /*
  * Shim for taking commands from BF and passing them out to 'standard'
@@ -281,8 +280,6 @@ bf_init(const char *rc)
     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";
@@ -293,9 +290,6 @@ bf_init(const char *rc)
 	    close(fd);
 	}
     }
-
-    /* Do this again, so that interpret can be redefined. */
-    pInterp = ficlLookup(bf_sys, "interpret");
 }
 
 /*