paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 22:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix bootstrapping

Browse Source
This commit is contained in:
peter 2004-11-21 19:11:33 +00:00
parent a29eab36c7
commit 7d404ad72d
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/sparc/math.inc
View File

@ -44,19 +44,22 @@
{$else} {$else}
{$define FPC_SYSTEM_HAS_ABS} {$define FPC_SYSTEM_HAS_ABS}
function abs(d : extended) : extended;[internproc:in_abs_extended]; function abs(d : extended) : extended;[internproc:fpc_in_abs_real];
{$define FPC_SYSTEM_HAS_SQR} {$define FPC_SYSTEM_HAS_SQR}
function sqr(d : extended) : extended;[internproc:in_sqr_extended]; function sqr(d : extended) : extended;[internproc:fpc_in_sqr_real];
{$define FPC_SYSTEM_HAS_SQRT} {$define FPC_SYSTEM_HAS_SQRT}
function sqrt(d : extended) : extended;[internproc:in_sqrt_extended]; function sqrt(d : extended) : extended;[internproc:fpc_in_sqrt_real];
{$endif} {$endif}
{ {
$Log$ $Log$
Revision 1.11 2004-11-21 15:35:23 peter Revision 1.12 2004-11-21 19:11:33 peter
* fix bootstrapping
Revision 1.11 2004/11/21 15:35:23 peter
* float routines all use internproc and compilerproc helpers * float routines all use internproc and compilerproc helpers
Revision 1.10 2004/10/03 12:41:30 florian Revision 1.10 2004/10/03 12:41:30 florian

7
rtl/sparc/sparc.inc
View File

@ -286,7 +286,7 @@ procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];
****************************************************************************} ****************************************************************************}
{$define FPC_SYSTEM_HAS_ABS_LONGINT} {$define FPC_SYSTEM_HAS_ABS_LONGINT}
function abs(l:longint):longint; assembler;{$ifdef SYSTEMINLINE}inline;{$endif}nostackframe;{$ifndef INTERNCONSTINTF}[internconst:in_const_abs];{$endif} function abs(l:longint):longint; assembler;{$ifdef SYSTEMINLINE}inline;{$endif}nostackframe;{$ifndef INTERNCONSTINTF}[internconst:fpc_in_const_abs];{$endif}
asm asm
sra %o0,31,%g1 sra %o0,31,%g1
add %o0,%g1,%o0 add %o0,%g1,%o0
@ -352,7 +352,10 @@ end;
{ {
$Log$ $Log$
Revision 1.15 2004-11-21 15:35:23 peter Revision 1.16 2004-11-21 19:11:33 peter
* fix bootstrapping
Revision 1.15 2004/11/21 15:35:23 peter
* float routines all use internproc and compilerproc helpers * float routines all use internproc and compilerproc helpers
Revision 1.14 2004/11/03 20:53:58 florian Revision 1.14 2004/11/03 20:53:58 florian