瀏覽代碼

* fixed warning in t_zxspectrum

git-svn-id: branches/z80@44831 -
nickysn 5 年之前
父節點
當前提交
034ac3be18
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      compiler/systems/t_zxspectrum.pas

+ 3 - 3
compiler/systems/t_zxspectrum.pas

@@ -229,7 +229,7 @@ function TLinkerZXSpectrum_SdccSdld.MakeExecutable: boolean;
     mapstr: TCmdStr;
     success : boolean;
     StaticStr,
-    GCSectionsStr,
+    //GCSectionsStr,
     DynLinkStr,
     StripStr,
     FixedExeFileName: string;
@@ -262,7 +262,7 @@ function TLinkerZXSpectrum_SdccSdld.MakeExecutable: boolean;
       Replace(cmdstr,'$STATIC',StaticStr);
       Replace(cmdstr,'$STRIP',StripStr);
       Replace(cmdstr,'$MAP',mapstr);
-      Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
+      //Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
       Replace(cmdstr,'$DYNLINK',DynLinkStr);
      end
     else
@@ -272,7 +272,7 @@ function TLinkerZXSpectrum_SdccSdld.MakeExecutable: boolean;
       Replace(cmdstr,'$STATIC',StaticStr);
       Replace(cmdstr,'$STRIP',StripStr);
       Replace(cmdstr,'$MAP',mapstr);
-      Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
+      //Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
       Replace(cmdstr,'$DYNLINK',DynLinkStr);
      end;
     success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);