pas2js: nil typeinfo Module, Attr and params

This commit is contained in:
mattias 2021-09-21 12:21:42 +02:00
parent 3e760b33c7
commit 781da5e60d

View File

@ -1268,7 +1268,7 @@ var rtl = {
if (rtl.debug_rtti) rtl.debug('initRTTI'); if (rtl.debug_rtti) rtl.debug('initRTTI');
// base types // base types
rtl.tTypeInfo = { name: "tTypeInfo" }; rtl.tTypeInfo = { name: "tTypeInfo", kind: 0, $module: null, attr: null };
function newBaseTI(name,kind,ancestor){ function newBaseTI(name,kind,ancestor){
if (!ancestor) ancestor = rtl.tTypeInfo; if (!ancestor) ancestor = rtl.tTypeInfo;
if (rtl.debug_rtti) rtl.debug('initRTTI.newBaseTI "'+name+'" '+kind+' ("'+ancestor.name+'")'); if (rtl.debug_rtti) rtl.debug('initRTTI.newBaseTI "'+name+'" '+kind+' ("'+ancestor.name+'")');
@ -1311,7 +1311,7 @@ var rtl = {
newBaseTI("tTypeInfoRefToProcVar",17 /* tkRefToProcVar */,rtl.tTypeInfoProcVar); newBaseTI("tTypeInfoRefToProcVar",17 /* tkRefToProcVar */,rtl.tTypeInfoProcVar);
// member kinds // member kinds
rtl.tTypeMember = {}; rtl.tTypeMember = { attr: null };
function newMember(name,kind){ function newMember(name,kind){
var m = Object.create(rtl.tTypeMember); var m = Object.create(rtl.tTypeMember);
m.name = name; m.name = name;
@ -1320,7 +1320,8 @@ var rtl = {
}; };
newMember("tTypeMemberField",1); // tmkField newMember("tTypeMemberField",1); // tmkField
newMember("tTypeMemberMethod",2); // tmkMethod newMember("tTypeMemberMethod",2); // tmkMethod
newMember("tTypeMemberProperty",3); // tmkProperty t = newMember("tTypeMemberProperty",3); // tmkProperty
t.params = null;
// base object for storing members: a simple object // base object for storing members: a simple object
rtl.tTypeMembers = {}; rtl.tTypeMembers = {};