Browse Source

* reverted previous commit, as it was useless

Nikolay Nikolov 1 month ago
parent
commit
1f678725c4
2 changed files with 2 additions and 8 deletions
  1. 0 6
      compiler/mos6502/ramos6502asm.pas
  2. 2 2
      rtl/oric/si_prc.pp

+ 0 - 6
compiler/mos6502/ramos6502asm.pas

@@ -184,12 +184,6 @@ Unit ramos6502asm;
               end;
             actasmpattern[0]:=chr(len);
             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 ? }
             if is_asmopcode(upper(actasmpattern)) then
               begin

+ 2 - 2
rtl/oric/si_prc.pp

@@ -26,8 +26,8 @@ implementation
 procedure PascalMain; external name 'PASCALMAIN';
 
 { this *must* always remain the first procedure with code in this unit }
-procedure _start; {assembler; nostackframe;} public name 'start';
-{asm}begin
+procedure _start; assembler; nostackframe; public name 'start';
+asm
   // TODO...
 end;