changes AccessMode to Action in frmMain

This fixes a compile error because TOperandAccessMode was refactored to TOperandAction.
This commit is contained in:
Duncan Ogilvie 2017-04-08 20:33:58 +02:00 committed by GitHub
parent 0376376b83
commit ae5a900591
1 changed files with 2 additions and 2 deletions

View File

@ -931,7 +931,7 @@ begin
begin
O := NodeData^.Definition.Operands.Operands[I];
S := S + IntToStr(Integer(O.OperandType)) + ',' + IntToStr(Integer(O.Encoding)) + ',' +
IntToStr(Integer(O.AccessMode)) + ',';
IntToStr(Integer(O.Action)) + ',';
end;
Clipboard.AsText := S;
end;
@ -959,7 +959,7 @@ begin
O := NodeData^.Definition.Operands.Operands[J];
O.OperandType := TOperandType(StrToInt(A[I]));
O.Encoding := TOperandEncoding(StrToInt(A[I + 1]));
O.AccessMode := TOperandAccessMode(StrToInt(A[I + 2]));
O.Action := TOperandAction(StrToInt(A[I + 2]));
Inc(I, 3);
Inc(J);
end;