paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 21:49:31 +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

2
compiler/assemble.pas
View File

@ -1403,8 +1403,8 @@ Implementation
len:=p-pstart;
if len>255 then
internalerror(200509187);
move(pstart^,hs[1],len);
hs[0]:=chr(len);
move(pstart^,hs[1],len);
sym:=objdata.symbolref(hs);
{ Second symbol? }
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));
if bosym.Name.Offset.Zeroes<>0 then
begin
{ Added for sake of global data analysis }
strname[0]:=#0;
move(bosym.Name.ShortName,strname[1],8);
strname[9]:=#0;
strname[0]:=chr(strlen(@strname[1]));
@ -2081,6 +2083,8 @@ const pemagic : array[0..3] of byte = (
FCoffSyms.Read(sym,sizeof(sym));
if plongint(@sym.name)^<>0 then
begin
{ Added for sake of global data analysis }
strname[0]:=#0;
move(sym.name,strname[1],8);
strname[9]:=#0;
strname[0]:=chr(strlen(@strname[1]));