* renamed TStringList to TCmdStrList, in general use TCmdStr instead of shortstrings to fix bug 6351

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@6215 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/compiler/cutils.pas b/compiler/cutils.pas
index 6ecf154ff0..2741fa1173 100644
--- a/compiler/cutils.pas
+++ b/compiler/cutils.pas
@@ -98,7 +98,7 @@ interface
        If it is not quoted, or if the quoting is bad, s is not touched,
        and false is returned.
     }
-    function DePascalQuote(var s: string): Boolean;
+    function DePascalQuote(var s: ansistring): Boolean;
     function CompareStr(const S1, S2: string): Integer;
     function CompareText(S1, S2: string): integer;
 
@@ -919,7 +919,7 @@ implementation
       end;
 
 
-    function DePascalQuote(var s: string): Boolean;
+    function DePascalQuote(var s: ansistring): Boolean;
       var
         destPos, sourcePos, len: Integer;
         t: string;