Add support for noreturn routine directive

CHANGELOG.md

@@ -7,6 +7,10 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 
 ## [Unreleased]
 
+### Added
+
+- Added support for Delphi 13 `noreturn` directive.
+
 ## [0.7.0] - 2025-11-11
 
 ### Added

core/CHANGELOG.md

@@ -7,6 +7,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## Unreleased
 
+### Added
+
+- Added support for Delphi 13 `noreturn` directive.
+
 ## 0.7.0 - 2025-11-11
 
 ### Added

core/benches/benchmark_lexer.rs

@@ -98,7 +98,6 @@ const OPERATORS: [&str; 24] = [
 const KEYWORDS: [&str; 123] = [
     "absolute",
     "abstract",
-    "add",
     "align",
     "and",
     "array",
@@ -160,6 +159,7 @@ const KEYWORDS: [&str; 123] = [
     "near",
     "nil",
     "nodefault",
+    "noreturn",
     "not",
     "object",
     "of",
@@ -187,7 +187,6 @@ const KEYWORDS: [&str; 123] = [
     "reference",
     "register",
     "reintroduce",
-    "remove",
     "repeat",
     "requires",
     "resident",
@@ -201,6 +200,7 @@ const KEYWORDS: [&str; 123] = [
     "stdcall",
     "stored",
     "strict",
+    "string",
     "then",
     "threadvar",
     "to",
@@ -212,9 +212,9 @@ const KEYWORDS: [&str; 123] = [
     "uses",
     "var",
     "varargs",
-    "variant",
     "virtual",
     "while",
+    "winapi",
     "with",
     "write",
     "writeonly",

core/src/defaults/lexer.rs

@@ -321,7 +321,7 @@ const fn make_byte_map<T: Copy>(map: &[(ByteSet<'_>, T)], default: T) -> [T; 256
 // endregion: byte-set
 
 // region: keywords
-const KEYWORDS: [(&str, RawTokenType); 122] = [
+const KEYWORDS: [(&str, RawTokenType); 123] = [
     ("absolute", TT::IdentifierOrKeyword(KK::Absolute)),
     ("abstract", TT::IdentifierOrKeyword(KK::Abstract)),
     ("align", TT::IdentifierOrKeyword(KK::Align)),
@@ -385,6 +385,7 @@ const KEYWORDS: [(&str, RawTokenType); 122] = [
     ("near", TT::IdentifierOrKeyword(KK::Near)),
     ("nil", TT::Keyword(KK::Nil)),
     ("nodefault", TT::IdentifierOrKeyword(KK::NoDefault)),
+    ("noreturn", TT::IdentifierOrKeyword(KK::NoReturn)),
     ("not", TT::Keyword(KK::Not)),
     ("object", TT::Keyword(KK::Object)),
     ("of", TT::Keyword(KK::Of)),

core/src/defaults/parser/token_consolidation_tests.rs

@@ -157,6 +157,7 @@ method_directive_consolidation_test!(
 method_directive_ident_consolidation_test!(
     forward = { "FORWARD" },
     external = { "EXTERNAL" },
+    noreturn = { "NORETURN" },
     name = { "NAME dll_name" },
     index = { "INDEX 1" },
     delayed = { "DELAYED" },

core/src/lang.rs

@@ -146,6 +146,7 @@ pub enum KeywordKind {
     Name,
     Near,
     NoDefault,
+    NoReturn,
     On,
     Operator,
     Out,
@@ -192,6 +193,7 @@ impl KeywordKind {
                 | KeywordKind::Abstract
                 | KeywordKind::Final
                 | KeywordKind::Inline
+                | KeywordKind::NoReturn
                 | KeywordKind::Assembler
                 | KeywordKind::Cdecl
                 | KeywordKind::Pascal

misc/keywords.txt

@@ -61,6 +61,7 @@ name
 near
 nil
 nodefault
+noreturn
 not
 object
 of