paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improved code generation by reducing the usage of unneeded temps due to incorrect

Browse Source 
node processing, patch by Sergei Gorelkin

git-svn-id: trunk@13756 -
This commit is contained in:
florian 2009-09-22 19:24:25 +00:00
parent 12fcb19bf4
commit 39c1c4c199
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/pass_1.pas
View File

@ -83,10 +83,10 @@ implementation
begin
node_changed:=true;
p.free;
{ run typecheckpass }
typecheckpass(hp);
{ switch to new node }
p:=hp;
{ run typecheckpass }
typecheckpass(p);
end;
current_settings.localswitches:=oldlocalswitches;
current_filepos:=oldpos;
@ -164,10 +164,10 @@ implementation
if assigned(hp) then
begin
p.free;
{ run typecheckpass }
typecheckpass(hp);
{ switch to new node }
p:=hp;
{ run typecheckpass }
typecheckpass(p);
end;
if codegenerror then
begin
@ -186,10 +186,10 @@ implementation
if assigned(hp) then
begin
p.free;
{ run firstpass }
firstpass(hp);
{ switch to new node }
p:=hp;
p := hp;
{ run firstpass }
firstpass(p);
end
else
begin
@ -199,8 +199,8 @@ implementation
if assigned(hp) then
begin
p.free;
firstpass(hp);
p:=hp;
p := hp;
firstpass(p);
end;
end;
if codegenerror then