]> granicus.if.org Git - postgresql/blobdiff - src/backend/utils/adt/arrayfuncs.c
Remove long-unused and broken TCL_ARRAYS.
[postgresql] / src / backend / utils / adt / arrayfuncs.c
index 8b058cb422fc002156cb1e7f52efa89d7ca9ad45..b2beb18bc5f4413a992bf468c3625b67213e168c 100644 (file)
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *       $PostgreSQL: pgsql/src/backend/utils/adt/arrayfuncs.c,v 1.140 2008/01/01 19:45:52 momjian Exp $
+ *       $PostgreSQL: pgsql/src/backend/utils/adt/arrayfuncs.c,v 1.141 2008/02/29 20:58:33 alvherre Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -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