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

* stop linking if errors during symbol rsolving happen

Browse Source 
git-svn-id: trunk@2906 -
This commit is contained in:
peter 2006-03-13 12:29:11 +00:00
parent 94d9a89774
commit 5a90c00aae
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/link.pas
View File

@ -882,8 +882,6 @@ end;
{ Load .o files and resolve symbols }
ParseScript_Load;
if ErrorCount>0 then
goto myexit;
exeoutput.ResolveSymbols;
{ DLL Linking }
While not DLLFiles.Empty do
@ -894,6 +892,8 @@ end;
else
Comment(V_Error,'DLL not found: '+s);
end;
if ErrorCount>0 then
goto myexit;
{ Create .exe sections and add .o sections }
ParseScript_Order;
@ -907,6 +907,8 @@ end;
exeoutput.FixupSymbols;
exeoutput.FixupRelocations;
exeoutput.PrintMemoryMap;
if ErrorCount>0 then
goto myexit;
exeoutput.WriteExeFile(current_module.exefilename^);