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

Fix previous commit 48688 to avoid accessing 'invalid' positions in sym.value.valueptr

Browse Source 
git-svn-id: trunk@48689 -
(cherry picked from commit 34fd36f817)
This commit is contained in:
pierre 2021-02-17 07:09:55 +00:00 committed by Pierre Muller
parent 09f6a2ad0c
commit 39ba1c39be
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/dbgstabs.pas
View File

@ -1587,6 +1587,7 @@ implementation
var
st : string;
ss : ansistring;
i : longint;
begin
ss:='';
{ Don't write info for default parameter values, the N_Func breaks
@ -1600,12 +1601,12 @@ implementation
begin
if sym.value.len<200 then
begin
s:=strpas(pchar(sym.value.valueptr));
s:=copy(s,1,sym.value.len);
if target_dbg.id=dbg_stabs then
st:='s'''+backspace_quote(octal_quote(s,[#0..#9,#11,#12,#14..#31,'''']),['"','\',#10,#13])+''''
setlength(ss,sym.value.len);
for i:=0 to sym.value.len-1 do
ss[i_1]:=pchar(sym.value.valueptr)[i];
st:='s'''+backspace_quote(octal_quote(ss,[#0..#9,#11,#12,#14..#31,'''']),['"','\',#10,#13])+''''
else
st:='s'''+stabx_quote_const(octal_quote(s,[#0..#9,#11,#12,#14..#31,'''']))+'''';
st:='s'''+stabx_quote_const(octal_quote(ss,[#0..#9,#11,#12,#14..#31,'''']))+'''';
end
else
st:='<constant string too long>';