Răsfoiți Sursa

+ added setjump.inc for 6502

Nikolay Nikolov 1 an în urmă
părinte
comite
40d5864841
1 a modificat fișierele cu 24 adăugiri și 0 ștergeri
  1. 24 0
      rtl/mos6502/setjump.inc

+ 24 - 0
rtl/mos6502/setjump.inc

@@ -0,0 +1,24 @@
+{
+
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2008 by the Free Pascal development team.
+
+    SetJmp and LongJmp implementation for exception handling
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+function fpc_setjmp(var S : jmp_buf) : shortint;assembler;[Public, alias : 'FPC_SETJMP'];nostackframe;compilerproc;
+  asm
+  end;
+
+
+procedure fpc_longjmp(var S : jmp_buf;value : shortint);assembler;[Public, alias : 'FPC_LONGJMP'];nostackframe;compilerproc;
+  asm
+  end;