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

Set string length before calling move to avoid problems with global data analysis on systems using C library

Browse Source 
git-svn-id: trunk@49280 -
This commit is contained in:
pierre 2021-04-27 14:52:22 +00:00
parent 7721995c71
commit 77e3a402da
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/assemble.pas
View File

@ -1403,8 +1403,8 @@ Implementation
len:=p-pstart; len:=p-pstart;
if len>255 then if len>255 then
internalerror(200509187); internalerror(200509187);
move(pstart^,hs[1],len);
hs[0]:=chr(len); hs[0]:=chr(len);
move(pstart^,hs[1],len);
sym:=objdata.symbolref(hs); sym:=objdata.symbolref(hs);
{ Second symbol? } { Second symbol? }
if assigned(relocsym) then if assigned(relocsym) then

4
compiler/ogcoff.pas
View File

@ -2063,6 +2063,8 @@ const pemagic : array[0..3] of byte = (
FCoffSyms.Read(bosym,sizeof(bosym)); FCoffSyms.Read(bosym,sizeof(bosym));
if bosym.Name.Offset.Zeroes<>0 then if bosym.Name.Offset.Zeroes<>0 then
begin begin
{ Added for sake of global data analysis }
strname[0]:=#0;
move(bosym.Name.ShortName,strname[1],8); move(bosym.Name.ShortName,strname[1],8);
strname[9]:=#0; strname[9]:=#0;
strname[0]:=chr(strlen(@strname[1])); strname[0]:=chr(strlen(@strname[1]));
@ -2081,6 +2083,8 @@ const pemagic : array[0..3] of byte = (
FCoffSyms.Read(sym,sizeof(sym)); FCoffSyms.Read(sym,sizeof(sym));
if plongint(@sym.name)^<>0 then if plongint(@sym.name)^<>0 then
begin begin
{ Added for sake of global data analysis }
strname[0]:=#0;
move(sym.name,strname[1],8); move(sym.name,strname[1],8);
strname[9]:=#0; strname[9]:=#0;
strname[0]:=chr(strlen(@strname[1])); strname[0]:=chr(strlen(@strname[1]));