Calling convention attribute added

Pawe1 · Apr 18, 2015 · f7036c8 · f7036c8
1 parent 6295b53
commit f7036c8
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 6 deletions.
diff --git a/Source/DelphiAST.Consts.pas b/Source/DelphiAST.Consts.pas
@@ -236,12 +236,13 @@ interface
 
 
 const
-  sENUM     = 'enum';
-  sNAME     = 'name';
-  sPATH     = 'path';
-  sSUBRANGE = 'subrange';
-  sTYPE     = 'type';
-  sVALUE    = 'value';
+  sCALLINGCONVENTION = 'callingconvention';
+  sENUM              = 'enum';
+  sNAME              = 'name';
+  sPATH              = 'path';
+  sSUBRANGE          = 'subrange';
+  sTYPE              = 'type';
+  sVALUE             = 'value';
 
 implementation
 

diff --git a/Source/DelphiAST.pas b/Source/DelphiAST.pas
@@ -87,6 +87,7 @@   TPasSyntaxTreeBuilder = class(TmwSimplePasPar)
     procedure Designator; override;
     procedure DestructorName; override;
     procedure DirectiveBinding; override;
+    procedure DirectiveCalling; override;
     procedure DotOp; override;
     procedure ElseStatement; override;
     procedure EmptyStatement; override;
@@ -734,6 +735,12 @@ procedure TPasSyntaxTreeBuilder.DirectiveBinding;
   inherited;
 end;
 
+procedure TPasSyntaxTreeBuilder.DirectiveCalling;
+begin
+  FStack.Peek.SetAttribute(sCALLINGCONVENTION, Lexer.Token);
+  inherited;
+end;
+
 procedure TPasSyntaxTreeBuilder.DotOp;
 begin
   FStack.AddChild(ntDot, False);