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

* print realmodulename in fatal errors

Browse Source
This commit is contained in:
peter 2004-08-28 20:01:09 +00:00
parent 8694a4b86b
commit d3b7458802
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/fppu.pas
View File

@ -1396,9 +1396,9 @@ uses
if not(sources_avail) then
begin
if recompile_reason=rr_noppu then
Message1(unit_f_cant_find_ppu,modulename^)
Message1(unit_f_cant_find_ppu,realmodulename^)
else
Message1(unit_f_cant_compile_unit,modulename^);
Message1(unit_f_cant_compile_unit,realmodulename^);
end;
end;
{ Flag modules to reload }
@ -1490,7 +1490,7 @@ uses
hp2:=nil;
end;
if assigned(hp2) then
Message2(unit_f_circular_unit_reference,callermodule.modulename^,hp.modulename^);
Message2(unit_f_circular_unit_reference,callermodule.realmodulename^,hp.realmodulename^);
end;
break;
end;
@ -1502,7 +1502,7 @@ uses
hp:=tppumodule(hp.next);
end;
if assigned(shortnamehp) and not assigned(hp) then
Message2(unit_w_unit_name_error,s,shortnamehp.modulename^);
Message2(unit_w_unit_name_error,s,shortnamehp.realmodulename^);
{ the unit is not in the loaded units,
we create an entry and register the unit }
if not assigned(hp) then
@ -1519,7 +1519,10 @@ uses
end.
{
$Log$
Revision 1.60 2004-08-27 21:59:26 peter
Revision 1.61 2004-08-28 20:01:09 peter
* print realmodulename in fatal errors
Revision 1.60 2004/08/27 21:59:26 peter
browser disabled
uf_local_symtable ppu flag when a localsymtable is stored