1 files changed, 2 insertions, 73 deletions
diff --git a/src/backend/nodes/list.c b/src/backend/nodes/list.c
index eba26bb4808..aeda02d1702 100644
--- a/src/backend/nodes/list.c
+++ b/src/backend/nodes/list.c
@@ -1,7 +1,7 @@
 /*-------------------------------------------------------------------------
  *
  * list.c
- *	  POSTGRES generic list package
+ *	  implementation for PostgreSQL generic linked list package
  *
  *
  * Portions Copyright (c) 1996-2003, PostgreSQL Global Development Group
@@ -9,17 +9,7 @@
  *
  *
  * IDENTIFICATION
- *	  $PostgreSQL: pgsql/src/backend/nodes/list.c,v 1.55 2003/11/29 19:51:49 pgsql Exp $
- *
- * NOTES
- *	  XXX a few of the following functions are duplicated to handle
- *		  List of pointers and List of integers separately. Some day,
- *		  someone should unify them.			- ay 11/2/94
- *	  This file needs cleanup.
- *
- * HISTORY
- *	  AUTHOR			DATE			MAJOR EVENT
- *	  Andrew Yu			Oct, 1994		file creation
+ *	  $PostgreSQL: pgsql/src/backend/nodes/list.c,v 1.56 2004/01/07 18:43:36 neilc Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -27,67 +17,6 @@
 
 #include "nodes/parsenodes.h"
 
-
-/*
- *	makeInteger
- */
-Value *
-makeInteger(long i)
-{
-	Value	   *v = makeNode(Value);
-
-	v->type = T_Integer;
-	v->val.ival = i;
-	return v;
-}
-
-/*
- *	makeFloat
- *
- * Caller is responsible for passing a palloc'd string.
- */
-Value *
-makeFloat(char *numericStr)
-{
-	Value	   *v = makeNode(Value);
-
-	v->type = T_Float;
-	v->val.str = numericStr;
-	return v;
-}
-
-/*
- *	makeString
- *
- * Caller is responsible for passing a palloc'd string.
- */
-Value *
-makeString(char *str)
-{
-	Value	   *v = makeNode(Value);
-
-	v->type = T_String;
-	v->val.str = str;
-	return v;
-}
-
-
-/*
- *	makeBitString
- *
- * Caller is responsible for passing a palloc'd string.
- */
-Value *
-makeBitString(char *str)
-{
-	Value	   *v = makeNode(Value);
-
-	v->type = T_BitString;
-	v->val.str = str;
-	return v;
-}
-
-
 /*
  *	lcons
  *