From 4323e0f274bdfce2d3c219cd26c84783fb1902df Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 27 Aug 2003 21:31:05 +0000
Subject: additional performance tweak to last commit.

---
 generic/tclUtil.c | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index d939496..4321833 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- *  RCS: @(#) $Id: tclUtil.c,v 1.41 2003/08/27 20:29:36 dgp Exp $
+ *  RCS: @(#) $Id: tclUtil.c,v 1.42 2003/08/27 21:31:05 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -2038,13 +2038,24 @@ TclNeedSpace(start, end)
      *     backslash.
      */
 
+    if (*end > 0x20) {
+	/*
+	 * Performance tweak.  All ASCII spaces are <= 0x20. So get
+	 * a quick answer for most characters before comparing against
+	 * all spaces in the switch below.
+	 *
+	 * NOTE: Remove this if other Unicode spaces ever get accepted
+	 * as list-element separators.
+	 */
+	return 1;
+    }
     switch (*end) {
 	case ' ':
-        case '\f':
+        case '\t':
         case '\n':
         case '\r':
-        case '\t':
         case '\v':
+        case '\f':
 	    if ((end == start) || (end[-1] != '\\')) {
 		return 0;
 	    }
-- 
cgit v0.12