Преглед на файлове

+ support '(' and ')' in the 6502 inline assembler tokenizer

Nikolay Nikolov преди 1 месец
родител
ревизия
5ff9818874
променени са 1 файла, в които са добавени 14 реда и са изтрити 0 реда
  1. 14 0
      compiler/mos6502/ramos6502asm.pas

+ 14 - 0
compiler/mos6502/ramos6502asm.pas

@@ -313,6 +313,20 @@ Unit ramos6502asm;
                    exit;
                  end;
 
+               '(' :
+                 begin
+                   actasmtoken:=AS_LPAREN;
+                   c:=current_scanner.asmgetchar;
+                   exit;
+                 end;
+
+               ')' :
+                 begin
+                   actasmtoken:=AS_RPAREN;
+                   c:=current_scanner.asmgetchar;
+                   exit;
+                 end;
+
                #13,#10:
                  begin
                    current_scanner.linebreak;