mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-13 10:09:51 +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);
|
||||
while assigned(hp) do
|
||||
begin
|
||||
(*
|
||||
if cs_regalloc in aktglobalswitches then
|
||||
begin
|
||||
{ node transformations }
|
||||
@ -422,6 +423,7 @@ implementation
|
||||
aktfilepos:=hp.left.fileinfo;
|
||||
end;
|
||||
end;
|
||||
*)
|
||||
if assigned(hp.left) then
|
||||
begin
|
||||
codegenerror:=false;
|
||||
@ -800,7 +802,13 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
* current_procinfo changes to store more info
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user