paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 23:07:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

ppudump: made it compile with -Sew by turning off unreachable code warning for Real80BitToStr() function

Browse Source 
git-svn-id: trunk@31010 -
This commit is contained in:
Károly Balogh 2015-06-07 23:59:24 +00:00
parent 5b38e8d98e
commit 0dafa78d27
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/utils/ppuutils/ppudump.pp
View File

@ -215,6 +215,10 @@ var
Routine to read 80-bit reals
****************************************************************************
}
{$PUSH}
{$WARN 6018 OFF} { Turn off unreachable code warning }
{ On platforms with sizeof(ext) <> 10 the code below will cause an unreachable
code warning, which will cause compilation failures with -Sew (KB) }
type
TSplit80bitReal = packed record
case byte of
@ -291,6 +295,7 @@ const
result:=temp;
end;
{$POP}
const has_errors : boolean = false;
has_warnings : boolean = false;