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

pastojs: fixed rtti property override

Browse Source 
git-svn-id: trunk@36783 -
This commit is contained in:
Mattias Gaertner 2017-07-24 13:33:17 +00:00
parent 1ff7f061ff
commit c77b403928
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9570,6 +9570,7 @@ var
Flags: Integer;
GetterPas, StoredPas, SetterPas: TPasElement;
ResultTypeInfo: TJSElement;
VarType: TPasType;
begin
Result:=nil;
OptionsEl:=nil;
@ -9596,7 +9597,8 @@ begin
Call.AddArg(CreateLiteralNumber(Prop,Flags));
// add resulttype
ResultTypeInfo:=CreateTypeInfoRef(Prop.VarType,AContext,Prop);
VarType:=AContext.Resolver.GetPasPropertyType(Prop);
ResultTypeInfo:=CreateTypeInfoRef(VarType,AContext,Prop);
if ResultTypeInfo<>nil then
Call.AddArg(ResultTypeInfo)
else