From 1c770e707762d6737d7f0c297c2fb8b362fa0099 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 21 Jan 2003 08:12:07 +0000
Subject: * parse.y (arg): put back old ** behavior for negative number   right
 operand.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3385 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 parse.y | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'parse.y')

diff --git a/parse.y b/parse.y
index 723c239ead..5bbcf06d64 100644
--- a/parse.y
+++ b/parse.y
@@ -1022,7 +1022,26 @@ arg		: lhs '=' arg
 		    }
 		| arg tPOW arg
 		    {
+			int need_negate = Qfalse;
+
+			if ($1 && nd_type($1) == NODE_LIT) {
+
+			    switch (TYPE($1->nd_lit)) {
+			      case T_FIXNUM:
+			      case T_FLOAT:
+			      case T_BIGNUM:
+				if (RTEST(rb_funcall($1->nd_lit,'<',1,INT2FIX(0)))) {
+				    $1->nd_lit = rb_funcall($1->nd_lit,rb_intern("-@"),0,0);
+				    need_negate = Qtrue;
+				}
+			      default:
+				break;
+			    }
+			}
 			$$ = call_op($1, tPOW, 1, $3);
+			if (need_negate) {
+			    $$ = call_op($$, tUMINUS, 0, 0);
+			}
 		    }
 		| tUPLUS arg
 		    {
-- 
cgit v1.2.3