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

* removed the dummy fpc_sin_real and fpc_cos_real that halt with a runtime error

Browse Source 
from the i8086 rtl, because the FSIN and FCOS instructions are 387+ and on
  earlier FPUs the real helper functions are needed.

git-svn-id: trunk@25535 -
This commit is contained in:
nickysn 2013-09-22 15:06:45 +00:00
parent ce123b6956
commit 4fc4e4cb88
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/i8086/math.inc
View File

@ -89,20 +89,6 @@
runerror(207);
result:=0;
end;
{$define FPC_SYSTEM_HAS_SIN}
function fpc_sin_real(d : ValReal) : ValReal;compilerproc;
begin
{ Function is handled internal in the compiler }
runerror(207);
result:=0;
end;
{$define FPC_SYSTEM_HAS_COS}
function fpc_cos_real(d : ValReal) : ValReal;compilerproc;
begin
{ Function is handled internal in the compiler }
runerror(207);
result:=0;
end;
{$define FPC_SYSTEM_HAS_EXP}
function fpc_exp_real(d : ValReal) : ValReal;assembler;compilerproc;