some cleanup in the pointer

1 files changed, 9 insertions, 21 deletions

diff --git a/src/tree.c b/src/tree.c
index 5a76e304..524fa529 100644
--- a/src/tree.c
+++ b/src/tree.c
@@ -180,20 +180,21 @@ Tree *constructString( Program *prg, Head *s )
 	return (Tree*)str;
 }
 
-Pointer *colm_construct_pointer( Program *prg, Value value )
+Tree *colm_construct_pointer( Program *prg, Value value )
 {
-	Kid *kid = kidAllocate( prg );
-	kid->tree = value;
-	kid->next = prg->origHeap;
-	prg->origHeap = kid;
-
 	Pointer *pointer = (Pointer*) treeAllocate( prg );
 	pointer->id = LEL_ID_PTR;
-	pointer->value = kid;
+	pointer->value = value;
 	
-	return pointer;
+	return (Tree*)pointer;
 }
 
+Value colm_get_pointer_val( Tree *ptr )
+{
+	return ((Pointer*)ptr)->value;
+}
+
+
 Tree *constructTerm( Program *prg, Word id, Head *tokdata )
 {
 	LangElInfo *lelInfo = prg->rtd->lelInfo;
@@ -1288,19 +1289,6 @@ Tree *getFieldSplit( Program *prg, Tree *tree, Word field )
 	return split;
 }
 
-Tree *colm_get_pointer_val( Pointer *ptr )
-{
-	return ptr->value->tree;
-}
-
-Tree *getPtrValSplit( Program *prg, Pointer *ptr )
-{
-	Tree *val = ptr->value->tree;
-	Tree *split = splitTree( prg, val );
-	ptr->value->tree = split;
-	return split;
-}
-
 /* This must traverse in the same order that the bindId assignments are done
  * in. */
 int matchPattern( Tree **bindings, Program *prg, long pat, Kid *kid, int checkNext )