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

pastojs: set $ancestor of pascal descending of external class to null

Browse Source 
git-svn-id: trunk@46926 -
(cherry picked from commit 54f08ea60f)
This commit is contained in:
Mattias Gaertner 2020-09-23 14:30:39 +00:00 committed by Florian Klämpfl
parent a7a216494c
commit 2b63b608c9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -353,6 +353,7 @@ var rtl = {
// create pascal class descendent from JS function
c = Object.create(ancestor.prototype);
c.$ancestorfunc = ancestor;
c.$ancestor = null; // no pascal ancestor
} else if (ancestor.$func){
// create pascal class descendent from a pascal class descendent of a JS function
isFunc = true;
@ -360,6 +361,7 @@ var rtl = {
c.$ancestor = ancestor;
} else {
c = Object.create(ancestor);
c.$ancestor = null; // no pascal ancestor
}
c.$create = function(fn,args){
if (args == undefined) args = [];