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

* don't change the temp location of types which needs to be

Browse Source 
initialised/finalised, because the init/final generation code
    happens after pass 2 using plain nodes and therefore needs the
    original locations intact

git-svn-id: trunk@9626 -
This commit is contained in:
Jonas Maebe 2008-01-04 20:51:09 +00:00
parent 643455af2e
commit e3d82f1953
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgld.pas
View File

@ -135,13 +135,17 @@ implementation
begin
result := false;
{ only do for -O2 or higher (breaks debugging since }
{ variables move to different memory locations) }
{ only do for -O2 or higher (breaks debugging since }
{ variables move to different memory locations) }
if not(cs_opt_level2 in current_settings.optimizerswitches) or
{ must be a copy to a memory location ... }
(n.location.loc <> LOC_REFERENCE) or
{ not inside a control flow statement and no goto's in sight }
([fc_inflowcontrol,fc_gotolabel] * flowcontrol <> []) or
{ not for refcounted types, because those locations are }
{ still used later on in initialisation/finalisation code }
(not(is_class(n.resultdef)) and
n.resultdef.needs_inittable) or
{ source and destination are temps (= not global variables) }
not tg.istemp(n.location.reference) or
not tg.istemp(newref) or