Author: imp
Date: Fri Feb  2 15:01:33 2018
New Revision: 328779
URL: https://svnweb.freebsd.org/changeset/base/328779

Log:
  Retire pnp.4th and the code needed only for 4th words used here.
  
  This has never been installed. It was added to the tree disconnected
  to the build in FreeBSD 5 (17 years ago) and has never been used as
  far as I can tell. The desired improvements never really happened
  (despite a couple minor cleanups along the way). It's relevance is
  long past, so better to retire it.

Deleted:
  head/stand/forth/pnp.4th
Modified:
  head/stand/common/pnp.c

Modified: head/stand/common/pnp.c
==============================================================================
--- head/stand/common/pnp.c     Fri Feb  2 14:47:25 2018        (r328778)
+++ head/stand/common/pnp.c     Fri Feb  2 15:01:33 2018        (r328779)
@@ -17,9 +17,6 @@ __FBSDID("$FreeBSD$");
 #include <stand.h>
 #include <string.h>
 #include <bootstrap.h>
-#ifdef BOOT_FORTH
-#include "ficl.h"
-#endif
 
 static struct pnpinfo_stql pnp_devices;
 static int             pnp_devices_initted = 0;
@@ -187,50 +184,3 @@ pnp_eisaformat(u_int8_t *data)
     idbuf[7] = 0;
     return(idbuf);
 }
-
-#ifdef BOOT_FORTH
-void
-ficlPnpdevices(FICL_VM *pVM)
-{
-       static int pnp_devices_initted = 0;
-#if FICL_ROBUST > 1
-       vmCheckStack(pVM, 0, 1);
-#endif
-
-       if(!pnp_devices_initted) {
-               STAILQ_INIT(&pnp_devices);
-               pnp_devices_initted = 1;
-       }
-
-       stackPushPtr(pVM->pStack, &pnp_devices);
-
-       return;
-}
-
-void
-ficlPnphandlers(FICL_VM *pVM)
-{
-#if FICL_ROBUST > 1
-       vmCheckStack(pVM, 0, 1);
-#endif
-
-       stackPushPtr(pVM->pStack, pnphandlers);
-
-       return;
-}
-
-/*
- * Glue function to add the appropriate forth words to access pnp BIOS
- * functionality.
- */
-static void ficlCompilePnp(FICL_SYSTEM *pSys)
-{
-    FICL_DICT *dp = pSys->dp;
-    assert (dp);
-
-    dictAppendWord(dp, "pnpdevices",ficlPnpdevices, FW_DEFAULT);
-    dictAppendWord(dp, "pnphandlers",ficlPnphandlers, FW_DEFAULT);
-}
-
-FICL_COMPILE_SET(ficlCompilePnp);
-#endif
_______________________________________________
svn-src-head@freebsd.org mailing list
https://lists.freebsd.org/mailman/listinfo/svn-src-head
To unsubscribe, send any mail to "svn-src-head-unsubscr...@freebsd.org"

Reply via email to