OSS/elna
1
0
Fork 0
Code Issues Releases Activity

Pass lexer state explicitly

Browse Source
This commit is contained in:
Eugen Wissner
2026-02-28 22:41:26 +01:00
parent 63ecc4e71b
commit 9cf052dfeb
2 changed files with 545 additions and 546 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
boot/stage19/cl.elna
View File

@@ -8,6 +8,7 @@ program;
(* Stage 19 compiler. *) (* Stage 19 compiler. *)
(* - Aggregates can be allocated on the stack. *) (* - Aggregates can be allocated on the stack. *)
(* - Procedure return type is parsed. *)
type type
(** (**
@@ -3565,7 +3566,9 @@ begin
_elna_lexer_skip_token(); _elna_lexer_skip_token();
if token_kind = ElnaLexerKind.arrow then if token_kind = ElnaLexerKind.arrow then
result^.return_type := elna_parser_type_expression() result^.return_type := elna_parser_type_expression();
_elna_lexer_read_token(@token_kind);
_elna_lexer_skip_token()
else else
result^.return_type := nil result^.return_type := nil
end; end;

1086
boot/stage20/cl.elna
View File

File diff suppressed because it is too large Load Diff