paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 22:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed value of constant strings (added quotes)

Browse Source
This commit is contained in:
michael 2004-07-23 23:40:35 +00:00
parent 9abcb9dda1
commit d7015572b6
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fcl/passrc/pparser.pp
View File

@ -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