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

* Emit better error when not able to load auto units

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-06 16:56:29 +02:00
parent 02704f85a9
commit a04d2b59f6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pmodules.pas
View File

@ -200,8 +200,10 @@ implementation
if not load_ok then if not load_ok then
{ We must schedule a compile. } { We must schedule a compile. }
task_handler.addmodule(hp); task_handler.addmodule(hp);
{ add to symtable stack } { add to symtable stack }
symtablestack.push(hp.globalsymtable); if assigned(hp.globalsymtable) then
symtablestack.push(hp.globalsymtable);
if (m_mac in current_settings.modeswitches) and if (m_mac in current_settings.modeswitches) and
assigned(hp.globalmacrosymtable) then assigned(hp.globalmacrosymtable) then
macrosymtablestack.push(hp.globalmacrosymtable); macrosymtablestack.push(hp.globalmacrosymtable);
@ -383,6 +385,8 @@ implementation
begin begin
m:=AddUnit(curr,s,true); m:=AddUnit(curr,s,true);
OK:=assigned(m) and (m.state in [ms_processed,ms_compiled]); OK:=assigned(m) and (m.state in [ms_processed,ms_compiled]);
if not ok then
Message2(unit_f_cant_find_ppu,s,curr.realmodulename^);
Result:=ok and Result; Result:=ok and Result;
end; end;