瀏覽代碼

* Write a warning to stderr that this utility is deprecated

git-svn-id: trunk@15213 -
joost 15 年之前
父節點
當前提交
f1e4de764a
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/utils/fpcsubst.pp

+ 2 - 0
compiler/utils/fpcsubst.pp

@@ -28,6 +28,7 @@ Resourcestring
   SWarnIgnoringPair = 'Warning: ignoring wrong name/value pair: ';
   SWarnIgnoringPair = 'Warning: ignoring wrong name/value pair: ';
   SStats = 'Replaced %d placeholders in %d lines.';
   SStats = 'Replaced %d placeholders in %d lines.';
   SSubstInLine = 'Replaced %s placeholders in line %d.';
   SSubstInLine = 'Replaced %s placeholders in line %d.';
+  SWarningDeprecated = 'Warning: This utility is deprecated and will be removed from fpc in the future. Please use fpcmkcfg instead.';
 
 
 
 
 Var
 Var
@@ -231,6 +232,7 @@ begin
 end;
 end;
 
 
 begin
 begin
+  WriteLn(StdErr,SWarningDeprecated);
   Init;
   Init;
   Try
   Try
     ProcessCommandLine;
     ProcessCommandLine;