Changeset 7 for branches/bigint/Disassembler.pas

Timestamp:

Aug 1, 2024, 11:47:03 PM (3 months ago)

Author:

chronos

Message:

• Added: More instructions implemented.

File:

• branches/bigint/Disassembler.pas (modified) (1 diff)

branches/bigint/Disassembler.pas

@@ -54 +54 @@
           if InstructionInfo.Params[I] = ptIndirect then begin
             InstText := InstText + '(' + IntToStr(Value) + ')';
+          end else
+          if InstructionInfo.Params[I] = ptIndirect2 then begin
+            InstText := InstText + '((' + IntToStr(Value) + '))';
           end else raise Exception.Create('Unsupported instruction parameter type');
         end;