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

* only create PASCALFINALIZE for programs and libraries

Browse Source 
git-svn-id: trunk@8176 -
This commit is contained in:
Jonas Maebe 2007-07-28 10:47:31 +00:00
parent 727b68c9b0
commit 4b62d5e43d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pmodules.pas
View File

@ -774,7 +774,8 @@ implementation
begin begin
result:=create_main_proc(make_mangledname('',current_module.localsymtable,'finalize_implicit'),potype_unitfinalize,st); result:=create_main_proc(make_mangledname('',current_module.localsymtable,'finalize_implicit'),potype_unitfinalize,st);
result.procdef.aliasnames.insert(make_mangledname('FINALIZE$',current_module.localsymtable,'')); result.procdef.aliasnames.insert(make_mangledname('FINALIZE$',current_module.localsymtable,''));
result.procdef.aliasnames.insert('PASCALFINALIZE'); if (not current_module.is_unit) then
result.procdef.aliasnames.insert('PASCALFINALIZE');
end; end;
else else
internalerror(200304253); internalerror(200304253);