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

* fixed invalid memory reads and potential double freeing when removing

Browse Source 
superfluous temporary paralocs for llvm

git-svn-id: trunk@34955 -
This commit is contained in:
Jonas Maebe 2016-11-24 08:57:05 +00:00
parent ed6d993008
commit 280a6e15b7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/llvm/llvmpara.pas
View File

@ -151,11 +151,11 @@ unit llvmpara;
paraloc^.register:=hlcg.getaddressregister(list,paraloc^.def);
paraloc^.shiftval:=0;
{ remove all other paralocs }
nextloc:=paraloc^.next;
while assigned(nextloc) do
while assigned(paraloc^.next) do
begin
dispose(nextloc);
nextloc:=paraloc^.next;
paraloc^.next:=nextloc^.next;
dispose(nextloc);
end;
end;
paraloc^.llvmloc.loc:=paraloc^.loc;