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

* pas2jni: Fixed double memory freeing when using method pointers in some rare cases.

Browse Source 
git-svn-id: trunk@34843 -
This commit is contained in:
yury 2016-11-07 21:42:24 +00:00
parent 8e8521c43e
commit 3fd3ff9527
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/pas2jni/writer.pas
View File

@ -1775,8 +1775,8 @@ begin
Fps.WriteLn('else begin');
Fps.WriteLn('mpi:=_TMethodPtrInfo.Create(env, nil, '''', '''');', 1);
Fps.WriteLn('mpi.RealMethod:=m;', 1);
Fps.WriteLn('InterlockedIncrement(mpi.RefCnt);', 1);
Fps.WriteLn('end;');
Fps.WriteLn('InterlockedIncrement(mpi.RefCnt);');
Fps.WriteLn('finally', -1);
Fps.WriteLn('_MethodPointersCS.Leave;');
Fps.DecI;