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

* Escape newlines in constant string stabs

Browse Source
This commit is contained in:
daniel 2004-02-22 22:13:27 +00:00
parent 0750bd97e5
commit ca593dede2
2 changed files with 19 additions and 6 deletions

18
compiler/cutils.pas
View File

@ -620,9 +620,16 @@ uses
backspace_quote:='';
for i:=1 to length(s) do
begin
if s[i] in qchars then
backspace_quote:=backspace_quote+'\';
backspace_quote:=backspace_quote+s[i];
if (s[i]=#10) and (#10 in qchars) then
backspace_quote:=backspace_quote+'\n'
else if (s[i]=#13) and (#13 in qchars) then
backspace_quote:=backspace_quote+'\r'
else
begin
if s[i] in qchars then
backspace_quote:=backspace_quote+'\';
backspace_quote:=backspace_quote+s[i];
end;
end;
end;
@ -1120,7 +1127,10 @@ initialization
end.
{
$Log$
Revision 1.34 2004-01-26 22:08:20 daniel
Revision 1.35 2004-02-22 22:13:27 daniel
* Escape newlines in constant string stabs
Revision 1.34 2004/01/26 22:08:20 daniel
* Bugfix on constant strings stab generation. Never worked and still
doesn't work for unknown reasons.

7
compiler/symsym.pas
View File

@ -2064,7 +2064,7 @@ implementation
{even GDB v4.16 only now 'i' 'r' and 'e' !!!}
case consttyp of
conststring:
st:='s'''+backspace_quote(strpas(pchar(value.valueptr)),['''','"','\'])+'''';
st:='s'''+backspace_quote(strpas(pchar(value.valueptr)),['''','"','\',#10,#13])+'''';
constbool,
constint,
constord,
@ -2367,7 +2367,10 @@ implementation
end.
{
$Log$
Revision 1.159 2004-02-20 21:54:47 peter
Revision 1.160 2004-02-22 22:13:27 daniel
* Escape newlines in constant string stabs
Revision 1.159 2004/02/20 21:54:47 peter
* use sp_internal flag to silence unused internal variable
Revision 1.158 2004/02/13 15:42:21 peter