Forráskód Böngészése

* Removed unused vars.

git-svn-id: trunk@36073 -
yury 8 éve
szülő
commit
95094e9a8f
2 módosított fájl, 0 hozzáadás és 2 törlés
  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);