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

* filepos when unit not found (merged)

Browse Source
This commit is contained in:
peter 2000-09-30 16:07:40 +00:00
parent 11fbb1cc6d
commit dc6c26755b
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pmodules.pas
View File

@ -457,10 +457,13 @@ implementation
current_module^.search_unit(copy(current_module^.modulename^,1,8),true); current_module^.search_unit(copy(current_module^.modulename^,1,8),true);
if not(current_module^.sources_avail) then if not(current_module^.sources_avail) then
begin begin
if current_module^.recompile_reason=rr_noppu then hp:=current_module;
Message1(unit_f_cant_find_ppu,current_module^.modulename^) current_module:=old_current_module;
if hp^.recompile_reason=rr_noppu then
Message1(unit_f_cant_find_ppu,hp^.modulename^)
else else
Message1(unit_f_cant_compile_unit,current_module^.modulename^); Message1(unit_f_cant_compile_unit,hp^.modulename^);
current_module:=hp;
end end
else else
begin begin
@ -1710,7 +1713,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.11 2000-09-24 21:33:47 peter Revision 1.12 2000-09-30 16:07:40 peter
* filepos when unit not found (merged)
Revision 1.11 2000/09/24 21:33:47 peter
* message updates merges * message updates merges
Revision 1.10 2000/09/24 15:06:22 peter Revision 1.10 2000/09/24 15:06:22 peter