浏览代码

* Quotes not needed.

Michaël Van Canneyt 1 年之前
父节点
当前提交
b388355750
共有 1 个文件被更改,包括 1 次插入4 次删除
  1. 1 4
      packages/fpmkunit/src/fpmkunit.pp

+ 1 - 4
packages/fpmkunit/src/fpmkunit.pp

@@ -2428,9 +2428,6 @@ var
   quoted : boolean;
   quoted : boolean;
 begin
 begin
   quoted:=false;
   quoted:=false;
-  // If first and last are quotes, we assume it is already quoted.
-  if (Length(S)>1) and (S[1]='"') and (S[Length(S)]='"') then
-    Exit(S);
   s1:='"';
   s1:='"';
   for i:=1 to length(s) do
   for i:=1 to length(s) do
    begin
    begin
@@ -8100,7 +8097,7 @@ begin
 
 
   // Replace strings
   // Replace strings
   for I:=0 to Args.Count-1 do
   for I:=0 to Args.Count-1 do
-    Args[i]:=maybequoted(APackage.Dictionary.ReplaceStrings(Args[i]));
+    Args[i]:=APackage.Dictionary.ReplaceStrings(Args[i]);
   // Add Filename to compile
   // Add Filename to compile
   Args.Add(AddPathPrefix(APackage,ATarget.TargetSourceFileName));
   Args.Add(AddPathPrefix(APackage,ATarget.TargetSourceFileName));
 end;
 end;