Initial check in
This commit is contained in:
@@ -0,0 +1,35 @@
|
||||
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.
|
||||
Reference in New Issue
Block a user