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

inline: implemented the second pass stub calls for inl_int_real nodes

Browse Source 
git-svn-id: trunk@34992 -
This commit is contained in:
Károly Balogh 2016-11-27 17:48:36 +00:00
parent c4e954c9a5
commit c3e68d6b2d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncginl.pas
View File

@ -52,6 +52,7 @@ interface
procedure second_prefetch; virtual; procedure second_prefetch; virtual;
procedure second_round_real; virtual; procedure second_round_real; virtual;
procedure second_trunc_real; virtual; procedure second_trunc_real; virtual;
procedure second_int_real; virtual;
procedure second_abs_long; virtual; procedure second_abs_long; virtual;
procedure second_rox_sar; virtual; procedure second_rox_sar; virtual;
procedure second_bsfbsr; virtual; procedure second_bsfbsr; virtual;
@ -121,6 +122,8 @@ implementation
second_round_real; second_round_real;
in_trunc_real: in_trunc_real:
second_trunc_real; second_trunc_real;
in_int_real:
second_int_real;
in_sqr_real: in_sqr_real:
second_sqr_real; second_sqr_real;
in_sqrt_real: in_sqrt_real:
@ -485,6 +488,11 @@ implementation
internalerror(20020718); internalerror(20020718);
end; end;
procedure tcginlinenode.second_int_real;
begin
internalerror(2016112702);
end;
procedure tcginlinenode.second_sqr_real; procedure tcginlinenode.second_sqr_real;
begin begin
internalerror(20020718); internalerror(20020718);