Make procedure name after the end

2025-05-29 14:59:56 +02:00
parent 192e7e40c8
commit 4c47a5f466
4 changed files with 89 additions and 57 deletions
--- a/source/Lexer.def
+++ b/source/Lexer.def
@ -80,7 +80,8 @@ TYPE
  );
  LexerToken = RECORD
    CASE Kind: LexerKind OF
-      lexerKindBoolean: booleanKind: BOOLEAN
+      lexerKindBoolean: booleanKind: BOOLEAN |
+      lexerKindIdentifier: identifierKind: ARRAY[1..256] OF CHAR
    END
  END;
  PLexerToken = POINTER TO LexerToken;