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

* don't crash if no info is registered for the selected external assembler

Browse Source 
git-svn-id: trunk@45806 -
This commit is contained in:
Jonas Maebe 2020-07-19 14:30:31 +00:00
parent b7bd9f3325
commit 6fe8d7bd14
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/options.pas
View File

@ -4179,7 +4179,10 @@ begin
begin
if not set_target_asm(option.paratargetasm) then
begin
Message2(option_incompatible_asm,asminfos[option.paratargetasm]^.idtxt,target_info.name);
if assigned(asminfos[option.paratargetasm]) then
Message2(option_incompatible_asm,asminfos[option.paratargetasm]^.idtxt,target_info.name)
else
Message2(option_incompatible_asm,'<invalid assembler>',target_info.name);
set_target_asm(target_info.assemextern);
Message1(option_asm_forced,target_asm.idtxt);
end;