paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 22:46:16 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5833,7 +5833,7 @@ begin
exit; exit;
end; end;
if El.DestType.Parent=El then 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); CheckUseAsType(El.DestType,20190123095118,El);
CheckPointerCycle(El); CheckPointerCycle(El);
end; end;
@ -18229,7 +18229,7 @@ var
NewScopeCnt: Integer; NewScopeCnt: Integer;
begin begin
NewScopeCnt:=FScopeCount; NewScopeCnt:=FScopeCount;
while (NewScopeCnt>0) and (FScopes[NewScopeCnt] is TPasSubExprScope) do while (NewScopeCnt>0) and (FScopes[NewScopeCnt-1] is TPasSubExprScope) do
dec(NewScopeCnt); dec(NewScopeCnt);
Result:=StashScopes(NewScopeCnt); Result:=StashScopes(NewScopeCnt);
end; end;

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

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