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

fcl-passrc: fixed tests

Browse Source 
git-svn-id: trunk@42518 -
This commit is contained in:
Mattias Gaertner 2019-07-28 14:27:11 +00:00
parent 0da626fd1b
commit e141899299
2 changed files with 4 additions and 4 deletions
packages
fcl-passrc/src
pasresolver.pp
pastojs/src
fppas2js.pp

4
packages/fcl-passrc/src/pasresolver.pp
View File

@ -5833,7 +5833,7 @@ begin
exit;
end;
if El.DestType.Parent=El then
RaiseNotYetImplemented(20180429094237,El.DestType,'pointer of anonymous type');
RaiseMsg(20180429094237,nNotYetImplemented,sNotYetImplemented,['pointer of anonymous type'], El.DestType);
CheckUseAsType(El.DestType,20190123095118,El);
CheckPointerCycle(El);
end;
@ -18229,7 +18229,7 @@ var
NewScopeCnt: Integer;
begin
NewScopeCnt:=FScopeCount;
while (NewScopeCnt>0) and (FScopes[NewScopeCnt] is TPasSubExprScope) do
while (NewScopeCnt>0) and (FScopes[NewScopeCnt-1] is TPasSubExprScope) do
dec(NewScopeCnt);
Result:=StashScopes(NewScopeCnt);
end;

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

@ -4906,12 +4906,12 @@ begin
end;
// search for TIName
ResetSubExprScopes(ScopeDepth);
ScopeDepth:=StashSubExprScopes;
FindData:=Default(TPRFindData);
FindData.ErrorPosEl:=Params;
Abort:=false;
IterateElements(TIName,@OnFindFirst,@FindData,Abort);
RestoreSubExprScopes(ScopeDepth);
RestoreStashedScopes(ScopeDepth);
{$IFDEF VerbosePas2JS}
writeln('TPas2JSResolver.BI_TypeInfo_OnGetCallResult TIName="',TIName,'" FindData.Found="',GetObjName(FindData.Found),'"');
{$ENDIF}