summaryrefslogtreecommitdiff
path: root/src/tree.c
diff options
context:
space:
mode:
authorAdrian Thurston <thurston@complang.org>2015-02-15 10:57:08 -0500
committerAdrian Thurston <thurston@complang.org>2015-02-15 10:57:08 -0500
commit2a54c2ef48d7ed512c3a2e38fd85440924960850 (patch)
tree695aeb7e443fe22fa9dfd2be6f861a2c12161311 /src/tree.c
parenta7bf3fea2087b0edf93bae8cc26557d9e6200b2b (diff)
downloadcolm-2a54c2ef48d7ed512c3a2e38fd85440924960850.tar.gz
cleanup, including removal of map and list element pools
Diffstat (limited to 'src/tree.c')
-rw-r--r--src/tree.c12
1 files changed, 11 insertions, 1 deletions
diff --git a/src/tree.c b/src/tree.c
index f731211e..e77cac83 100644
--- a/src/tree.c
+++ b/src/tree.c
@@ -1460,12 +1460,13 @@ TreePair mapRemove( Program *prg, Map *map, Tree *key )
if ( mapEl != 0 ) {
mapDetach( prg, map, mapEl );
result.key = mapEl->key;
- mapElFree( prg, mapEl );
+ //mapElFree( prg, mapEl );
}
return result;
}
+#if 0
Tree *mapUnstore( Program *prg, Map *map, Tree *key, Tree *existing )
{
Tree *stored = 0;
@@ -1481,6 +1482,7 @@ Tree *mapUnstore( Program *prg, Map *map, Tree *key, Tree *existing )
}
return stored;
}
+#endif
Tree *mapFind( Program *prg, Map *map, Tree *key )
{
@@ -1569,6 +1571,7 @@ Tree *getListMemSplit( Program *prg, List *list, Word field )
}
+#if 0
int mapInsert( Program *prg, Map *map, Tree *key, Tree *element )
{
MapEl *mapEl = mapInsertKey( prg, map, key, 0 );
@@ -1580,14 +1583,18 @@ int mapInsert( Program *prg, Map *map, Tree *key, Tree *element )
return false;
}
+#endif
+#if 0
void mapUnremove( Program *prg, Map *map, Tree *key, Tree *element )
{
MapEl *mapEl = mapInsertKey( prg, map, key, 0 );
assert( mapEl != 0 );
//mapEl->tree = element;
}
+#endif
+#if 0
Tree *mapUninsert( Program *prg, Map *map, Tree *key )
{
MapEl *el = mapDetachByKey( prg, map, key );
@@ -1596,7 +1603,9 @@ Tree *mapUninsert( Program *prg, Map *map, Tree *key )
// return val;
return 0;
}
+#endif
+#if 0
Tree *mapStore( Program *prg, Map *map, Tree *key, Tree *element )
{
Tree *oldTree = 0;
@@ -1613,6 +1622,7 @@ Tree *mapStore( Program *prg, Map *map, Tree *key, Tree *element )
return oldTree;
}
+#endif
static Tree *treeSearchKid( Program *prg, Kid *kid, long id )
{