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

* debuginfo fixes

Browse Source
This commit is contained in:
peter 2004-10-04 18:26:51 +00:00
parent ddb502540a
commit ef7ae0eab1
2 changed files with 25 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/assemble.pas
View File

@ -783,8 +783,8 @@ Implementation
end; end;
end; end;
end; end;
{ External .bss (AB_COMMON) need a symbol relocation } { External references (AB_EXTERNAL and AB_COMMON) need a symbol relocation }
if assigned(ps) and (ps.currbind=AB_COMMON) then if assigned(ps) and (ps.currbind in [AB_EXTERNAL,AB_COMMON]) then
begin begin
if currpass=2 then if currpass=2 then
begin begin
@ -1629,7 +1629,10 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.75 2004-10-04 15:48:11 peter Revision 1.76 2004-10-04 18:26:51 peter
* debuginfo fixes
Revision 1.75 2004/10/04 15:48:11 peter
* AB_COMMON symbols need special relocation in stabs * AB_COMMON symbols need special relocation in stabs
Revision 1.74 2004/08/27 20:53:52 peter Revision 1.74 2004/08/27 20:53:52 peter

20
compiler/pmodules.pas
View File

@ -668,6 +668,7 @@ implementation
{ first write all global/local symbols to a temp list. This will flag { first write all global/local symbols to a temp list. This will flag
all required tdefs. Afterwards this list will be added } all required tdefs. Afterwards this list will be added }
vardebuglist:=taasmoutput.create; vardebuglist:=taasmoutput.create;
new_section(vardebuglist,sec_data,'',0);
if assigned(current_module.globalsymtable) then if assigned(current_module.globalsymtable) then
tglobalsymtable(current_module.globalsymtable).concatstabto(vardebuglist); tglobalsymtable(current_module.globalsymtable).concatstabto(vardebuglist);
if assigned(current_module.localsymtable) then if assigned(current_module.localsymtable) then
@ -1402,15 +1403,15 @@ implementation
end end
else else
begin begin
if (target_info.system = system_i386_netware) or if (target_info.system = system_i386_netware) or
(target_info.system = system_i386_netwlibc) then (target_info.system = system_i386_netwlibc) then
begin begin
pd:=create_main_proc('PASCALMAIN',potype_proginit,st); { main is need by the netware rtl } pd:=create_main_proc('PASCALMAIN',potype_proginit,st); { main is need by the netware rtl }
end else end else
begin begin
pd:=create_main_proc('main',potype_proginit,st); pd:=create_main_proc('main',potype_proginit,st);
pd.aliasnames.insert('PASCALMAIN'); pd.aliasnames.insert('PASCALMAIN');
end; end;
end; end;
tcgprocinfo(current_procinfo).parse_body; tcgprocinfo(current_procinfo).parse_body;
tcgprocinfo(current_procinfo).generate_code; tcgprocinfo(current_procinfo).generate_code;
@ -1563,7 +1564,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.164 2004-09-14 16:33:46 peter Revision 1.165 2004-10-04 18:26:51 peter
* debuginfo fixes
Revision 1.164 2004/09/14 16:33:46 peter
* release localsymtables when module is compiled * release localsymtables when module is compiled
Revision 1.163 2004/09/04 21:18:47 armin Revision 1.163 2004/09/04 21:18:47 armin