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

Fix the handling of imports of the init and finalize functions now that the symbols are correctly registered

Browse Source 
ngenutil.pas, tnodeutils:
  * InsertInitFinalTable: the init and finalize functions are in the *local* symboltable not the global one
  * InsertInitFinalTable.add_initfinal_import: reenable the internal error

git-svn-id: trunk@33508 -
This commit is contained in:
svenbarth 2016-04-14 21:32:53 +00:00
parent e2b1f70ac6
commit 86478fa781
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ngenutil.pas
View File

@ -770,8 +770,8 @@ implementation
if foundinit and foundfini then if foundinit and foundfini then
break; break;
end; end;
{if not foundinit or not foundfini then if not foundinit or not foundfini then
internalerror(2016041401);} internalerror(2016041401);
end; end;
begin begin
@ -815,7 +815,7 @@ implementation
end end
else else
unitinits.emit_tai(Tai_const.Create_nil_codeptr,voidcodepointertype); unitinits.emit_tai(Tai_const.Create_nil_codeptr,voidcodepointertype);
add_initfinal_import(hp.u.globalsymtable); add_initfinal_import(hp.u.localsymtable);
inc(count); inc(count);
end; end;
hp:=tused_unit(hp.next); hp:=tused_unit(hp.next);