paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed compile

Browse Source 
git-svn-id: trunk@40672 -
This commit is contained in:
Mattias Gaertner 2018-12-27 08:18:26 +00:00
parent 19836867da
commit 324a645bb5
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1226,7 +1226,7 @@ type
procedure ResolveFuncParamsExpr(Params: TParamsExpr;
Access: TResolvedRefAccess); override;
procedure FinishInterfaceSection(Section: TPasSection); override;
procedure FinishTypeSection(El: TPasDeclarations); override;
procedure FinishTypeSectionEl(El: TPasType); override;
procedure FinishModule(CurModule: TPasModule); override;
procedure FinishEnumType(El: TPasEnumType); override;
procedure FinishSetType(El: TPasSetType); override;
@ -3038,26 +3038,21 @@ begin
end;
end;
procedure TPas2JSResolver.FinishTypeSection(El: TPasDeclarations);
procedure TPas2JSResolver.FinishTypeSectionEl(El: TPasType);
var
i: Integer;
Decl: TPasElement;
C: TClass;
TypeEl: TPasType;
begin
inherited FinishTypeSection(El);
for i:=0 to El.Declarations.Count-1 do
inherited FinishTypeSectionEl(El);
C:=El.ClassType;
if C=TPasPointerType then
begin
Decl:=TPasElement(El.Declarations[i]);
C:=Decl.ClassType;
if C=TPasPointerType then
begin
TypeEl:=ResolveAliasType(TPasPointerType(Decl).DestType);
if TypeEl.ClassType=TPasRecordType then
// ^record
else
RaiseMsg(20180423105726,nNotSupportedX,sNotSupportedX,['pointer of '+TPasPointerType(Decl).DestType.Name],Decl);
end;
TypeEl:=ResolveAliasType(TPasPointerType(El).DestType);
if TypeEl.ClassType=TPasRecordType then
// ^record
else
RaiseMsg(20180423105726,nNotSupportedX,sNotSupportedX,['pointer of '+TPasPointerType(El).DestType.Name],El);
end;
end;