paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +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
{ We must schedule a compile. }
task_handler.addmodule(hp);
{ 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
assigned(hp.globalmacrosymtable) then
macrosymtablestack.push(hp.globalmacrosymtable);
@ -383,6 +385,8 @@ implementation
begin
m:=AddUnit(curr,s,true);
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;
end;