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

* -gl switch for auto lineinfo including

Browse Source
This commit is contained in:
peter 2000-02-06 17:20:52 +00:00
parent 78cb6bfa89
commit f0efb42197
3 changed files with 37 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globtype.pas
View File

@ -99,7 +99,7 @@ interface
{ browser }
cs_browser_log,
{ debugger }
cs_gdb_dbx,cs_gdb_gsym,cs_gdb_heaptrc,cs_checkpointer,
cs_gdb_dbx,cs_gdb_gsym,cs_gdb_heaptrc,cs_gdb_lineinfo,cs_checkpointer,
{ assembling }
cs_asm_leave,cs_asm_extern,cs_asm_pipe,cs_asm_source,
cs_asm_regalloc,cs_asm_tempalloc,
@ -180,7 +180,10 @@ begin
end.
{
$Log$
Revision 1.25 2000-01-07 01:14:27 peter
Revision 1.26 2000-02-06 17:20:52 peter
* -gl switch for auto lineinfo including
Revision 1.25 2000/01/07 01:14:27 peter
* updated copyright to 2000
Revision 1.24 1999/11/12 11:03:50 peter

6
compiler/options.pas
View File

@ -591,6 +591,7 @@ begin
'd' : initglobalswitches:=initglobalswitches+[cs_gdb_dbx];
'g' : initglobalswitches:=initglobalswitches+[cs_gdb_gsym];
'h' : initglobalswitches:=initglobalswitches+[cs_gdb_heaptrc];
'l' : initglobalswitches:=initglobalswitches+[cs_gdb_lineinfo];
'c' : initglobalswitches:=initglobalswitches+[cs_checkpointer];
{$ifdef EXTDEBUG}
'p' : only_one_pass:=true;
@ -1427,7 +1428,10 @@ end;
end.
{
$Log$
Revision 1.56 2000-01-31 15:55:42 peter
Revision 1.57 2000-02-06 17:20:52 peter
* -gl switch for auto lineinfo including
Revision 1.56 2000/01/31 15:55:42 peter
* fixed default unit location for linux when fpcdir was not set
Revision 1.55 2000/01/23 18:20:50 sg

38
compiler/pmodules.pas
View File

@ -659,19 +659,32 @@ unit pmodules;
current_module^.used_units.concat(new(pused_unit,init(hp,true)));
refsymtable^.insert(new(punitsym,init('PROFILE',hp^.globalsymtable)));
end;
{ Heaptrc unit? (not needed for units), this is here to be sure that it is really
loaded as first unit }
if (cs_gdb_heaptrc in aktglobalswitches) and not(current_module^.is_unit)then
{ Units only required for main module }
if not(current_module^.is_unit) then
begin
hp:=loadunit('HEAPTRC',false);
psymtable(hp^.globalsymtable)^.next:=symtablestack;
symtablestack:=hp^.globalsymtable;
{ add to the used units }
current_module^.used_units.concat(new(pused_unit,init(hp,true)));
refsymtable^.insert(new(punitsym,init('HEAPTRC',hp^.globalsymtable)));
{ Heaptrc unit }
if (cs_gdb_heaptrc in aktglobalswitches) then
begin
hp:=loadunit('HEAPTRC',false);
psymtable(hp^.globalsymtable)^.next:=symtablestack;
symtablestack:=hp^.globalsymtable;
{ add to the used units }
current_module^.used_units.concat(new(pused_unit,init(hp,true)));
refsymtable^.insert(new(punitsym,init('HEAPTRC',hp^.globalsymtable)));
end;
{ Lineinfo unit }
if (cs_gdb_lineinfo in aktglobalswitches) then
begin
hp:=loadunit('LINEINFO',false);
psymtable(hp^.globalsymtable)^.next:=symtablestack;
symtablestack:=hp^.globalsymtable;
{ add to the used units }
current_module^.used_units.concat(new(pused_unit,init(hp,true)));
refsymtable^.insert(new(punitsym,init('LINEINFO',hp^.globalsymtable)));
end;
end;
{ save default symtablestack }
defaultsymtablestack:=symtablestack;
defaultsymtablestack:=symtablestack;
end;
@ -1619,7 +1632,10 @@ unit pmodules;
end.
{
$Log$
Revision 1.183 2000-01-16 22:17:12 peter
Revision 1.184 2000-02-06 17:20:53 peter
* -gl switch for auto lineinfo including
Revision 1.183 2000/01/16 22:17:12 peter
* renamed call_offset to para_offset
Revision 1.182 2000/01/16 14:15:33 jonas