socsvn commit: r288822 - soc2015/clord/head/sys/contrib/ficl/softcore

[clord at FreeBSD.org]

Author: clord
Date: Mon Jul 27 21:34:32 2015
New Revision: 288822
URL: http://svnweb.FreeBSD.org/socsvn/?view=rev&rev=288822

Log:
  Update ficlCompileSoftCore to work with Ficl 4 types.
  

Modified:
  soc2015/clord/head/sys/contrib/ficl/softcore/softcore.awk

Modified: soc2015/clord/head/sys/contrib/ficl/softcore/softcore.awk
==============================================================================
--- soc2015/clord/head/sys/contrib/ficl/softcore/softcore.awk	Mon Jul 27 21:32:03 2015	(r288821)
+++ soc2015/clord/head/sys/contrib/ficl/softcore/softcore.awk	Mon Jul 27 21:34:32 2015	(r288822)
@@ -167,15 +167,15 @@
   if (commenting) end_comments();
   printf "#endif /* WANT_SOFTWORDS */\n";
   printf "    \"quit \";\n";
-  printf "\n\nvoid ficlCompileSoftCore(FICL_SYSTEM *pSys)\n";
+  printf "\n\nvoid ficlSystemCompileSoftCore(ficlSystem *pSys)\n";
   printf "{\n";
-  printf "    FICL_VM *pVM = pSys->vmList;\n";
-  printf "    CELL id = pVM->sourceID;\n";
+  printf "    ficlVm *pVM = pSys->vmList;\n";
+  printf "    CELL id = pVM->sourceId;\n";
   printf "    int ret = sizeof (softWords);\n";
   printf "	  assert(pVM);\n";
-  printf "    pVM->sourceID.i = -1;\n";
+  printf "    pVM->sourceId.i = -1;\n";
   printf "    ret = ficlExec(pVM, softWords);\n";
-  printf "    pVM->sourceID = id;\n";
+  printf "    pVM->sourceId = id;\n";
   printf "    if (ret == VM_ERREXIT)\n";
   printf "        assert(FALSE);\n";
   printf "    return;\n";