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

* renamed local current_module to compiling_module because it

Browse Source 
confused a lot in gdb
This commit is contained in:
peter 2002-08-18 19:59:03 +00:00
parent 197899d70a
commit 2c2d44a77c
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/verbose.pas
View File

@ -103,7 +103,7 @@ implementation
comphook;
var
current_module : tmodulebase;
compiling_module : tmodulebase;
{****************************************************************************
Extra Handlers for default compiler
@ -305,7 +305,7 @@ var
procedure SetCompileModule(p:tmodulebase);
begin
current_module:=p;
compiling_module:=p;
end;
@ -317,24 +317,24 @@ var
{ fix status }
status.currentline:=aktfilepos.line;
status.currentcolumn:=aktfilepos.column;
if assigned(current_module) and
assigned(current_module.sourcefiles) and
((current_module.unit_index<>lastmoduleidx) or
if assigned(compiling_module) and
assigned(compiling_module.sourcefiles) and
((compiling_module.unit_index<>lastmoduleidx) or
(aktfilepos.fileindex<>lastfileidx)) then
begin
{ update status record }
status.currentmodule:=current_module.modulename^;
status.currentsource:=current_module.sourcefiles.get_file_name(aktfilepos.fileindex);
status.currentsourcepath:=current_module.sourcefiles.get_file_path(aktfilepos.fileindex);
status.currentmodule:=compiling_module.modulename^;
status.currentsource:=compiling_module.sourcefiles.get_file_name(aktfilepos.fileindex);
status.currentsourcepath:=compiling_module.sourcefiles.get_file_path(aktfilepos.fileindex);
{ update lastfileidx only if name known PM }
if status.currentsource<>'' then
lastfileidx:=aktfilepos.fileindex
else
lastfileidx:=0;
lastmoduleidx:=current_module.unit_index;
lastmoduleidx:=compiling_module.unit_index;
end;
if assigned(current_module) then
status.compiling_current:=current_module.in_compile;
if assigned(compiling_module) then
status.compiling_current:=compiling_module.in_compile;
end;
@ -680,7 +680,11 @@ var
end.
{
$Log$
Revision 1.19 2002-05-18 13:34:21 peter
Revision 1.20 2002-08-18 19:59:03 peter
* renamed local current_module to compiling_module because it
confused a lot in gdb
Revision 1.19 2002/05/18 13:34:21 peter
* readded missing revisions
Revision 1.18 2002/05/16 19:46:47 carl