Author: tsoome
Date: Thu Sep 5 09:04:48 2019
New Revision: 351837
URL: https://svnweb.freebsd.org/changeset/base/351837
Log:
ficl: add uIsGreater word
For some reason we have u< but not u>, fix it.
Modified:
head/stand/ficl/words.c
Modified: head/stand/ficl/words.c
==============================================================================
--- head/stand/ficl/words.c Thu Sep 5 03:16:14 2019 (r351836)
+++ head/stand/ficl/words.c Thu Sep 5 09:04:48 2019 (r351837)
@@ -1930,6 +1930,18 @@ static void isGreater(FICL_VM *pVM)
return;
}
+static void uIsGreater(FICL_VM *pVM)
+{
+ FICL_UNS u1, u2;
+#if FICL_ROBUST > 1
+ vmCheckStack(pVM, 2, 1);
+#endif
+ u2 = stackPopUNS(pVM->pStack);
+ u1 = stackPopUNS(pVM->pStack);
+ PUSHINT(FICL_BOOL(u1 > u2));
+ return;
+}
+
static void bitwiseAnd(FICL_VM *pVM)
{
CELL x, y;
@@ -4975,6 +4987,7 @@ void ficlCompileCore(FICL_SYSTEM *pSys)
dictAppendWord(dp, "type", type, FW_DEFAULT);
dictAppendWord(dp, "u.", uDot, FW_DEFAULT);
dictAppendWord(dp, "u<", uIsLess, FW_DEFAULT);
+ dictAppendWord(dp, "u>", uIsGreater, FW_DEFAULT);
dictAppendWord(dp, "um*", umStar, FW_DEFAULT);
dictAppendWord(dp, "um/mod", umSlashMod, FW_DEFAULT);
dictAppendWord(dp, "unloop", unloopCo, FW_COMPILE);
_______________________________________________
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"
