belka/elna
1
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Transpile procedure declaration heading

Browse Source
This commit is contained in:
Eugen Wissner
2025-05-28 00:12:33 +02:00
parent ddc5865c7d
commit 04a52d5ad7
2 changed files with 61 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/Lexer.elna
View File

@ -311,7 +311,7 @@ BEGIN
AToken^.Kind := lexerKindWhile
ELSIF CompareKeyword('DO', ALexer^.Start, ALexer^.Current) THEN
AToken^.Kind := lexerKindDo
ELSIF CompareKeyword('PROCEDURE', ALexer^.Start, ALexer^.Current) THEN
ELSIF CompareKeyword('PROCEDURE', ALexer^.Start, ALexer^.Current) OR CompareKeyword('proc', ALexer^.Start, ALexer^.Current) THEN
AToken^.Kind := lexerKindProc
ELSIF CompareKeyword('BEGIN', ALexer^.Start, ALexer^.Current) THEN
AToken^.Kind := lexerKindBegin