Make procedure name after the end

2025-05-29 14:59:22 +02:00
parent 4adac0531f
commit c87c0501af
3 changed files with 36 additions and 62 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;