paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:29:19 +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 } { Load .o files and resolve symbols }
ParseScript_Load; ParseScript_Load;
if ErrorCount>0 then
goto myexit;
exeoutput.ResolveSymbols; exeoutput.ResolveSymbols;
{ DLL Linking } { DLL Linking }
While not DLLFiles.Empty do While not DLLFiles.Empty do
@ -894,6 +892,8 @@ end;
else else
Comment(V_Error,'DLL not found: '+s); Comment(V_Error,'DLL not found: '+s);
end; end;
if ErrorCount>0 then
goto myexit;
{ Create .exe sections and add .o sections } { Create .exe sections and add .o sections }
ParseScript_Order; ParseScript_Order;
@ -907,6 +907,8 @@ end;
exeoutput.FixupSymbols; exeoutput.FixupSymbols;
exeoutput.FixupRelocations; exeoutput.FixupRelocations;
exeoutput.PrintMemoryMap; exeoutput.PrintMemoryMap;
if ErrorCount>0 then
goto myexit;
exeoutput.WriteExeFile(current_module.exefilename^); exeoutput.WriteExeFile(current_module.exefilename^);