removed ODD()

diff --git a/src/Table.c b/src/Table.c
index 3a33876a0ab12f06dc8c7e323ebb31e605909780..a3b0f2db99442f79a53795da982d594a2ae81955 100644 (file)
--- a/src/Table.c
+++ b/src/Table.c
@@ -68,7 +68,7 @@ struct ScopeDesc {
 
 static int initialized = 0;
 
-static const char *predeclaredNames[24];
+static const char *predeclaredNames[23];
 static Trees_Node predeclaredNodes[LEN(predeclaredNames)];
 
 static Scope globalScope, currentScope;
@@ -96,7 +96,6 @@ void Table_Init(void)
                {"LEN", TREES_PROCEDURE_KIND, TREES_LEN_PROC},
                {"LSL", TREES_PROCEDURE_KIND, TREES_LSL_PROC},
                {"NEW", TREES_PROCEDURE_KIND, TREES_NEW_PROC},
-               {"ODD", TREES_PROCEDURE_KIND, TREES_ODD_PROC},
                {"ORD", TREES_PROCEDURE_KIND, TREES_ORD_PROC},
                {"PACK", TREES_PROCEDURE_KIND, TREES_PACK_PROC},
                {"ROR", TREES_PROCEDURE_KIND, TREES_ROR_PROC},

diff --git a/tests/obnc/passing/T4Expressions.obn b/tests/obnc/passing/T4Expressions.obn
index 6f7ce7cb55c0c0755a8ca2e5182727e46a208f57..d700b0b1112d2fd356aa13004b7859838778f157 100644 (file)
--- a/tests/obnc/passing/T4Expressions.obn
+++ b/tests/obnc/passing/T4Expressions.obn
@@ -379,7 +379,6 @@ Out.Integer(ORD({1, 2, a, 5, b, 8} = {1, 2, a..b, 8}), 0); Out.Ln;
                const eps = 0.01;
                        (*make sure function procedures with constant parameters are constant expressions*)
                        absConst = ABS(0);
-                       oddConst = ODD(0);
                        lslConst = LSL(0, 0);
                        asrConst = ASR(0, 0);
                        rorConst = ROR(0, 1);
@@ -407,12 +406,6 @@ Out.Integer(ORD({1, 2, a, 5, b, 8} = {1, 2, a..b, 8}), 0); Out.Ln;
                ASSERT(j = 1);
                ASSERT(i = 1);
 
-               ASSERT(~ODD(-2));
-               ASSERT(ODD(-1));
-               ASSERT(~ODD(0));
-               ASSERT(ODD(1));
-               ASSERT(~ODD(2));
-
                a := "";
                ASSERT(LEN(a) = 10);
 
@@ -480,7 +473,6 @@ Out.Integer(ORD({1, 2, a, 5, b, 8} = {1, 2, a..b, 8}), 0); Out.Ln;
                ASSERT(CHR(x) = 1X);
 
                i := absConst;
-               b := oddConst;
                i := lslConst;
                i := asrConst;
                i := rorConst;