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

rtl: added tkHelper

Browse Source
This commit is contained in:
mattias 2019-01-27 22:01:14 +00:00
parent 84e7aa5e90
commit 01b3be4a07
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/rtl/typinfo.pas
View File

@ -42,7 +42,7 @@ type
tkPointer, // 15
tkJSValue, // 16
tkRefToProcVar, // 17
tkInterface // 18
tkInterface, // 18
//tkObject,
//tkSString,tkLString,tkAString,tkWString,
//tkVariant,
@ -51,12 +51,12 @@ type
//tkQWord,
//tkInterfaceRaw,
//tkUString,tkUChar,
//tkHelper,
tkHelper // 19
//tkFile,
);
TTypeKinds = set of TTypeKind;
// for compatibility with Delphi/FPC, ignored under pas2js
// TCallConv for compatibility with Delphi/FPC, ignored under pas2js
TCallConv = (ccReg, ccCdecl, ccPascal, ccStdCall, ccSafeCall, ccCppdecl,
ccFar16, ccOldFPCCall, ccInternProc, ccSysCall, ccSoftFloat, ccMWPascal);
@ -341,6 +341,15 @@ type
Ancestor: TTypeInfoInterface external name 'ancestor';
end;
{ TTypeInfoHelper - Kind = tkHelper }
TTypeInfoHelper = class external name 'rtl.tTypeInfoHelper'(TTypeInfoStruct)
public
HelperType: TJSObject external name 'helper';
Ancestor: TTypeInfoHelper external name 'ancestor';
HelperFor: TTypeInfo external name 'helperfor';
end;
EPropertyError = class(Exception);
function GetClassMembers(aTIStruct: TTypeInfoStruct): TTypeMemberDynArray;