paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 12:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Removed unused local vars.

Browse Source 
git-svn-id: trunk@12840 -
This commit is contained in:
yury 2009-03-01 11:44:15 +00:00
parent 08b551b504
commit b3b538e215
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/cutils.pas
View File

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

4
compiler/psub.pas
View File

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