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

pastojs: fixed freeing temp intf var if nil

Browse Source 
git-svn-id: trunk@48155 -
This commit is contained in:
Mattias Gaertner 2021-01-14 12:30:57 +00:00
parent 4e61867ce1
commit c21e777c85
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/pas2js/dist/rtl.js vendored
View File

@ -739,15 +739,20 @@ var rtl = {
delete this[id];
old._Release(); // may fail
}
this[id]=intf;
if(intf) {
this[id]=intf;
}
return intf;
},
free: function(){
//console.log('rtl.intfRefs.free...');
for (var id in this){
if (this.hasOwnProperty(id)){
//console.log('rtl.intfRefs.free: id='+id+' '+this[id].$name+' $o='+this[id].$o.$classname);
this[id]._Release();
var intf = this[id];
if (intf){
//console.log('rtl.intfRefs.free: id='+id+' '+intf.$name+' $o='+intf.$o.$classname);
intf._Release();
}
}
}
}