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

* fixed result type conversion for sqrt/sqr

Browse Source 
git-svn-id: trunk@1425 -
This commit is contained in:
florian 2005-10-16 16:39:00 +00:00
parent f587986a69
commit 8af13ed6ae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ninl.pas
View File

@ -2438,8 +2438,8 @@ implementation
begin
{ create the call to the helper }
{ on entry left node contains the parameter }
first_sqr_real := ccallnode.createintern('fpc_sqr_real',
ccallparanode.create(left,nil));
first_sqr_real := ctypeconvnode.create_internal(ccallnode.createintern('fpc_sqr_real',
ccallparanode.create(left,nil)),resulttype);
left := nil;
end;
@ -2447,8 +2447,8 @@ implementation
begin
{ create the call to the helper }
{ on entry left node contains the parameter }
first_sqrt_real := ccallnode.createintern('fpc_sqrt_real',
ccallparanode.create(left,nil));
first_sqrt_real := ctypeconvnode.create_internal(ccallnode.createintern('fpc_sqrt_real',
ccallparanode.create(left,nil)),resulttype);
left := nil;
end;