|
@@ -37,6 +37,7 @@
|
|
|
runerror(207);
|
|
|
result:=0;
|
|
|
end;
|
|
|
+ { atn isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_ARCTAN}
|
|
|
function fpc_arctan_real(d : extended) : extended;compilerproc;
|
|
|
begin
|
|
@@ -44,6 +45,7 @@
|
|
|
runerror(207);
|
|
|
result:=0;
|
|
|
end;
|
|
|
+ }
|
|
|
{ lgn isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_LN}
|
|
|
function fpc_ln_real(d : extended) : extended;compilerproc;
|
|
@@ -53,6 +55,7 @@
|
|
|
result:=0;
|
|
|
end;
|
|
|
}
|
|
|
+ { sind isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_SIN}
|
|
|
function fpc_sin_real(d : extended) : extended;compilerproc;
|
|
|
begin
|
|
@@ -60,6 +63,8 @@
|
|
|
runerror(207);
|
|
|
result:=0;
|
|
|
end;
|
|
|
+ }
|
|
|
+ { cos isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_COS}
|
|
|
function fpc_cos_real(d : extended) : extended;compilerproc;
|
|
|
begin
|
|
@@ -67,6 +72,7 @@
|
|
|
runerror(207);
|
|
|
result:=0;
|
|
|
end;
|
|
|
+ }
|
|
|
{$else INTERNCONSTINTF}
|
|
|
{$define FPC_SYSTEM_HAS_ABS}
|
|
|
function abs(d : extended) : extended;[internproc:in_abs_extended];
|
|
@@ -74,20 +80,29 @@
|
|
|
function sqr(d : extended) : extended;[internproc:in_sqr_extended];
|
|
|
{$define FPC_SYSTEM_HAS_SQRT}
|
|
|
function sqrt(d : extended) : extended;[internproc:in_sqrt_extended];
|
|
|
+ { atn isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_ARCTAN}
|
|
|
function arctan(d : extended) : extended;[internproc:in_arctan_extended];
|
|
|
+ }
|
|
|
{ lgn isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_LN}
|
|
|
function ln(d : extended) : extended;[internproc:in_ln_extended];
|
|
|
}
|
|
|
+ { sind isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_SIN}
|
|
|
function sin(d : extended) : extended;[internproc:in_sin_extended];
|
|
|
+ }
|
|
|
+ { cos isn't supported by the linux fpe it seems
|
|
|
{$define FPC_SYSTEM_HAS_COS}
|
|
|
function cos(d : extended) : extended;[internproc:in_cos_extended];
|
|
|
+ }
|
|
|
{$endif INTERNCONSTINTF}
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.5 2005-01-01 18:34:24 florian
|
|
|
+ Revision 1.6 2005-01-06 13:02:03 florian
|
|
|
+ * arctan, sin and cos are done in software on the arm
|
|
|
+
|
|
|
+ Revision 1.5 2005/01/01 18:34:24 florian
|
|
|
* fixed building
|
|
|
|
|
|
Revision 1.4 2004/03/16 22:02:26 florian
|