From c301430a966cfda385ab4576e57db616db9eb58d Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 5 Apr 2016 19:55:21 +0000
Subject: [PATCH] --- Merging r31299 into '.': U   
 rtl/objpas/classes/stringl.inc --- Recording mergeinfo for merge of r31299
 into '.':  U   .

# revisions: 31299

git-svn-id: branches/fixes_3_0@33426 -
---
 rtl/objpas/classes/stringl.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 9f9c39aba2..01b47bebf1 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -42,13 +42,13 @@ end;
 
 { //!! is used to mark unsupported things. }
 
-Function QuoteString (Const S : String; Quote : String) : String;
+Function QuoteString (Const S : String; Const Quote : String) : String;
 Var
   I,J : Integer;
 begin
   J:=0;
   Result:=S;
-  for i:=1to length(s) do
+  for i:=1 to length(s) do
    begin
      inc(j);
      if S[i]=Quote then