paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 00:29:24 +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); procedure thlcgobj.gen_initialize_code(list: TAsmList);
begin begin
{ initialize register variables } { initialize global register variables }
case current_procinfo.procdef.proctypeoption of case current_procinfo.procdef.proctypeoption of
{ global regvars are only initialised in unitinitialize, and only potype_unitinit,
finalized in unitfinalize } potype_proginit:
potype_unitfinalize: ; TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
else
TSymtable(current_module.localsymtable).SymList.ForEachCall(@initialize_regvars,list);
end; end;
{ initialises temp. ansi/wide string data } { initialises temp. ansi/wide string data }