mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-31 22:30:34 +02:00
* null-terminate tai_strings loaded from ppus
git-svn-id: branches/hlcgllvm@28133 -
This commit is contained in:
parent
9f39188253
commit
23f34608ed
@ -2057,8 +2057,9 @@ implementation
|
||||
begin
|
||||
inherited ppuload(t,ppufile);
|
||||
len:=ppufile.getlongint;
|
||||
getmem(str,len);
|
||||
getmem(str,len+1);
|
||||
ppufile.getdata(str^,len);
|
||||
str[len]:=#0
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user