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

* guard case statement by internalerror to avoid a warning

Browse Source 
git-svn-id: trunk@36716 -
This commit is contained in:
florian 2017-07-09 21:33:22 +00:00
parent 19b60c0cf3
commit dd3d62425c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/sparcgen/cgsparc.pas
View File

@ -892,6 +892,8 @@ implementation
ai:=Taicpu.op_sym(A_FBxx,l);
NR_FCC1,NR_FCC2,NR_FCC3:
ai:=Taicpu.op_reg_sym(A_FBxx,f.FlagReg,l);
else
Internalerror(2017070901);
end;
ai.SetCondition(flags_to_cond(f));
list.Concat(ai);