Date: Mon, 27 Jul 2015 21:34:32 GMT From: clord@FreeBSD.org To: svn-soc-all@FreeBSD.org Subject: socsvn commit: r288822 - soc2015/clord/head/sys/contrib/ficl/softcore Message-ID: <201507272134.t6RLYWSA059908@socsvn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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";
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201507272134.t6RLYWSA059908>