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

* Do not try to export symbol if an error occurred, avoid internal error. Fixes issue #40858

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-20 17:51:34 +02:00
parent 0a9169eb67
commit 258ad62c4d
1 changed files with 61 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexports.pas
View File

@ -197,6 +197,8 @@ implementation
if (DefString<>'') and UseDeffileForExports then
DefFile.AddExport(DefString);
end;
// consumed the symbol. Only do something if there was no error.
if ErrorCount=0 then
case srsym.typ of
procsym:
begin
@ -258,7 +260,7 @@ implementation
end;
else
internalerror(2019050502);
end
end; // Case srsym.typ
end
else
consume(_ID);