فهرست منبع

+ check for end directive even if firsttoken=true in the 6502 inline asm reader

Nikolay Nikolov 1 ماه پیش
والد
کامیت
dc10d53f4a
1فایلهای تغییر یافته به همراه6 افزوده شده و 0 حذف شده
  1. 6 0
      compiler/mos6502/ramos6502asm.pas

+ 6 - 0
compiler/mos6502/ramos6502asm.pas

@@ -184,6 +184,12 @@ Unit ramos6502asm;
               end;
               end;
             actasmpattern[0]:=chr(len);
             actasmpattern[0]:=chr(len);
             actasmpattern_origcase:=actasmpattern;
             actasmpattern_origcase:=actasmpattern;
+            { check for end which is a reserved word unlike the opcodes }
+            if actasmpattern = 'END' then
+              begin
+                actasmtoken:=AS_END;
+                exit;
+              end;
             { Opcode ? }
             { Opcode ? }
             if is_asmopcode(upper(actasmpattern)) then
             if is_asmopcode(upper(actasmpattern)) then
               begin
               begin