Changeset 7 for branches/bigint/Assembler.pas

Timestamp:

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

Author:

chronos

Message:

• Added: More instructions implemented.

File:

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

branches/bigint/Assembler.pas

@@ -213 +213 @@
         ParseNumParam(Token);
       end else
+      if InstructionInfo.Params[I] = ptIndirect2 then begin
+        Parser.Expect(tkSpecialSymbol, '((');
+        Parser.Expect(tkSpecialSymbol, '(');
+        Token := Parser.ReadNext;
+        if TryStrToInt(Token.Value, Number) then
+          Memory.WritePos(Number)
+          else Error('Expected numeric index error', Token.Pos);
+        Parser.Expect(tkSpecialSymbol, '))');
+        Parser.Expect(tkSpecialSymbol, '))');
+      end else
       if InstructionInfo.Params[I] = ptIndirect then begin
         Parser.Expect(tkSpecialSymbol, '(');