Changeset 55 for branches/ByteArray/Assembler.pas

Timestamp:

Nov 22, 2023, 10:09:35 PM (7 months ago)

Author:

chronos

Message:

• Modified: Extended BigInt type implementation.

File:

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

branches/ByteArray/Assembler.pas

@@ -245 +245 @@
         end else Error('Expected register name starting with R character.', Token.Pos);
         Parser.Expect(tkSpecialSymbol, ')');
-      end else
-      if InstructionInfo.Params[I] = ptRegIndirectGroup then begin
-        Parser.Expect(tkSpecialSymbol, '(');
-        Token := Parser.ReadNext;
-        if (Token.Value <> '') and (Token.Value[1] = 'R') then begin
-          Token.Value := Copy(Token.Value, 2, MaxInt);
-          if TryStrToInt(Token.Value, Number) then begin
-            Memory.WritePos(1, Number);
-            Parser.Expect(tkSpecialSymbol, ':');
-            Token := Parser.ReadNext;
-            if (Token.Value <> '') and (Token.Value[1] = 'R') then begin
-              Token.Value := Copy(Token.Value, 2, MaxInt);
-              if TryStrToInt(Token.Value, Number) then begin
-                Memory.WritePos(1, Number);
-              end else Error('Expected numeric register index error', Token.Pos);
-            end else Error('Expected register name starting with R character.', Token.Pos);
-          end else Error('Expected numeric register index error', Token.Pos);
-        end else Error('Expected register name starting with R character.', Token.Pos);
-        Parser.Expect(tkSpecialSymbol, ')');
-      end else
+      end else Error('Unsupported parameter type', Token.Pos);
     end;
   end;