Added lexer support for 'Finalizer'

andremussche · Sep 28, 2013 · 4071e26 · 4071e26
1 parent 37f269a
commit 4071e26
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git 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
@@ -125,6 +125,7 @@ interface
   {$ENDIF}
     ptFinalization,
     ptFinally,
+    ptFinalizer,
     ptFloat,
     ptFor,
     ptForward,