瀏覽代碼

+ 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;