paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 10:58:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

* concat_external added for new init/final

Browse Source
This commit is contained in:
peter 1999-04-17 13:14:52 +00:00
parent 73fe4aa80e
commit eb1f69c818
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/pmodules.pas
View File

@ -22,8 +22,6 @@
} }
unit pmodules; unit pmodules;
{$define STORENUMBER}
{ define TEST_IMPL does not work well } { define TEST_IMPL does not work well }
{ replaced by $define Double_checksum} { replaced by $define Double_checksum}
{ other way to get correct type info, in test (PM) } { other way to get correct type info, in test (PM) }
@ -153,11 +151,17 @@ unit pmodules;
if (hp^.u^.flags and (uf_init or uf_finalize))<>0 then if (hp^.u^.flags and (uf_init or uf_finalize))<>0 then
begin begin
if (hp^.u^.flags and uf_init)<>0 then if (hp^.u^.flags and uf_init)<>0 then
unitinits.concat(new(pai_const_symbol,init('INIT$$'+hp^.u^.modulename^))) begin
unitinits.concat(new(pai_const_symbol,init('INIT$$'+hp^.u^.modulename^)));
concat_external('INIT$$'+hp^.u^.modulename^,EXT_NEAR);
end
else else
unitinits.concat(new(pai_const,init_32bit(0))); unitinits.concat(new(pai_const,init_32bit(0)));
if (hp^.u^.flags and uf_finalize)<>0 then if (hp^.u^.flags and uf_finalize)<>0 then
unitinits.concat(new(pai_const_symbol,init('FINALIZE$$'+hp^.u^.modulename^))) begin
unitinits.concat(new(pai_const_symbol,init('FINALIZE$$'+hp^.u^.modulename^)));
concat_external('FINALIZE$$'+hp^.u^.modulename^,EXT_NEAR);
end
else else
unitinits.concat(new(pai_const,init_32bit(0))); unitinits.concat(new(pai_const,init_32bit(0)));
inc(count); inc(count);
@ -329,12 +333,14 @@ unit pmodules;
{ ok, now load the unit } { ok, now load the unit }
current_module^.globalsymtable:=new(punitsymtable,loadasunit); current_module^.globalsymtable:=new(punitsymtable,loadasunit);
{ if this is the system unit insert the intern symbols } { if this is the system unit insert the intern symbols }
{$ifndef STORENUMBER}
if compile_system then if compile_system then
begin begin
make_ref:=false; make_ref:=false;
insertinternsyms(psymtable(current_module^.globalsymtable)); insertinternsyms(psymtable(current_module^.globalsymtable));
make_ref:=true; make_ref:=true;
end; end;
{$endif}
{ now only read the implementation part } { now only read the implementation part }
current_module^.in_implementation:=true; current_module^.in_implementation:=true;
{ load the used units from implementation } { load the used units from implementation }
@ -1225,9 +1231,7 @@ unit pmodules;
st : psymtable; st : psymtable;
names : Tstringcontainer; names : Tstringcontainer;
begin begin
{* Changes made by Ozerski 23.10.1998}
DLLsource:=islibrary; DLLsource:=islibrary;
{* End changes}
parse_only:=false; parse_only:=false;
if islibrary then if islibrary then
begin begin
@ -1382,7 +1386,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.109 1999-04-15 12:19:59 peter Revision 1.110 1999-04-17 13:14:52 peter
* concat_external added for new init/final
Revision 1.109 1999/04/15 12:19:59 peter
+ finalization support + finalization support
Revision 1.108 1999/04/14 09:14:52 peter Revision 1.108 1999/04/14 09:14:52 peter