* marshal.c (r_object): complete restoration before calling

  r_regist().

* parse.y (yylex): operators in the "op" rule should make
  lex_state EXPR_ARG on EXPR_FNAME and EXPR_DOT.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_6@2091 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 87 insertions, 27 deletions

diff --git a/parse.y b/parse.y
index 7ce6d889f1..9307b7e144 100644
--- a/parse.y
+++ b/parse.y
@@ -2854,31 +2854,38 @@ yylex()
 
       case '*':
 	if ((c = nextc()) == '*') {
-	    lex_state = EXPR_BEG;
 	    if (nextc() == '=') {
+		lex_state = EXPR_BEG;
 		yylval.id = tPOW;
 		return tOP_ASGN;
 	    }
 	    pushback(c);
-	    return tPOW;
-	}
-	if (c == '=') {
-	    yylval.id = '*';
-	    lex_state = EXPR_BEG;
-	    return tOP_ASGN;
-	}
-	pushback(c);
-	if (lex_state == EXPR_ARG && space_seen && !ISSPACE(c)){
-	    rb_warning("`*' interpreted as argument prefix");
-	    c = tSTAR;
-	}
-	else if (lex_state == EXPR_BEG || lex_state == EXPR_MID) {
-	    c = tSTAR;
+	    c = tPOW;
 	}
 	else {
-	    c = '*';
+	    if (c == '=') {
+		yylval.id = '*';
+		lex_state = EXPR_BEG;
+		return tOP_ASGN;
+	    }
+	    pushback(c);
+	    if (lex_state == EXPR_ARG && space_seen && !ISSPACE(c)){
+		rb_warning("`*' interpreted as argument prefix");
+		c = tSTAR;
+	    }
+	    else if (lex_state == EXPR_BEG || lex_state == EXPR_MID) {
+		c = tSTAR;
+	    }
+	    else {
+		c = '*';
+	    }
+	}
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
 	}
-	lex_state = EXPR_BEG;
 	return c;
 
       case '!':
@@ -2914,7 +2921,12 @@ yylex()
 	    }
 	}
 
-	lex_state = EXPR_BEG;
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
+	}
 	if ((c = nextc()) == '=') {
 	    if ((c = nextc()) == '=') {
 		return tEQQ;
@@ -2947,7 +2959,12 @@ yylex()
 	    }
 	    pushback(c2);
 	}
-	lex_state = EXPR_BEG;
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
+	}
 	if (c == '=') {
 	    if ((c = nextc()) == '>') {
 		return tCMP;
@@ -2957,6 +2974,7 @@ yylex()
 	}
 	if (c == '<') {
 	    if (nextc() == '=') {
+		lex_state = EXPR_BEG;
 		yylval.id = tLSHFT;
 		return tOP_ASGN;
 	    }
@@ -2967,12 +2985,18 @@ yylex()
 	return '<';
 
       case '>':
-	lex_state = EXPR_BEG;
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
+	}
 	if ((c = nextc()) == '=') {
 	    return tGEQ;
 	}
 	if (c == '>') {
 	    if ((c = nextc()) == '=') {
+		lex_state = EXPR_BEG;
 		yylval.id = tRSHFT;
 		return tOP_ASGN;
 	    }
@@ -3041,12 +3065,17 @@ yylex()
 	else {
 	    c = '&';
 	}
-	lex_state = EXPR_BEG;
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG;
+	}
 	return c;
 
       case '|':
-	lex_state = EXPR_BEG;
 	if ((c = nextc()) == '|') {
+	    lex_state = EXPR_BEG;
 	    if ((c = nextc()) == '=') {
 		yylval.id = tOROP;
 		return tOP_ASGN;
@@ -3054,16 +3083,24 @@ yylex()
 	    pushback(c);
 	    return tOROP;
 	}
-	else if (c == '=') {
+	if (c == '=') {
+	    lex_state = EXPR_BEG;
 	    yylval.id = '|';
 	    return tOP_ASGN;
 	}
+	if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {
+	    lex_state = EXPR_ARG;
+	}
+	else {
+	    lex_state = EXPR_BEG;
+	}
 	pushback(c);
 	return '|';
 
       case '+':
 	c = nextc();
 	if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {
+	    lex_state = EXPR_ARG;
 	    if (c == '@') {
 		return tUPLUS;
 	    }
@@ -3093,6 +3130,7 @@ yylex()
       case '-':
 	c = nextc();
 	if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {
+	    lex_state = EXPR_ARG;
 	    if (c == '@') {
 		return tUMINUS;
 	    }
@@ -3361,15 +3399,26 @@ yylex()
 		return parse_regx('/', '/');
 	    }
 	}
-	lex_state = EXPR_BEG;
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
+	}
 	return '/';
 
       case '^':
-	lex_state = EXPR_BEG;
 	if ((c = nextc()) == '=') {
+	    lex_state = EXPR_BEG;
 	    yylval.id = '^';
 	    return tOP_ASGN;
 	}
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
+	}
 	pushback(c);
 	return '^';
 
@@ -3384,7 +3433,12 @@ yylex()
 		pushback(c);
 	    }
 	}
-	lex_state = EXPR_BEG;
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
+	}
 	return '~';
 
       case '(':
@@ -3402,6 +3456,7 @@ yylex()
 
       case '[':
 	if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {
+	    lex_state = EXPR_ARG;
 	    if ((c = nextc()) == ']') {
 		if ((c = nextc()) == '=') {
 		    return tASET;
@@ -3493,7 +3548,12 @@ yylex()
 	if (lex_state == EXPR_ARG && space_seen && !ISSPACE(c)) {
 	    goto quotation;
 	}
-	lex_state = EXPR_BEG;
+	switch (lex_state) {
+	  case EXPR_FNAME: case EXPR_DOT:
+	    lex_state = EXPR_ARG; break;
+	  default:
+	    lex_state = EXPR_BEG; break;
+	}
 	pushback(c);
 	return '%';