mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-05 03:09:34 +01:00
- 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:
parent
e3c50b2399
commit
820302b098
@ -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
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user