remove unused excc()

diff --git a/lib/expr/excc.c b/lib/expr/excc.c
index c87727d03399989794e9a8497d51e253877c3dfa..f26cc5affef1b3b4deb80f06adabb9ab9e18cc95 100644 (file)
--- a/lib/expr/excc.c
+++ b/lib/expr/excc.c
@@ -684,33 +684,6 @@ exccclose(Excc_t* cc)
        return r;
 }
 
-/*
- * generate the program for name or sym coerced to type
- */
-
-int
-excc(Excc_t* cc, const char* name, Exid_t* sym, int type)
-{
-       char*   t;
-
-       if (!cc)
-               return -1;
-       if (!sym)
-               sym = name ? dtmatch(cc->expr->symbols, name) : &cc->expr->main;
-       if (sym && sym->lex == PROCEDURE && sym->value)
-       {
-               t = extype(type);
-               sfprintf(cc->ccdisc->text, "\n%s %s%s(data) char** data; {\n%s _%svalue = 0;\n", t, cc->id, sym->name, t, cc->id);
-               gen(cc, sym->value->data.procedure.body);
-               sfprintf(cc->ccdisc->text, ";\n");
-               if (cc->lastop != RETURN)
-                       sfprintf(cc->ccdisc->text, "return _%svalue;\n", cc->id);
-               sfprintf(cc->ccdisc->text, "}\n");
-               return 0;
-       }
-       return -1;
-}
-
 /*
  * dump an expression tree on sp
  */

diff --git a/lib/expr/expr.3 b/lib/expr/expr.3
index dcc39749561c46e67989595f7340429059a503d3..d242fb4eca9a01f1ea1411e80a4636017a041d14 100644 (file)
--- a/lib/expr/expr.3
+++ b/lib/expr/expr.3
@@ -33,7 +33,6 @@ expr \- c-like expression library
 
 Expr_t*          exopen(Exdisc_t*);
 Excc_t*          exccopen(Expr_t*, Exccdisc_t*);
-int              excc(Excc_t*, const char*, Exid_t*, int);
 int              exccclose(Excc_t*);
 void             exclose(Expr_t*, int);
 char*            excontext(Expr_t*, char*, int);

diff --git a/lib/expr/expr.h b/lib/expr/expr.h
index 68072a2f12c893051269a76eadea8d6767cbb155..c7f44377d20239e786207e65de1e843ba456867f 100644 (file)
--- a/lib/expr/expr.h
+++ b/lib/expr/expr.h
@@ -273,7 +273,6 @@ struct Excc_s                               /* excc() state                 */
 
 extern Exnode_t*       excast(Expr_t*, Exnode_t*, int, Exnode_t*, int);
 extern Exnode_t*       exnoncast(Exnode_t *);
-extern int             excc(Excc_t*, const char*, Exid_t*, int);
 extern int             exccclose(Excc_t*);
 extern Excc_t*         exccopen(Expr_t*, Exccdisc_t*);
 extern void            exclose(Expr_t*, int);