OpenE2K/rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Accept uint literals as literal patterns.

Browse Source
This commit is contained in:
Roy Frostig 2010-08-06 15:43:59 -07:00
parent db561b52ff
commit 514fb4b321
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/boot/fe/item.ml
View File

@ -253,7 +253,10 @@ and parse_stmts (ps:pstate) : Ast.stmt array =
let lv = name_to_lval apos bpos name in let lv = name_to_lval apos bpos name in
Ast.PAT_tag (lv, paren_comma_list parse_pat ps) Ast.PAT_tag (lv, paren_comma_list parse_pat ps)
| LIT_INT _ | LIT_CHAR _ | LIT_BOOL _ -> | LIT_INT _
| LIT_UINT _
| LIT_CHAR _
| LIT_BOOL _ ->
Ast.PAT_lit (Pexp.parse_lit ps) Ast.PAT_lit (Pexp.parse_lit ps)
| UNDERSCORE -> bump ps; Ast.PAT_wild | UNDERSCORE -> bump ps; Ast.PAT_wild