paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 02:47:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: typeinfo(classofvar)

Browse Source 
git-svn-id: trunk@35864 -
This commit is contained in:
Mattias Gaertner 2017-04-20 18:14:02 +00:00
parent 8da6a9fc84
commit db6e47a22c
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/pastojs/src/fppas2js.pp
View File

@ -2493,7 +2493,12 @@ begin
else if C=TPasClassType then
TIName:=Pas2JSBuiltInNames[pbitnTIClass]
else if C=TPasClassOfType then
TIName:=Pas2JSBuiltInNames[pbitnTIClassRef]
begin
if rrfReadable in ParamResolved.Flags then
TIName:=Pas2JSBuiltInNames[pbitnTIClass]
else
TIName:=Pas2JSBuiltInNames[pbitnTIClassRef];
end
else if C=TPasArrayType then
begin
if length(TPasArrayType(TypeEl).Ranges)>0 then

4
packages/pastojs/tests/tcmodules.pas
View File

@ -12526,7 +12526,7 @@ begin
Add(' tirecord:=typeinfo(trec);');
Add(' ticlass:=typeinfo(obj);');
Add(' ticlass:=typeinfo(tobject);');
Add(' ticlassref:=typeinfo(aclass);');
Add(' ticlass:=typeinfo(aclass);');
Add(' ticlassref:=typeinfo(tclass);');
ConvertProgram;
CheckSource('TestRTTI_TypeInfo_ExtTypeInfoClasses3',
@ -12556,7 +12556,7 @@ begin
'$mod.tiRecord = $mod.$rtti["TRec"];',
'$mod.tiClass = $mod.Obj.$rtti;',
'$mod.tiClass = $mod.$rtti["TObject"];',
'$mod.tiClassRef = $mod.aClass.$rtti;',
'$mod.tiClass = $mod.aClass.$rtti;',
'$mod.tiClassRef = $mod.$rtti["TClass"];',
'']));
end;