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

* fix stabs generation for implicit initfinal

Browse Source
This commit is contained in:
peter 2003-04-28 21:19:02 +00:00
parent 7c733ebcca
commit dfd469b7a3
1 changed files with 15 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/pmodules.pas
View File

@ -49,6 +49,15 @@ implementation
{$endif GDB} {$endif GDB}
scanner,pbase,pexpr,psystem,psub; scanner,pbase,pexpr,psystem,psub;
procedure fixseg(p:TAAsmoutput;sec:TSection);
begin
p.insert(Tai_section.Create(sec));
if (cs_create_smart in aktmoduleswitches) then
p.insert(Tai_cut.Create);
p.concat(Tai_section.Create(sec_none));
end;
procedure create_objectfile; procedure create_objectfile;
var var
DLLScanner : TDLLScanner; DLLScanner : TDLLScanner;
@ -130,15 +139,6 @@ implementation
procedure insertsegment; procedure insertsegment;
procedure fixseg(p:TAAsmoutput;sec:TSection);
begin
p.insert(Tai_section.Create(sec));
if (cs_create_smart in aktmoduleswitches) then
p.insert(Tai_cut.Create);
p.concat(Tai_section.Create(sec_none));
end;
begin begin
{ Insert Ident of the compiler } { Insert Ident of the compiler }
if (not (cs_create_smart in aktmoduleswitches)) if (not (cs_create_smart in aktmoduleswitches))
@ -734,8 +734,9 @@ implementation
symtablestack:=stt; symtablestack:=stt;
{ set procdef options } { set procdef options }
pd.proctypeoption:=potype; pd.proctypeoption:=potype;
pd.setmangledname(target_info.cprefix+name);
pd.forwarddef:=false; pd.forwarddef:=false;
pd.setmangledname(target_info.cprefix+name);
pd.aliasnames.insert(pd.mangledname);
{ We don't need is a local symtable. Change it into the static { We don't need is a local symtable. Change it into the static
symtable } symtable }
pd.localst.free; pd.localst.free;
@ -776,22 +777,17 @@ implementation
begin begin
{ update module flags } { update module flags }
current_module.flags:=current_module.flags or flag; current_module.flags:=current_module.flags or flag;
{ now we can insert a cut }
if (cs_create_smart in aktmoduleswitches) then
codeSegment.concat(Tai_cut.Create);
{ create procdef } { create procdef }
case flag of case flag of
uf_init : uf_init :
begin begin
pd:=create_main_proc(current_module.modulename^+'_init_implicit',potype_unitinit,st); pd:=create_main_proc(current_module.modulename^+'_init_implicit',potype_unitinit,st);
pd.aliasnames.insert('INIT$$'+current_module.modulename^); pd.aliasnames.insert('INIT$$'+current_module.modulename^);
pd.aliasnames.insert(target_info.cprefix+current_module.modulename^+'_init');
end; end;
uf_finalize : uf_finalize :
begin begin
pd:=create_main_proc(current_module.modulename^+'_finalize_implicit',potype_unitfinalize,st); pd:=create_main_proc(current_module.modulename^+'_finalize_implicit',potype_unitfinalize,st);
pd.aliasnames.insert('FINALIZE$$'+current_module.modulename^); pd.aliasnames.insert('FINALIZE$$'+current_module.modulename^);
pd.aliasnames.insert(target_info.cprefix+current_module.modulename^+'_finalize');
end; end;
else else
internalerror(200304253); internalerror(200304253);
@ -1045,7 +1041,6 @@ implementation
{ Compile the unit } { Compile the unit }
pd:=create_main_proc(current_module.modulename^+'_init',potype_unitinit,st); pd:=create_main_proc(current_module.modulename^+'_init',potype_unitinit,st);
pd.aliasnames.insert('INIT$$'+current_module.modulename^); pd.aliasnames.insert('INIT$$'+current_module.modulename^);
pd.aliasnames.insert(target_info.cprefix+current_module.modulename^+'_init');
compile_proc_body(pd,true,false); compile_proc_body(pd,true,false);
release_main_proc(pd); release_main_proc(pd);
@ -1070,7 +1065,6 @@ implementation
{ Compile the finalize } { Compile the finalize }
pd:=create_main_proc(current_module.modulename^+'_finalize',potype_unitfinalize,st); pd:=create_main_proc(current_module.modulename^+'_finalize',potype_unitfinalize,st);
pd.aliasnames.insert('FINALIZE$$'+current_module.modulename^); pd.aliasnames.insert('FINALIZE$$'+current_module.modulename^);
pd.aliasnames.insert(target_info.cprefix+current_module.modulename^+'_finalize');
compile_proc_body(pd,true,false); compile_proc_body(pd,true,false);
release_main_proc(pd); release_main_proc(pd);
end end
@ -1341,7 +1335,6 @@ implementation
if islibrary then if islibrary then
begin begin
pd:=create_main_proc(current_module.modulename^+'_main',potype_proginit,st); pd:=create_main_proc(current_module.modulename^+'_main',potype_proginit,st);
pd.aliasnames.insert(target_info.cprefix+current_module.modulename^+'_main');
{ Win32 startup code needs a single name } { Win32 startup code needs a single name }
// if (target_info.system in [system_i386_win32,system_i386_wdosx]) then // if (target_info.system in [system_i386_win32,system_i386_wdosx]) then
pd.aliasnames.insert('PASCALMAIN'); pd.aliasnames.insert('PASCALMAIN');
@ -1352,9 +1345,7 @@ implementation
else else
begin begin
pd:=create_main_proc('main',potype_proginit,st); pd:=create_main_proc('main',potype_proginit,st);
pd.aliasnames.insert('program_init');
pd.aliasnames.insert('PASCALMAIN'); pd.aliasnames.insert('PASCALMAIN');
pd.aliasnames.insert(target_info.cprefix+'main');
end; end;
{$IFDEF SPARC} {$IFDEF SPARC}
current_procinfo.After_Header; current_procinfo.After_Header;
@ -1400,7 +1391,6 @@ So, all parameters are passerd into registers in sparc architecture.}
{ Compile the finalize } { Compile the finalize }
pd:=create_main_proc(current_module.modulename^+'_finalize',potype_unitfinalize,st); pd:=create_main_proc(current_module.modulename^+'_finalize',potype_unitfinalize,st);
pd.aliasnames.insert('FINALIZE$$'+current_module.modulename^); pd.aliasnames.insert('FINALIZE$$'+current_module.modulename^);
pd.aliasnames.insert(target_info.cprefix+current_module.modulename^+'_finalize');
compile_proc_body(pd,true,false); compile_proc_body(pd,true,false);
release_main_proc(pd); release_main_proc(pd);
end; end;
@ -1493,7 +1483,10 @@ So, all parameters are passerd into registers in sparc architecture.}
end. end.
{ {
$Log$ $Log$
Revision 1.103 2003-04-27 11:21:34 peter Revision 1.104 2003-04-28 21:19:02 peter
* fix stabs generation for implicit initfinal
Revision 1.103 2003/04/27 11:21:34 peter
* aktprocdef renamed to current_procdef * aktprocdef renamed to current_procdef
* procinfo renamed to current_procinfo * procinfo renamed to current_procinfo
* procinfo will now be stored in current_module so it can be * procinfo will now be stored in current_module so it can be