paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check if the selected assembler supports current target

Browse Source
This commit is contained in:
florian 2004-12-12 00:31:52 +00:00
parent addb969355
commit dc98c3265f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/systems.pas
View File

@ -412,7 +412,7 @@ end;
function set_target_asm(t:tasm):boolean; function set_target_asm(t:tasm):boolean;
begin begin
set_target_asm:=false; set_target_asm:=false;
if assigned(asminfos[t]) then if assigned(asminfos[t]) and (asminfos[t]^.supported_target=target_info.system) then
begin begin
target_asm:=asminfos[t]^; target_asm:=asminfos[t]^;
set_target_asm:=true; set_target_asm:=true;
@ -433,8 +433,6 @@ begin
end; end;
function set_target_res(t:tres):boolean; function set_target_res(t:tres):boolean;
begin begin
set_target_res:=false; set_target_res:=false;
@ -715,7 +713,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.96 2004-11-08 22:09:59 peter Revision 1.97 2004-12-12 00:31:52 florian
* check if the selected assembler supports current target
Revision 1.96 2004/11/08 22:09:59 peter
* tvarsym splitted * tvarsym splitted
Revision 1.95 2004/11/01 15:42:00 florian Revision 1.95 2004/11/01 15:42:00 florian