Initial check in

2026-01-08 19:12:06 +01:00
commit a30568e2a9
35 changed files with 11750 additions and 0 deletions
@@ -0,0 +1,37 @@
+unit jtag.svfAstFreq;
+
+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
+uses
+   System.SysUtils;
+
+{ TsvfAstFreq }
+
+function TsvfAstFreq.AsText: AnsiString;
+begin
+   result := Format('FREQUENCY %8.4e HZ;',[fFrequency])+#13#10;
+end;
+
+constructor TsvfAstFreq.Create(Freq: double);
+begin
+   fFrequency := Freq
+end;
+
+end.