1 files changed, 66 insertions, 0 deletions
diff --git a/rtl/sparc/setjumph.inc b/rtl/sparc/setjumph.inc
new file mode 100644
index 0000000000..46561073a5
--- /dev/null
+++ b/rtl/sparc/setjumph.inc
@@ -0,0 +1,66 @@
+{******************************************************************************
+    $Id: setjumph.inc,v 1.8 2005/04/24 21:19:22 peter Exp $
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2000-2002 by Jonas Maebe and other members of the
+    Free Pascal development team
+
+    SetJmp/Longjmp declarations
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This file was adapted from
+Guardian:/usr/local/src/glibc-2.2.3/sysdeps/sparc/sparc32# more setjmp.S
+Guardian:/usr/local/src/glibc-2.2.3/sysdeps/sparc/sparc32# more __longjmp.S
+    Copyright (C) 1991, 93, 94, 96, 97, 98 Free Software Foundation, Inc.
+    This file is part of the GNU C Library.
+
+    The GNU C Library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Library General Public License as
+    published by the Free Software Foundation; either version 2 of the
+    License, or (at your option) any later version.
+
+    The GNU C Library 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.  See the GNU
+    Library General Public License for more details.
+
+    You should have received a copy of the GNU Library General Public
+    License along with the GNU C Library; see the file COPYING.LIB.  If not,
+    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+    Boston, MA 02111-1307, USA.
+
+    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.
+
+******************************************************************************}
+{@Define the machine-dependent type `jmp_buf'.  SPARC version.}
+
+
+type
+  jmp_buf=packed record
+    {stack pointer}
+    JB_SP,
+    {frame pointer}
+    JB_FP,
+    {program counter}
+    JB_PV:Pointer;
+  end;
+  Pjmp_buf=^jmp_buf;
+
+function setjmp(var S:jmp_buf):longint;
+procedure longjmp(var S:jmp_buf;value:longint);
+{
+  $Log: setjumph.inc,v $
+  Revision 1.8  2005/04/24 21:19:22  peter
+    * unblock signal in signalhandler, remove the sigprocmask call
+      from setjmp
+
+  Revision 1.7  2005/02/14 17:13:31  peter
+    * truncate log
+
+  Revision 1.6  2005/01/20 16:38:28  peter
+    * restore sigprocmask for linux
+
+}