Changeset 178 for branches/virtualcpu4/UInstructionWriter.pas

Timestamp:

Apr 12, 2019, 2:19:02 PM (6 years ago)

Author:

chronos

Message:

• Added: Use more opcodes.

File:

• branches/virtualcpu4/UInstructionWriter.pas (modified) (2 diffs)

branches/virtualcpu4/UInstructionWriter.pas

@@ -45 +45 @@
     procedure JumpRelNotZero(Addr: QWord);
     procedure JumpRelZero(Addr: QWord);
+    procedure Push(Reg: TRegIndex);
+    procedure Pop(Reg: TRegIndex);
     procedure DataPrefix8;
     procedure DataPrefix16;
@@ -187 +189 @@
 end;
 
+procedure TInstructionWriter.Push(Reg: TRegIndex);
+begin
+  PrefixBegin;
+  Write8(Byte(opPush));
+  Write8(Reg);
+  PrefixEnd;
+end;
+
+procedure TInstructionWriter.Pop(Reg: TRegIndex);
+begin
+  PrefixBegin;
+  Write8(Byte(opPop));
+  Write8(Reg);
+  PrefixEnd;
+end;
+
 procedure TInstructionWriter.DataPrefix8;
 begin