Sfoglia il codice sorgente

* ignore tf_no_backquote_support in source_info.flags in case we will link
on the target system (-St command line option during cross-compiling)

git-svn-id: trunk@20817 -

Jonas Maebe 13 anni fa
parent
commit
ddde9760c2
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  1. 2 1
      compiler/link.pas

+ 2 - 1
compiler/link.pas

@@ -678,7 +678,8 @@ Implementation
         f : text;
         st : string;
       begin
-        if not (tf_no_backquote_support in source_info.flags) then
+        if not (tf_no_backquote_support in source_info.flags) or
+           (cs_link_on_target in current_settings.globalswitches) then
            begin
              CatFileContent:='`cat '+MaybeQuoted(para)+'`';
              Exit;