paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 11:37:16 +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;
{$define STORENUMBER}
{ define TEST_IMPL does not work well }
{ replaced by $define Double_checksum}
{ 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
begin
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
unitinits.concat(new(pai_const,init_32bit(0)));
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
unitinits.concat(new(pai_const,init_32bit(0)));
inc(count);
@ -329,12 +333,14 @@ unit pmodules;
{ ok, now load the unit }
current_module^.globalsymtable:=new(punitsymtable,loadasunit);
{ if this is the system unit insert the intern symbols }
{$ifndef STORENUMBER}
if compile_system then
begin
make_ref:=false;
insertinternsyms(psymtable(current_module^.globalsymtable));
make_ref:=true;
end;
{$endif}
{ now only read the implementation part }
current_module^.in_implementation:=true;
{ load the used units from implementation }
@ -1225,9 +1231,7 @@ unit pmodules;
st : psymtable;
names : Tstringcontainer;
begin
{* Changes made by Ozerski 23.10.1998}
DLLsource:=islibrary;
{* End changes}
parse_only:=false;
if islibrary then
begin
@ -1382,7 +1386,10 @@ unit pmodules;
end.
{
$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
Revision 1.108 1999/04/14 09:14:52 peter