- disabled "result := value; exit;" -> exit(value) optimization because

a) it was wrong
    b) exit(value) works now exactly the same as that
   (it was only activated with -Or)
This commit is contained in:
Jonas Maebe 2003-05-30 21:01:44 +00:00
parent e3c50b2399
commit 820302b098

View File

@ -376,6 +376,7 @@ implementation
hp:=tstatementnode(left); hp:=tstatementnode(left);
while assigned(hp) do while assigned(hp) do
begin begin
(*
if cs_regalloc in aktglobalswitches then if cs_regalloc in aktglobalswitches then
begin begin
{ node transformations } { node transformations }
@ -422,6 +423,7 @@ implementation
aktfilepos:=hp.left.fileinfo; aktfilepos:=hp.left.fileinfo;
end; end;
end; end;
*)
if assigned(hp.left) then if assigned(hp.left) then
begin begin
codegenerror:=false; codegenerror:=false;
@ -800,7 +802,13 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.52 2003-05-23 14:27:35 peter Revision 1.53 2003-05-30 21:01:44 jonas
- disabled "result := value; exit;" -> exit(value) optimization because
a) it was wrong
b) exit(value) works now exactly the same as that
(it was only activated with -Or)
Revision 1.52 2003/05/23 14:27:35 peter
* remove some unit dependencies * remove some unit dependencies
* current_procinfo changes to store more info * current_procinfo changes to store more info