57 lines
847 B
ObjectPascal
57 lines
847 B
ObjectPascal
unit jtag.svfAstEndIR;
|
|
|
|
interface
|
|
uses
|
|
jtag.svfAstNode,
|
|
jtag.svfLex;
|
|
|
|
type
|
|
TsvfAstEndIR = class( TsvfAstNode)
|
|
private
|
|
fState : byte;
|
|
fStateX : TTokenType;
|
|
|
|
public
|
|
function AsText: AnsiString; override;
|
|
|
|
public
|
|
constructor Create(State: byte);
|
|
|
|
public
|
|
property State: byte read fState;
|
|
|
|
end;
|
|
|
|
|
|
implementation
|
|
uses
|
|
System.sysutils,
|
|
jtag.svfProgram;
|
|
|
|
{ TsvfAstEndIR }
|
|
|
|
constructor TsvfAstEndIR.Create(State: byte);
|
|
begin
|
|
inherited Create;
|
|
fState := State;
|
|
end;
|
|
|
|
|
|
function TsvfAstEndIR.AsText: AnsiString;
|
|
var
|
|
s: AnsiString;
|
|
|
|
begin
|
|
case fState of
|
|
stRESET : s := 'RESET';
|
|
stIDLE : s := 'IDLE';
|
|
stDRPAUSE : s := 'DRPAUSE';
|
|
stIRPAUSE : s := 'IRPAUSE';
|
|
end;
|
|
|
|
result := 'ENDIR ' +s+ ';' +#13#10;
|
|
end;
|
|
|
|
|
|
end.
|