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

- removed unused doexceptlabel

Browse Source 
git-svn-id: trunk@35139 -
This commit is contained in:
Jonas Maebe 2016-12-16 22:38:07 +00:00
parent 5bd03651a9
commit d6ccd54da5
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgflw.pas
View File

@ -542,7 +542,7 @@ implementation
procedure tcgtryexceptnode.pass_generate_code; procedure tcgtryexceptnode.pass_generate_code;
var var
exceptlabel,doexceptlabel,oldendexceptlabel, exceptlabel,oldendexceptlabel,
lastonlabel, lastonlabel,
exitexceptlabel, exitexceptlabel,
continueexceptlabel, continueexceptlabel,
@ -595,7 +595,6 @@ implementation
end; end;
current_asmdata.getjumplabel(exceptlabel); current_asmdata.getjumplabel(exceptlabel);
current_asmdata.getjumplabel(doexceptlabel);
current_asmdata.getjumplabel(endexceptlabel); current_asmdata.getjumplabel(endexceptlabel);
current_asmdata.getjumplabel(lastonlabel); current_asmdata.getjumplabel(lastonlabel);
@ -624,8 +623,6 @@ implementation
free_exception(current_asmdata.CurrAsmList, excepttemps, 0, endexceptlabel, false); free_exception(current_asmdata.CurrAsmList, excepttemps, 0, endexceptlabel, false);
hlcg.a_label(current_asmdata.CurrAsmList,doexceptlabel);
{ end cleanup } { end cleanup }
current_asmdata.CurrAsmList.concat(tai_marker.create(mark_NoLineInfoEnd)); current_asmdata.CurrAsmList.concat(tai_marker.create(mark_NoLineInfoEnd));