paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 05:48:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed freeing temp intf var if nil

Browse Source
This commit is contained in:
mattias 2021-01-19 21:52:31 +00:00
parent 5810175e08
commit 51e72b06c9
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -738,15 +738,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();
}
}
}
}