Ver Fonte

* Removed unused vars.

git-svn-id: trunk@36073 -
yury há 8 anos atrás
pai
commit
95094e9a8f
2 ficheiros alterados com 0 adições e 2 exclusões
  1. 0 1
      compiler/arm/narmset.pas
  2. 0 1
      compiler/ncgset.pas

+ 0 - 1
compiler/arm/narmset.pas

@@ -399,7 +399,6 @@ implementation
       procedure tarmcasenode.genjmptreeentry(p : pcaselabel;parentvalue : TConstExprInt);
         var
           lesslabel,greaterlabel : tasmlabel;
-          less,greater : pcaselabel;
           cond_gt: TResFlags;
           cmplow : Boolean;
         begin

+ 0 - 1
compiler/ncgset.pas

@@ -904,7 +904,6 @@ implementation
       procedure tcgcasenode.genjmptreeentry(p : pcaselabel;parentvalue : TConstExprInt);
         var
           lesslabel,greaterlabel : tasmlabel;
-          less,greater : pcaselabel;
         begin
           current_asmdata.CurrAsmList.concat(cai_align.Create(current_settings.alignment.jumpalign));
           cg.a_label(current_asmdata.CurrAsmList,p^.labellabel);