mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Fix parsing of corner-case negative exponents, such as 1-(1+r) ^ -y
This commit is contained in:
parent
2576cbc7f4
commit
fc05f7d925
1 changed files with 2 additions and 1 deletions
|
@ -17735,8 +17735,9 @@ FUNCTION fixoperationorder$ (savea$)
|
||||||
IF pownegused THEN
|
IF pownegused THEN
|
||||||
b = 0
|
b = 0
|
||||||
i = 0
|
i = 0
|
||||||
DO WHILE i <= n
|
DO
|
||||||
i = i + 1
|
i = i + 1
|
||||||
|
IF i > n THEN EXIT DO
|
||||||
c = ASC(getelement(a$, i))
|
c = ASC(getelement(a$, i))
|
||||||
IF c = 41 OR c = 125 THEN b = b - 1
|
IF c = 41 OR c = 125 THEN b = b - 1
|
||||||
IF (c = 123 OR c = 125) AND b <> 0 THEN
|
IF (c = 123 OR c = 125) AND b <> 0 THEN
|
||||||
|
|
Loading…
Reference in a new issue