From 2b63b608c95ef35a123b6b35ab549ef5f1f90bca Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Wed, 23 Sep 2020 14:30:39 +0000
Subject: [PATCH] pastojs: set $ancestor of pascal descending of external class
 to null

git-svn-id: trunk@46926 -
(cherry picked from commit 54f08ea60fded3ed6c98e9b1a8f8672a350f7597)
---
 utils/pas2js/dist/rtl.js | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/utils/pas2js/dist/rtl.js b/utils/pas2js/dist/rtl.js
index c7f51e8072..5bea040c60 100644
--- a/utils/pas2js/dist/rtl.js
+++ b/utils/pas2js/dist/rtl.js
@@ -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 = [];