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

* don't use inline asm in setjump.inc for 6502

Nikolay Nikolov преди 1 година
родител
ревизия
a881ae6baf
променени са 1 файла, в които са добавени 4 реда и са изтрити 4 реда
  1. 4 4
      rtl/mos6502/setjump.inc

+ 4 - 4
rtl/mos6502/setjump.inc

@@ -14,11 +14,11 @@
 
  **********************************************************************}
 
-function fpc_setjmp(var S : jmp_buf) : shortint;assembler;[Public, alias : 'FPC_SETJMP'];nostackframe;compilerproc;
-  asm
+function fpc_setjmp(var S : jmp_buf) : shortint;[Public, alias : 'FPC_SETJMP'];nostackframe;compilerproc;
+  begin
   end;
 
 
-procedure fpc_longjmp(var S : jmp_buf;value : shortint);assembler;[Public, alias : 'FPC_LONGJMP'];nostackframe;compilerproc;
-  asm
+procedure fpc_longjmp(var S : jmp_buf;value : shortint);[Public, alias : 'FPC_LONGJMP'];nostackframe;compilerproc;
+  begin
   end;