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

Add dummy function result after HandleError call inside fpc_sqr_real and fpc_trunc_real compilerproc to suppress warning

Browse Source 
git-svn-id: trunk@31851 -
This commit is contained in:
pierre 2015-09-27 16:47:24 +00:00
parent 4c8cea1d1a
commit 57bff01715
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/jvm/math.inc
View File

@ -63,6 +63,8 @@ function fpc_sin_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inl
function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif} function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;{$ifdef MATHINLINE}inline;{$endif}
begin begin
HandleError(219); HandleError(219);
{ avoid warning }
result:=0;
end; end;
@ -77,6 +79,8 @@ function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;
function fpc_trunc_real(d : ValReal) : int64;compilerproc; function fpc_trunc_real(d : ValReal) : int64;compilerproc;
begin begin
HandleError(219); HandleError(219);
{ avoid warning }
result:=0;
end; end;