blob: 480a865dd528a251f579c7f89a9e7242d1f7485b (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- a/src/cppo_parser.mly
+++ b/src/cppo_parser.mly
@@ -252,7 +252,7 @@
| aexpr MOD aexpr { `Mod ($2, $1, $3) }
| aexpr LSL aexpr { `Lsl ($1, $3) }
| aexpr LSR aexpr { `Lsr ($1, $3) }
- | aexpr ASR aexpr { `Lsr ($1, $3) }
+ | aexpr ASR aexpr { `Asr ($1, $3) }
| aexpr LAND aexpr { `Land ($1, $3) }
| aexpr LOR aexpr { `Lor ($1, $3) }
| aexpr LXOR aexpr { `Lxor ($1, $3) }
|
