Sfoglia il codice sorgente

* Removed unused local vars.

git-svn-id: trunk@12840 -
yury 16 anni fa
parent
commit
b3b538e215
2 ha cambiato i file con 2 aggiunte e 3 eliminazioni
  1. 0 1
      compiler/cutils.pas
  2. 2 2
      compiler/psub.pas

+ 0 - 1
compiler/cutils.pas

@@ -208,7 +208,6 @@ implementation
 
 
     function newalignment(oldalignment: longint; offset: int64): longint;
     function newalignment(oldalignment: longint; offset: int64): longint;
       var
       var
-        i,
         localoffset: longint;
         localoffset: longint;
       begin
       begin
         localoffset:=longint(offset);
         localoffset:=longint(offset);

+ 2 - 2
compiler/psub.pas

@@ -696,7 +696,7 @@ implementation
         headertai : tai;
         headertai : tai;
         i : integer;
         i : integer;
         varsym : tabstractnormalvarsym;
         varsym : tabstractnormalvarsym;
-        RedoDFA : boolean;
+        {RedoDFA : boolean;}
       begin
       begin
         { the initialization procedure can be empty, then we
         { the initialization procedure can be empty, then we
           don't need to generate anything. When it was an empty
           don't need to generate anything. When it was an empty
@@ -807,7 +807,7 @@ implementation
             for loops with more than one entry }
             for loops with more than one entry }
           and not(pi_has_goto in current_procinfo.flags) then
           and not(pi_has_goto in current_procinfo.flags) then
           begin
           begin
-            RedoDFA:=OptimizeInductionVariables(code);
+            {RedoDFA:=}OptimizeInductionVariables(code);
           end;
           end;
 
 
         if cs_opt_nodecse in current_settings.optimizerswitches then
         if cs_opt_nodecse in current_settings.optimizerswitches then