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

* reload also caller module when it is already compiled

Browse Source
This commit is contained in:
peter 2003-08-23 22:31:42 +00:00
parent 375820ccae
commit 284d18b7ca
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/fmodule.pas
View File

@ -578,8 +578,10 @@ uses
while assigned(pm) do while assigned(pm) do
begin begin
{ We do not have to reload the unit that wants to load { We do not have to reload the unit that wants to load
this unit } this unit, unless this unit is already compiled during
if pm.u=callermodule then the loading }
if (pm.u=callermodule) and
(pm.u.state<>ms_compiled) then
Message1(unit_u_no_reload_is_caller,pm.u.modulename^) Message1(unit_u_no_reload_is_caller,pm.u.modulename^)
else else
if pm.u.state=ms_second_compile then if pm.u.state=ms_second_compile then
@ -650,7 +652,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.36 2003-06-07 20:26:32 peter Revision 1.37 2003-08-23 22:31:42 peter
* reload also caller module when it is already compiled
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