unit jtag.svfAstComment;

interface
uses
   jtag.svfAstNode;

type
   TsvfAstComment = class( TsvfAstNode)
      private
         fComment : AnsiString;

      public
         function    AsText: AnsiString; override;

      public
         constructor Create(Comment: AnsiString);

      public
         property Comment : AnsiString read fComment;

   end;

implementation

{ TsvfAstEndDR }

function TsvfAstComment.AsText: AnsiString;
begin
   result := fComment;
end;

constructor TsvfAstComment.Create(Comment: AnsiString);
begin
   fComment := Comment +#13#10
end;

end.