From c79d2482aecf72ef591a2246070cec94870b3f9b Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Mon, 3 Nov 2014 20:08:08 +0100
Subject: [PATCH] inp_modify_exp(), remove operator rewrite `**' --> `^'

Thats implemented in the lexer for B expressions,
( `PTlex()' in src/spicelib/parser/inpptree.c )
---
 src/frontend/inpcom.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c
index 4dd92c3ac..3d7b1404a 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -5517,11 +5517,12 @@ inp_modify_exp(char* expr)
             (c == '+') || (c == '?') || (c == ':'))
         {
             if ((c == '*') && (s[1] == '*')) {
-                c = '^';
+                wl->wl_word = tprintf("**");
+                s += 2;
+            } else {
+                wl->wl_word = tprintf("%c", c);
                 s++;
             }
-            wl->wl_word = tprintf("%c", c);
-            s++;
             if (c == ')')
                 state = S_value;
             else