paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 15:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* avoid mistakes with unimplemented sqr function on architectures with no softfloat support

Browse Source 
git-svn-id: trunk@19218 -
This commit is contained in:
florian 2011-09-24 21:17:09 +00:00
parent ecaa86d582
commit cb647d875c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ninl.pas
View File

@ -3182,6 +3182,11 @@ implementation
function tinlinenode.first_sqr_real : tnode;
begin
{$ifndef cpufpemu}
{ this procedure might be only used for cpus definining cpufpemu else
the optimizer might go into an endless loop when doing x*x -> changes }
internalerror(2011092401);
{$endif cpufpemu}
{ create the call to the helper }
{ on entry left node contains the parameter }
first_sqr_real := ctypeconvnode.create(ccallnode.createintern('fpc_sqr_real',