diff options
Diffstat (limited to 'boot/stage19/cl.elna')
| -rw-r--r-- | boot/stage19/cl.elna | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/boot/stage19/cl.elna b/boot/stage19/cl.elna index 5a3916e..8959bfa 100644 --- a/boot/stage19/cl.elna +++ b/boot/stage19/cl.elna @@ -9,6 +9,7 @@ program; (* - Aggregates can be allocated on the stack. *) (* - Procedure return type is parsed. *) +(* - "|" can be used as binary "+" for pointer arithmetic. *) type (** @@ -2167,6 +2168,9 @@ begin elsif token_kind = ElnaLexerKind.minus then _elna_lexer_skip_token(); rhs_node := elna_parser_unary_expression() + elsif token_kind = ElnaLexerKind.pipe then + _elna_lexer_skip_token(); + rhs_node := elna_parser_unary_expression() elsif token_kind = ElnaLexerKind.multiplication then _elna_lexer_skip_token(); rhs_node := elna_parser_unary_expression() @@ -2241,6 +2245,8 @@ begin instruction := elna_tac_instruction_create(ElnaTacOperator.add) elsif parser_node^.operator = ElnaLexerKind.minus then instruction := elna_tac_instruction_create(ElnaTacOperator.subtract) + elsif parser_node^.operator = ElnaLexerKind.pipe then + instruction := elna_tac_instruction_create(ElnaTacOperator.add) elsif parser_node^.operator = ElnaLexerKind.multiplication then instruction := elna_tac_instruction_create(ElnaTacOperator.multiply) elsif parser_node^.operator = ElnaLexerKind.and then @@ -5165,6 +5171,8 @@ begin result := ElnaLexerKind.left_square elsif character = ']' then result := ElnaLexerKind.right_square + elsif character = '|' then + result := ElnaLexerKind.pipe end; return result end; |