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

Avoid uninitialized variable warning with -O4 option

Browse Source 
git-svn-id: trunk@47384 -
This commit is contained in:
pierre 2020-11-10 23:52:51 +00:00
parent d2247f6539
commit eb67d87dec
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/systems/t_msdos.pas
View File

@ -117,12 +117,12 @@ implementation
exit; exit;
if tcalo_vectorized_dead_strip_start in options then if tcalo_vectorized_dead_strip_start in options then
secname:='1_START' secname:='1_START'
else if tcalo_vectorized_dead_strip_item in options then
secname:='2_ITEM'
else if tcalo_vectorized_dead_strip_end in options then
secname:='3_END'
else else
if tcalo_vectorized_dead_strip_end in options then secname:='4_INV';
secname:='3_END'
else
if tcalo_vectorized_dead_strip_item in options then
secname:='2_ITEM';
secname:=make_mangledname(basename,st,secname); secname:=make_mangledname(basename,st,secname);
end; end;