mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 04:39:22 +02:00
* Removed unused vars.
git-svn-id: trunk@36073 -
This commit is contained in:
parent
50fea20003
commit
95094e9a8f
@ -399,7 +399,6 @@ implementation
|
|||||||
procedure tarmcasenode.genjmptreeentry(p : pcaselabel;parentvalue : TConstExprInt);
|
procedure tarmcasenode.genjmptreeentry(p : pcaselabel;parentvalue : TConstExprInt);
|
||||||
var
|
var
|
||||||
lesslabel,greaterlabel : tasmlabel;
|
lesslabel,greaterlabel : tasmlabel;
|
||||||
less,greater : pcaselabel;
|
|
||||||
cond_gt: TResFlags;
|
cond_gt: TResFlags;
|
||||||
cmplow : Boolean;
|
cmplow : Boolean;
|
||||||
begin
|
begin
|
||||||
|
@ -904,7 +904,6 @@ implementation
|
|||||||
procedure tcgcasenode.genjmptreeentry(p : pcaselabel;parentvalue : TConstExprInt);
|
procedure tcgcasenode.genjmptreeentry(p : pcaselabel;parentvalue : TConstExprInt);
|
||||||
var
|
var
|
||||||
lesslabel,greaterlabel : tasmlabel;
|
lesslabel,greaterlabel : tasmlabel;
|
||||||
less,greater : pcaselabel;
|
|
||||||
begin
|
begin
|
||||||
current_asmdata.CurrAsmList.concat(cai_align.Create(current_settings.alignment.jumpalign));
|
current_asmdata.CurrAsmList.concat(cai_align.Create(current_settings.alignment.jumpalign));
|
||||||
cg.a_label(current_asmdata.CurrAsmList,p^.labellabel);
|
cg.a_label(current_asmdata.CurrAsmList,p^.labellabel);
|
||||||
|
Loading…
Reference in New Issue
Block a user