paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 08:47:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ?

Browse Source
This commit is contained in:
florian 2004-05-30 20:03:05 +00:00
parent 056201180f
commit c9bf25c7eb
2 changed files with 40 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/sparc/int64p.inc
View File

@ -16,8 +16,9 @@
{
$Log$
Revision 1.1 2003-09-14 11:34:13 peter
* moved int64 asm code to int64p.inc
* save ebx,esi
Revision 1.2 2004-05-30 20:03:05 florian
* ?
Revision 1.1 2003/09/14 11:34:13 peter
* moved int64 asm code to int64p.inc
}

47
rtl/sparc/sparc.inc
View File

@ -1,47 +1,72 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2002-2004 by the Free Pascal development team.
Processor dependent implementation for the system unit for
Sparc
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.
**********************************************************************}
{****************************************************************************
PowerPC specific stuff
****************************************************************************}
procedure fpc_cpuinit;
begin
end;
begin
end;
{$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;nostackframe;
asm
asm
mov %sp,%o0
end;
end;
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer):pointer;assembler;nostackframe;
asm
asm
{ framebp = %o0 }
{ flush register windows, so they are stored in the stack }
ta 3
ld [%o0+60],%o0
{ add 8 to skip jmpl and delay slot }
add %o0,8,%o0
end;
end;
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
function get_caller_frame(framebp:pointer):pointer;assembler;nostackframe;
asm
asm
{ flush register windows, so they are stored in the stack }
ta 3
{ framebp = %o0 }
ld [%o0+56],%o0
end;
end;
{$define FPC_SYSTEM_HAS_SPTR}
function Sptr:Pointer;assembler;nostackframe;
asm
asm
mov %sp,%o0
end;
end;
{
$Log$
Revision 1.6 2004-05-27 23:34:37 peter
Revision 1.7 2004-05-30 20:03:05 florian
* ?
Revision 1.6 2004/05/27 23:34:37 peter
* backtrace support
Revision 1.5 2004/01/02 17:22:14 jonas