Remove long-unused and broken TCL_ARRAYS.

diff --git a/src/backend/utils/adt/arrayfuncs.c b/src/backend/utils/adt/arrayfuncs.c
index 54ce0c2c3256af639071bd98f9ad52c27757d7c2..ab999398f38f044a3ac1cf2690cb2d5d86baceb1 100644 (file)
--- a/src/backend/utils/adt/arrayfuncs.c
+++ b/src/backend/utils/adt/arrayfuncs.c
@@ -1030,9 +1030,7 @@ array_out(PG_FUNCTION_ARGS)
                                if (ch == '"' || ch == '\\')
                                {
                                        needquote = true;
-#ifndef TCL_ARRAYS
                                        overall_length += 1;
-#endif
                                }
                                else if (ch == '{' || ch == '}' || ch == typdelim ||
                                                 isspace((unsigned char) ch))
@@ -1103,7 +1101,6 @@ array_out(PG_FUNCTION_ARGS)
                if (needquotes[k])
                {
                        APPENDCHAR('"');
-#ifndef TCL_ARRAYS
                        for (tmp = values[k]; *tmp; tmp++)
                        {
                                char            ch = *tmp;
@@ -1113,9 +1110,6 @@ array_out(PG_FUNCTION_ARGS)
                                *p++ = ch;
                        }
                        *p = '\0';
-#else
-                       APPENDSTR(values[k]);
-#endif
                        APPENDCHAR('"');
                }
                else

diff --git a/src/include/pg_config_manual.h b/src/include/pg_config_manual.h
index 6f417de2d767c7bc5b863bd67d5cadfba1ad49f7..5923070bc202f25ef4dc239cc35964a2a34403d5 100644 (file)
--- a/src/include/pg_config_manual.h
+++ b/src/include/pg_config_manual.h
@@ -99,16 +99,6 @@
  */
 #define NUM_USER_DEFINED_LWLOCKS       4
 
-/*
- * Define this to make libpgtcl's "pg_result -assign" command process
- * C-style backslash sequences in returned tuple data and convert
- * PostgreSQL array values into Tcl lists.     CAUTION: This conversion
- * is *wrong* unless you install the routines in
- * contrib/string/string_io to make the server produce C-style
- * backslash sequences in the first place.
- */
-/* #define TCL_ARRAYS */
-
 /*
  * Define this if you want psql to _always_ ask for a username and a
  * password for password authentication.