eliminate unused functions LISTremove, TYPEget_tagname

mpictor · mpictor · commit 48ed46fe06c7 · 2013-09-15T16:02:57.000-04:00
diff --git a/include/express/linklist.h b/include/express/linklist.h
@@ -134,7 +134,6 @@ extern SC_EXPRESS_EXPORT Generic  LISTadd_last PROTO( ( Linked_List, Generic ) )
 extern SC_EXPRESS_EXPORT Generic  LISTadd_after PROTO( ( Linked_List, Link, Generic ) );
 extern SC_EXPRESS_EXPORT Generic  LISTadd_before PROTO( ( Linked_List, Link, Generic ) );
 extern SC_EXPRESS_EXPORT Generic  LISTremove_first PROTO( ( Linked_List ) );
-extern SC_EXPRESS_EXPORT Generic  LISTremove PROTO( ( Linked_List, Link ) );
 extern SC_EXPRESS_EXPORT Generic  LISTget_first PROTO( ( Linked_List ) );
 extern SC_EXPRESS_EXPORT Generic  LISTget_second PROTO( ( Linked_List ) );
 extern SC_EXPRESS_EXPORT Generic  LISTget_nth PROTO( ( Linked_List, int ) );
diff --git a/src/express/linklist.c b/src/express/linklist.c
@@ -134,17 +134,6 @@ Generic LISTremove_first( Linked_List list ) {
     return item;
 }
 
-/* 1st arg is historical and can be removed */
-Generic LISTremove( Linked_List list, Link link ) {
-    Generic     item;
-
-    link->next->prev = link->prev;
-    link->prev->next = link->next;
-    item = link->data;
-    LINK_destroy( link );
-    return item;
-}
-
 Generic LISTget_first( Linked_List list ) {
     Link node;
     Generic item;
diff --git a/src/express/resolve.c b/src/express/resolve.c
@@ -1486,17 +1486,6 @@ static int WHEREresolve( Linked_List list, Scope scope, int need_self ) {
     }
 }
 
-/* should only be called on types known to be tagged! */
-static char * TYPEget_tagname( Type type ) {
-    for( ; type; type = type->u.type->body->base ) {
-        if( type->u.type->body->tag ) {
-            return type->u.type->body->tag->symbol.name;
-        }
-    }
-    /* can't happen */
-    return 0;
-}
-
 struct tag * TAGcreate_tags() {
     extern int tag_count;
 
