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

- disabled temp-to-temp copy optimization, because it can cause errors

Browse Source 
now that the local variables are temps as well (it can cause local
    variables to be "freed" in the middle of a procedure)
This commit is contained in:
Jonas Maebe 2004-07-15 20:47:53 +00:00
parent c7fbf7b11b
commit c40e9f31ed
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgld.pas
View File

@ -489,7 +489,7 @@ implementation
releaseright:=true; releaseright:=true;
{ optimize temp to temp copies } { optimize temp to temp copies }
if (left.nodetype = temprefn) and (* if (left.nodetype = temprefn) and
{ we may store certain temps in registers in the future, then this } { we may store certain temps in registers in the future, then this }
{ optimization will have to be adapted } { optimization will have to be adapted }
(left.location.loc = LOC_REFERENCE) and (left.location.loc = LOC_REFERENCE) and
@ -504,7 +504,7 @@ implementation
tcgtemprefnode(left).changelocation(right.location.reference); tcgtemprefnode(left).changelocation(right.location.reference);
end end
{ shortstring assignments are handled separately } { shortstring assignments are handled separately }
else if is_shortstring(left.resulttype.def) then else *) if is_shortstring(left.resulttype.def) then
begin begin
{ {
we can get here only in the following situations we can get here only in the following situations
@ -959,7 +959,12 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.120 2004-07-03 10:26:35 peter Revision 1.121 2004-07-15 20:47:53 jonas
- disabled temp-to-temp copy optimization, because it can cause errors
now that the local variables are temps as well (it can cause local
variables to be "freed" in the middle of a procedure)
Revision 1.120 2004/07/03 10:26:35 peter
* always pass right before left when type needs refcnt * always pass right before left when type needs refcnt
Revision 1.119 2004/06/29 20:57:03 peter Revision 1.119 2004/06/29 20:57:03 peter