← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to rtl/m68k/setjumph.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/m68k/setjumph.inc
1
 
{
2
 
    $Id: setjumph.inc,v 1.5 2004/05/05 21:26:34 florian Exp $
3
 
    This file is part of the Free Pascal run time library.
4
 
    Copyright (c) 1999-2000 by xxxx
5
 
    member of the Free Pascal development team
6
 
 
7
 
    See the file COPYING.FPC, included in this distribution,
8
 
    for details about the copyright.
9
 
 
10
 
    This program is distributed in the hope that it will be useful,
11
 
    but WITHOUT ANY WARRANTY; without even the implied warranty of
12
 
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13
 
 
14
 
 **********************************************************************}
15
 
 
16
 
{**********************************************************************
17
 
          Declarations for SetJmp/LongJmp
18
 
 **********************************************************************}
19
 
 
20
 
Type
21
 
  jmp_buf = packed record
22
 
    fp : longint;                    { frame pointer     }
23
 
    sp : longint;                    { stack pointer     }
24
 
    pc : longint;                    { program counter   }
25
 
    aregs : array[0..3] of dword;    { address registers (a2,a3,a4,a5) }
26
 
  end;
27
 
  PJmp_buf = ^jmp_buf;
28
 
 
29
 
Function Setjmp (Var S : Jmp_buf) : longint;
30
 
Procedure longjmp (Var S : Jmp_buf; value : longint);
31
 
 
32
 
{
33
 
  $Log: setjumph.inc,v $
34
 
  Revision 1.5  2004/05/05 21:26:34  florian
35
 
    * some m68k and amiga related stuff fixed
36
 
 
37
 
  Revision 1.4  2002/10/20 11:53:14  carl
38
 
    * make the jmp_buf record packed, just in case
39
 
 
40
 
  Revision 1.3  2002/09/07 16:01:20  peter
41
 
    * old logs removed and tabs fixed
42
 
}