From 493d6a799be82a2df652b666d541a5e004ebcc76 Mon Sep 17 00:00:00 2001 From: Rainer Gerhards Date: Mon, 7 Jul 2008 12:04:33 +0200 Subject: changed RainerScript testbench to a full-blow test suite it now works based on test case files, which enable to quickly generate test cases. --- runtime/expr.c | 2 +- runtime/vmprg.c | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) (limited to 'runtime') diff --git a/runtime/expr.c b/runtime/expr.c index 9a314855..ee5b9e2c 100644 --- a/runtime/expr.c +++ b/runtime/expr.c @@ -114,7 +114,7 @@ terminal(expr_t *pThis, ctok_t *tok) finalize_it: if(pToken != NULL) { - CHKiRet(ctok_token.Destruct(&pToken)); /* "eat" processed token */ + ctok_token.Destruct(&pToken); /* "eat" processed token */ } RETiRet; diff --git a/runtime/vmprg.c b/runtime/vmprg.c index c7354fe4..705e6948 100644 --- a/runtime/vmprg.c +++ b/runtime/vmprg.c @@ -103,7 +103,6 @@ Obj2Str(vmprg_t *pThis, cstr_t *pstrPrg) ISOBJ_TYPE_assert(pThis, vmprg); assert(pstrPrg != NULL); - CHKiRet(rsCStrAppendStr(pstrPrg, (uchar*)"program contents:\n")); i = 0; /* "program counter" */ for(pOp = pThis->vmopRoot ; pOp != NULL ; pOp = pOp->pNext) { lenAddr = snprintf((char*)szAddr, sizeof(szAddr), "%8.8d: ", i++); -- cgit