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

* fixed remaining compilation problems

Browse Source
This commit is contained in:
Jonas Maebe 2004-11-21 16:14:59 +00:00
parent 90b931e7d2
commit b6a6e78db1
5 changed files with 27 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/cgenmath.inc
View File

@ -85,10 +85,10 @@
{$ifdef INTERNCONSTINTF}
function fpc_sqrt_real(d:Real):Real;compilerproc; {$ifdef MATHINLINE}inline;{$endif}
{$else}
function sqrt(d:Real):Real;[internproc:fpc_in_const_sqrt];[public, alias: 'FPC_SQRT_REAL']; {$ifdef MATHINLINE}inline;{$endif}
{$ifdef hascompilerproc}
function fpc_sqrt_real(d:Real):Real;compilerproc; external name 'FPC_SQRT_REAL';
function fpc_sqrt_real(d:Real):Real;compilerproc; external name 'FPC_SQRT_REAL';
{$endif hascompilerproc}
function sqrt(d:Real):Real;[internconst:fpc_in_const_sqrt];[public, alias: 'FPC_SQRT_REAL']; {$ifdef MATHINLINE}inline;{$endif}
{$endif}
begin
result := c_sqrt(d);
@ -190,7 +190,7 @@ Not supported on Mac OS X 10.1
function c_atan(d: double): double; cdecl; external 'c' name 'atan';
{$ifdef INTERNCONSTINTF}
function fpc_ArcTan_real(d:Real):Real;compiler; {$ifdef MATHINLINE}inline;{$endif}
function fpc_ArcTan_real(d:Real):Real;compilerproc; {$ifdef MATHINLINE}inline;{$endif}
{$else}
function ArcTan(d:Real):Real;[internconst:fpc_in_const_arctan];{$ifdef MATHINLINE}inline;{$endif}
{$endif}
@ -203,7 +203,10 @@ Not supported on Mac OS X 10.1
{
$Log$
Revision 1.4 2004-11-21 15:35:23 peter
Revision 1.5 2004-11-21 16:14:59 jonas
* fixed remaining compilation problems
Revision 1.4 2004/11/21 15:35:23 peter
* float routines all use internproc and compilerproc helpers
Revision 1.3 2004/11/20 15:49:21 jonas

16
rtl/inc/cgenstr.inc
View File

@ -17,17 +17,6 @@
{ as cdecl and external in libc cause problems because the calling }
{ convention the interface is different }
{$ifndef FPC_UNIT_HAS_STRLEN}
{$define FPC_UNIT_HAS_STRLEN}
function libc_strlen(const p: pchar): cardinal; cdecl; external 'c' name 'strlen';
function strlen(P : pchar) : longint;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
strlen := libc_strlen(p);
end;
{$endif FPC_UNIT_HAS_STRLEN}
{$ifndef FPC_UNIT_HAS_STREND}
{$define FPC_UNIT_HAS_STREND}
@ -142,7 +131,10 @@
{
$Log$
Revision 1.3 2004-08-24 11:49:56 jonas
Revision 1.4 2004-11-21 16:14:59 jonas
* fixed remaining compilation problems
Revision 1.3 2004/08/24 11:49:56 jonas
* made strlen wrapper inline
Revision 1.2 2004/05/01 23:55:18 peter

7
rtl/inc/compproc.inc
View File

@ -253,6 +253,8 @@ function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;
function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
function fpc_round_real(d : ValReal) : int64;compilerproc;
function fpc_trunc_real(d : ValReal) : int64;compilerproc;
{$else INTERNCONSTINTF}
function fpc_round(d : ValReal) : int64;compilerproc;
{$endif INTERNCONSTINTF}
function fpc_do_is(aclass : tclass;aobject : tobject) : boolean; compilerproc;
@ -346,7 +348,10 @@ function fpc_qword_to_double(q: qword): double; compilerproc;
{
$Log$
Revision 1.60 2004-11-21 15:35:23 peter
Revision 1.61 2004-11-21 16:14:59 jonas
* fixed remaining compilation problems
Revision 1.60 2004/11/21 15:35:23 peter
* float routines all use internproc and compilerproc helpers
Revision 1.59 2004/11/09 23:10:22 peter

6
rtl/inc/system.inc
View File

@ -85,7 +85,6 @@ Procedure Rewrite(var f : TypedFile); [INTERNPROC: fpc_in_Rewrite_TypedFile];
{ prefer libc implementations over our own, as they're most likely faster }
{$i cgeneric.inc}
{ is now declared as external reference to another routine in the interface }
{$define FPC_UNIT_HAS_STRLEN}
{$i cgenstr.inc}
{$endif FPC_USE_LIBC}
@ -1000,7 +999,10 @@ end;
{
$Log$
Revision 1.69 2004-11-20 15:49:21 jonas
Revision 1.70 2004-11-21 16:14:59 jonas
* fixed remaining compilation problems
Revision 1.69 2004/11/20 15:49:21 jonas
* some compilation fixes for powerpc after all the internconst and
internproc changes, still crashes with internalerror(88) for ppc1
on real2str.inc(193,39)

9
rtl/powerpc/math.inc
View File

@ -56,10 +56,10 @@ const
function pi : double;[internproc:fpc_in_pi];
{$define FPC_SYSTEM_HAS_ABS}
function abs(d : extended) : extended;[internproc:fpc_in_abs_extended];
function abs(d : extended) : extended;[internproc:fpc_in_abs_real];
{$define FPC_SYSTEM_HAS_SQR}
function sqr(d : extended) : extended;[internproc:fpc_in_sqr_extended];
function sqr(d : extended) : extended;[internproc:fpc_in_sqr_real];
{$endif ndef INTERNCONSTINTF}
const
@ -349,7 +349,10 @@ end;
{
$Log$
Revision 1.37 2004-11-21 15:35:23 peter
Revision 1.38 2004-11-21 16:14:59 jonas
* fixed remaining compilation problems
Revision 1.37 2004/11/21 15:35:23 peter
* float routines all use internproc and compilerproc helpers
Revision 1.36 2004/11/20 15:49:21 jonas