Quellcode durchsuchen

* check if the selected assembler supports current target

florian vor 20 Jahren
Ursprung
Commit
dc98c3265f
1 geänderte Dateien mit 5 neuen und 4 gelöschten Zeilen
  1. 5 4
      compiler/systems.pas

+ 5 - 4
compiler/systems.pas

@@ -412,7 +412,7 @@ end;
 function set_target_asm(t:tasm):boolean;
 begin
   set_target_asm:=false;
-  if assigned(asminfos[t]) then
+  if assigned(asminfos[t]) and (asminfos[t]^.supported_target=target_info.system) then
    begin
      target_asm:=asminfos[t]^;
      set_target_asm:=true;
@@ -433,8 +433,6 @@ begin
 end;
 
 
-
-
 function set_target_res(t:tres):boolean;
 begin
   set_target_res:=false;
@@ -715,7 +713,10 @@ finalization
 end.
 {
   $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
 
   Revision 1.95  2004/11/01 15:42:00  florian