mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-07 14:38:39 +02:00
pas2js: nil typeinfo Module, Attr and params
This commit is contained in:
parent
3e760b33c7
commit
781da5e60d
7
utils/pas2js/dist/rtl.js
vendored
7
utils/pas2js/dist/rtl.js
vendored
@ -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 = {};
|
||||||
|
Loading…
Reference in New Issue
Block a user