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

* only initialize global regvars in unit and main program init code

Browse Source 
(bug in r35461)

git-svn-id: trunk@35462 -
This commit is contained in:
Jonas Maebe 2017-02-21 07:37:15 +00:00
parent cadf177a93
commit b86f2d7e3c
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/hlcgobj.pas
View File

@ -4535,13 +4535,11 @@ implementation
procedure thlcgobj.gen_initialize_code(list: TAsmList);
begin
{ initialize register variables }
{ initialize global register variables }
case current_procinfo.procdef.proctypeoption of
{ global regvars are only initialised in unitinitialize, and only
finalized in unitfinalize }
potype_unitfinalize: ;
else
TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
potype_unitinit,
potype_proginit:
TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
end;
{ initialises temp. ansi/wide string data }