paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* empty dummy files

Browse Source 
+ [long|set]jmp implemented
This commit is contained in:
florian 2003-08-21 16:41:54 +00:00
parent 4b44f9b557
commit 736ae20a79
5 changed files with 138 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/arm/arm.inc Normal file
View File

@ -0,0 +1,23 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team.
Processor dependent implementation for the system unit for
ARM
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.
**********************************************************************}
{
$Log$
Revision 1.1 2003-08-21 16:41:54 florian
* empty dummy files
+ [long|set]jmp implemented
}

22
rtl/arm/math.inc Normal file
View File

@ -0,0 +1,22 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team.
Implementation of mathematical Routines (only for real)
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.
**********************************************************************}
{
$Log$
Revision 1.1 2003-08-21 16:41:54 florian
* empty dummy files
+ [long|set]jmp implemented
}

22
rtl/arm/set.inc Normal file
View File

@ -0,0 +1,22 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team.
Include file with set operations called by the compiler
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.
**********************************************************************}
{
$Log$
Revision 1.1 2003-08-21 16:41:54 florian
* empty dummy files
+ [long|set]jmp implemented
}

38
rtl/arm/setjump.inc Normal file
View File

@ -0,0 +1,38 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2003 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 setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP'];
asm
stmia r0,{v1-v6, sl, fp, sp, lr}
{!!!! fix me ?}
end;
procedure longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP'];
asm
mov ip, r0
movs r0, r1
moveq r0, #1
ldmia ip,{v1-v6, sl, fp, sp, pc}
end;
{
$Log$
Revision 1.1 2003-08-21 16:41:54 florian
* empty dummy files
+ [long|set]jmp implemented
}

33
rtl/arm/setjumph.inc Normal file
View File

@ -0,0 +1,33 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team.
SetJmp/Longjmp declarations
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.
**********************************************************************}
type
jmp_buf = packed record
v1,v2,v3,v4,v5,v6,sl,fp,sp,pc : dword;
end;
pjmp_buf = ^jmp_buf;
function setjmp(var S : jmp_buf) : longint;
procedure longjmp(var S : jmp_buf;value : longint);
{
$Log$
Revision 1.1 2003-08-21 16:41:55 florian
* empty dummy files
+ [long|set]jmp implemented
}