github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-04-29 05:06:09 +00:00
Code Issues Projects Releases Wiki Activity

as: parse: handle parenthesized exprs

Browse Source
This commit is contained in:
Mikael Pettersson
2020-01-12 21:22:00 +01:00
parent 09016f7e2e
commit 14eb0ad1ed
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
erlang/apps/as/src/parse.erl
View File

@@ -630,6 +630,15 @@ expr(ScanState) ->
do_expr(ScanState, First) ->
case First of
{ok, {_Location1, ?T_LPAREN}} ->
case expr(ScanState) of
{ok, Expr} ->
case scan:token(ScanState) of
{ok, {_Location2, ?T_RPAREN}} -> {ok, Expr};
ScanRes -> badtok("expected ')'", ScanRes)
end;
{error, _Reason} = Error -> Error
end;
{ok, {_Location1, ?T_MINUS}} ->
case scan:token(ScanState) of
{ok, {_Location2, {?T_UINTEGER, UInt}}} ->