From 4071e260ddf19c05865ab68270ea4ee106fa2632 Mon Sep 17 00:00:00 2001
From: Jeroen Vandezande <Jeroen.Vandezande@spathi.be>
Date: Sat, 28 Sep 2013 16:39:49 +0200
Subject: [PATCH] Added lexer support for 'Finalizer'

---
 CastaliaPasLex.pas      | 9 +++------
 CastaliaPasLexTypes.pas | 1 +
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/CastaliaPasLex.pas b/CastaliaPasLex.pas
index 9517461..dd8f93e 100644
--- a/CastaliaPasLex.pas
+++ b/CastaliaPasLex.pas
@@ -1252,27 +1252,24 @@ function TmwBasePasLex.Func97: TptTokenKind;
 
 function TmwBasePasLex.Func98: TptTokenKind;
 begin
-  Result := TptTokenKind.ptIdentifier;
   if KeyComp('Export') then fExID := TptTokenKind.ptExport else
     if KeyComp('Nodefault') then fExID := TptTokenKind.ptNodefault;
 end;
 
 function TmwBasePasLex.Func99: TptTokenKind;
 begin
-   Result := TptTokenKind.ptIdentifier;
   if KeyComp('External') then fExID := TptTokenKind.ptExternal;
 end;
 
 function TmwBasePasLex.Func100: TptTokenKind;
 begin
-  Result := TptTokenKind.ptIdentifier;
-  if KeyComp('Automated') then fExID := TptTokenKind.ptAutomated else
-    if KeyComp('Smallint') then fExID := TptTokenKind.ptSmallint;
+  if KeyComp('Finalizer') then result := TptTokenKind.ptFinalizer else
+    if KeyComp('Automated') then fExID := TptTokenKind.ptAutomated else
+      if KeyComp('Smallint') then fExID := TptTokenKind.ptSmallint;
 end;
 
 function TmwBasePasLex.Func101: TptTokenKind;
 begin
-  Result := TptTokenKind.ptIdentifier;
   if KeyComp('Register') then fExID := TptTokenKind.ptRegister
   else if KeyComp('Platform') then fExID := TptTokenKind.ptPlatform // DR 2001-10-20
   else if KeyComp('Continue') then fExID := TptTokenKind.ptContinue;
diff --git a/CastaliaPasLexTypes.pas b/CastaliaPasLexTypes.pas
index 21ad82c..839a009 100644
--- a/CastaliaPasLexTypes.pas
+++ b/CastaliaPasLexTypes.pas
@@ -125,6 +125,7 @@ interface
   {$ENDIF}
     ptFinalization,
     ptFinally,
+    ptFinalizer,
     ptFloat,
     ptFor,
     ptForward,