paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:30:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* null-terminate tai_strings loaded from ppus

Browse Source 
git-svn-id: branches/hlcgllvm@28133 -
This commit is contained in:
Jonas Maebe 2014-07-02 17:24:53 +00:00
parent 9f39188253
commit 23f34608ed
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmtai.pas
View File

@ -2057,8 +2057,9 @@ implementation
begin begin
inherited ppuload(t,ppufile); inherited ppuload(t,ppufile);
len:=ppufile.getlongint; len:=ppufile.getlongint;
getmem(str,len); getmem(str,len+1);
ppufile.getdata(str^,len); ppufile.getdata(str^,len);
str[len]:=#0
end; end;