* node.h (NEW_DSTR): adjust list length.

* parse.y (literal_concat): ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6356 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
lann · May 18, 2004 · 06ec039 · 06ec039
1 parent 3375c0b
commit 06ec039
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,9 @@
+Tue May 18 14:00:46 2004  Nobuyoshi Nakada  <[email protected]>
+
+	* node.h (NEW_DSTR): adjust list length.
+
+	* parse.y (literal_concat): ditto.
+
 Tue May 18 09:30:25 2004  SASADA Koichi  <[email protected]>
 
 	* eval.c (rb_method_node): search cache entry first.

diff --git a/node.h b/node.h
@@ -297,7 +297,7 @@ typedef struct RNode {
 #define NEW_MATCH3(r,n2) NEW_NODE(NODE_MATCH3,r,n2,0)
 #define NEW_LIT(l) NEW_NODE(NODE_LIT,l,0,0)
 #define NEW_STR(s) NEW_NODE(NODE_STR,s,0,0)
-#define NEW_DSTR(s) NEW_NODE(NODE_DSTR,s,0,0)
+#define NEW_DSTR(s) NEW_NODE(NODE_DSTR,s,1,0)
 #define NEW_XSTR(s) NEW_NODE(NODE_XSTR,s,0,0)
 #define NEW_DXSTR(s) NEW_NODE(NODE_DXSTR,s,0,0)
 #define NEW_DSYM(s) NEW_NODE(NODE_DSYM,s,0,0)

diff --git a/parse.y b/parse.y
@@ -4681,6 +4681,7 @@ literal_concat(head, tail)
       case NODE_EVSTR:
 	if (htype == NODE_STR) {
 	    nd_set_type(head, NODE_DSTR);
+	    head->nd_alen = 1;
 	}
 	list_append(head, tail);
 	break;