From d7015572b6c7ebb88d4d1343ba81627131bb594a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 23 Jul 2004 23:40:35 +0000
Subject: [PATCH] + Fixed value of constant strings (added quotes)

---
 fcl/passrc/pparser.pp | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/fcl/passrc/pparser.pp b/fcl/passrc/pparser.pp
index a5e39d6f44..b01263f2f6 100644
--- a/fcl/passrc/pparser.pp
+++ b/fcl/passrc/pparser.pp
@@ -538,7 +538,14 @@ begin
       AppendSpace := NextAppendSpace;
     end else
       MayAppendSpace := True;
-    Result := Result + CurTokenText;
+    if CurToken=tkString then
+      begin
+      If (Length(CurTokenText)>0) and (CurTokenText[1]=#0) then
+        Writeln('First char is null : "',CurTokenText,'"');
+      Result := Result + ''''+StringReplace(CurTokenText,'''','''''',[rfReplaceAll])+''''
+      end
+    else
+      Result := Result + CurTokenText;
   end;
   UngetToken;
 end;
@@ -1815,7 +1822,10 @@ end.
 
 {
   $Log$
-  Revision 1.6  2004-05-16 13:24:59  peter
+  Revision 1.7  2004-07-23 23:40:35  michael
+  + Fixed value of constant strings (added quotes)
+
+  Revision 1.6  2004/05/16 13:24:59  peter
     * remove not implemented method
 
   Revision 1.5  2004/04/15 22:15:57  michael