diff options
author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 14:52:22 +0000 |
---|---|---|
committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-27 14:52:22 +0000 |
commit | 6b13fc7eb4cf5316977817b48ac8e28729e11228 (patch) | |
tree | 1e56e7f255ef5abb9c2079bafffbeba299b27d2a /compiler/assemble.pas | |
parent | 1cf576df7b09c8e02c6608281807fd95b6813160 (diff) | |
download | fpc-6b13fc7eb4cf5316977817b48ac8e28729e11228.tar.gz |
Set string length before calling move to avoid problems with global data analysis on systems using C library
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49280 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/assemble.pas')
-rw-r--r-- | compiler/assemble.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/assemble.pas b/compiler/assemble.pas index 56b8426401..a3798d1bdc 100644 --- a/compiler/assemble.pas +++ b/compiler/assemble.pas @@ -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 |