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

* moved message to msg file

Browse Source
This commit is contained in:
peter 2003-06-08 11:40:14 +00:00
parent 5540304b85
commit 7fcb3154d6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/fppu.pas
View File

@ -1187,7 +1187,7 @@ if modulename^='NCGUTIL' then
is nothing to resolve } is nothing to resolve }
if interface_compiled then if interface_compiled then
begin begin
Comment(V_Used,'Re-resolving unit'); Message1(unit_u_reresolving_unit,modulename^);
aktglobalsymtable:=tstoredsymtable(globalsymtable); aktglobalsymtable:=tstoredsymtable(globalsymtable);
tstoredsymtable(globalsymtable).deref; tstoredsymtable(globalsymtable).deref;
tstoredsymtable(globalsymtable).derefimpl; tstoredsymtable(globalsymtable).derefimpl;
@ -1199,7 +1199,7 @@ if modulename^='NCGUTIL' then
end; end;
end end
else else
Comment(V_Used,'Skipping re-resolving, still loading used units'); Message1(unit_u_skipping_reresolving_unit,modulename^);
do_load:=false; do_load:=false;
end; end;
end; end;
@ -1412,7 +1412,10 @@ if modulename^='NCGUTIL' then
end. end.
{ {
$Log$ $Log$
Revision 1.36 2003-06-07 20:26:32 peter Revision 1.37 2003-06-08 11:40:14 peter
* moved message to msg file
Revision 1.36 2003/06/07 20:26:32 peter
* re-resolving added instead of reloading from ppu * re-resolving added instead of reloading from ppu
* tderef object added to store deref info for resolving * tderef object added to store deref info for resolving