unit jtag.svfFreq;

interface
uses
   jtag.svfAstNode;

type
   TsvfAstFreq = class( TsvfAstNode)
      private
         fFrequency: double;

      public
         function    AsText: AnsiString; override;
      public
         constructor Create(Freq: double);

      public
         property Frequency   : double read fFrequency;
   end;

implementation

{ TsvfAstFreq }

function TsvfAstFreq.AsText: AnsiString;
begin
   result := 'Frequency ...';
end;

constructor TsvfAstFreq.Create(Freq: double);
begin
   fFrequency := Freq
end;

end.