Lines Matching refs:Rest
61 function CheckRestoredObject(const Path: string; Orig, Rest: TObject): boolean; virtual; in CheckRestoredObject()
62 procedure CheckRestoredJS(const Path, Orig, Rest: string); virtual;
63 procedure CheckRestoredStringList(const Path: string; Orig, Rest: TStrings); virtual;
66 …procedure CheckRestoredDeclarations(const Path: string; Orig, Rest: TPasDeclarations; Flags: TPCCh…
67 …procedure CheckRestoredSection(const Path: string; Orig, Rest: TPasSection; Flags: TPCCheckFlags);…
68 …procedure CheckRestoredModule(const Path: string; Orig, Rest: TPasModule; Flags: TPCCheckFlags); v…
69 …procedure CheckRestoredScopeReference(const Path: string; Orig, Rest: TPasScope; Flags: TPCCheckFl…
70 …procedure CheckRestoredElementBase(const Path: string; Orig, Rest: TPasElementBase; Flags: TPCChec…
71 …procedure CheckRestoredResolveData(const Path: string; Orig, Rest: TResolveData; Flags: TPCCheckFl…
72 …procedure CheckRestoredPasScope(const Path: string; Orig, Rest: TPasScope; Flags: TPCCheckFlags); …
73 …procedure CheckRestoredModuleScope(const Path: string; Orig, Rest: TPas2JSModuleScope; Flags: TPCC…
74 …procedure CheckRestoredIdentifierScope(const Path: string; Orig, Rest: TPasIdentifierScope; Flags:…
75 …procedure CheckRestoredSectionScope(const Path: string; Orig, Rest: TPas2JSSectionScope; Flags: TP…
76 …procedure CheckRestoredInitialFinalizationScope(const Path: string; Orig, Rest: TPas2JSInitialFina…
77 …procedure CheckRestoredEnumTypeScope(const Path: string; Orig, Rest: TPasEnumTypeScope; Flags: TPC…
78 …procedure CheckRestoredRecordScope(const Path: string; Orig, Rest: TPas2jsRecordScope; Flags: TPCC…
79 …procedure CheckRestoredClassScope(const Path: string; Orig, Rest: TPas2JSClassScope; Flags: TPCChe…
80 …procedure CheckRestoredProcScope(const Path: string; Orig, Rest: TPas2JSProcedureScope; Flags: TPC…
81 …procedure CheckRestoredScopeRefs(const Path: string; Orig, Rest: TPasScopeReferences; Flags: TPCCh…
82 …procedure CheckRestoredPropertyScope(const Path: string; Orig, Rest: TPasPropertyScope; Flags: TPC…
83 …procedure CheckRestoredGenericParamScope(const Path: string; Orig, Rest: TPasGenericParamsScope; F…
84 …procedure CheckRestoredSpecializeTypeData(const Path: string; Orig, Rest: TPasSpecializeTypeData; …
85 …procedure CheckRestoredResolvedReference(const Path: string; Orig, Rest: TResolvedReference; Flags…
86 procedure CheckRestoredEvalValue(const Path: string; Orig, Rest: TResEvalValue); virtual;
87 …procedure CheckRestoredCustomData(const Path: string; RestoredEl: TPasElement; Orig, Rest: TObject…
88 procedure CheckRestoredReference(const Path: string; Orig, Rest: TPasElement); virtual;
89 …procedure CheckRestoredElOrRef(const Path: string; Orig, OrigProp, Rest, RestProp: TPasElement; Fl…
90 procedure CheckRestoredAnalyzerElement(const Path: string; Orig, Rest: TPasElement); virtual;
91 …procedure CheckRestoredElement(const Path: string; Orig, Rest: TPasElement; Flags: TPCCheckFlags);…
92 …procedure CheckRestoredElementList(const Path: string; Orig, Rest: TFPList; Flags: TPCCheckFlags);…
93 …procedure CheckRestoredElementArray(const Path: string; Orig, Rest: TPasElementArray; Flags: TPCCh…
95 …Orig: TFPList; RestParent: TPasElement; Rest: TFPList; AllowInSitu: boolean; Flags: TPCCheckFlags)…
96 …procedure CheckRestoredPasExpr(const Path: string; Orig, Rest: TPasExpr; Flags: TPCCheckFlags); vi…
97 …procedure CheckRestoredUnaryExpr(const Path: string; Orig, Rest: TUnaryExpr; Flags: TPCCheckFlags)…
98 …procedure CheckRestoredBinaryExpr(const Path: string; Orig, Rest: TBinaryExpr; Flags: TPCCheckFlag…
99 …procedure CheckRestoredPrimitiveExpr(const Path: string; Orig, Rest: TPrimitiveExpr; Flags: TPCChe…
100 …procedure CheckRestoredBoolConstExpr(const Path: string; Orig, Rest: TBoolConstExpr; Flags: TPCChe…
101 …procedure CheckRestoredParamsExpr(const Path: string; Orig, Rest: TParamsExpr; Flags: TPCCheckFlag…
102 …procedure CheckRestoredProcedureExpr(const Path: string; Orig, Rest: TProcedureExpr; Flags: TPCChe…
103 …procedure CheckRestoredRecordValues(const Path: string; Orig, Rest: TRecordValues; Flags: TPCCheck…
104 …procedure CheckRestoredPasExprArray(const Path: string; Orig, Rest: TPasExprArray; Flags: TPCCheck…
105 …procedure CheckRestoredArrayValues(const Path: string; Orig, Rest: TArrayValues; Flags: TPCCheckFl…
106 …procedure CheckRestoredResString(const Path: string; Orig, Rest: TPasResString; Flags: TPCCheckFla…
107 …procedure CheckRestoredAliasType(const Path: string; Orig, Rest: TPasAliasType; Flags: TPCCheckFla…
108 …procedure CheckRestoredPointerType(const Path: string; Orig, Rest: TPasPointerType; Flags: TPCChec…
109 …procedure CheckRestoredSpecializedType(const Path: string; Orig, Rest: TPasSpecializeType; Flags: …
110 …procedure CheckRestoredInlineSpecializedExpr(const Path: string; Orig, Rest: TInlineSpecializeExpr…
111 …procedure CheckRestoredGenericTemplateType(const Path: string; Orig, Rest: TPasGenericTemplateType…
112 …procedure CheckRestoredRangeType(const Path: string; Orig, Rest: TPasRangeType; Flags: TPCCheckFla…
113 …procedure CheckRestoredArrayType(const Path: string; Orig, Rest: TPasArrayType; Flags: TPCCheckFla…
114 …procedure CheckRestoredFileType(const Path: string; Orig, Rest: TPasFileType; Flags: TPCCheckFlags…
115 …procedure CheckRestoredEnumValue(const Path: string; Orig, Rest: TPasEnumValue; Flags: TPCCheckFla…
116 …procedure CheckRestoredEnumType(const Path: string; Orig, Rest: TPasEnumType; Flags: TPCCheckFlags…
117 …procedure CheckRestoredSetType(const Path: string; Orig, Rest: TPasSetType; Flags: TPCCheckFlags);…
118 …procedure CheckRestoredVariant(const Path: string; Orig, Rest: TPasVariant; Flags: TPCCheckFlags);…
119 …procedure CheckRestoredRecordType(const Path: string; Orig, Rest: TPasRecordType; Flags: TPCCheckF…
120 …procedure CheckRestoredClassType(const Path: string; Orig, Rest: TPasClassType; Flags: TPCCheckFla…
121 …procedure CheckRestoredArgument(const Path: string; Orig, Rest: TPasArgument; Flags: TPCCheckFlags…
122 …procedure CheckRestoredProcedureType(const Path: string; Orig, Rest: TPasProcedureType; Flags: TPC…
123 …procedure CheckRestoredResultElement(const Path: string; Orig, Rest: TPasResultElement; Flags: TPC…
124 …procedure CheckRestoredFunctionType(const Path: string; Orig, Rest: TPasFunctionType; Flags: TPCCh…
125 …procedure CheckRestoredStringType(const Path: string; Orig, Rest: TPasStringType; Flags: TPCCheckF…
126 …procedure CheckRestoredVariable(const Path: string; Orig, Rest: TPasVariable; Flags: TPCCheckFlags…
127 …procedure CheckRestoredExportSymbol(const Path: string; Orig, Rest: TPasExportSymbol; Flags: TPCCh…
128 …procedure CheckRestoredConst(const Path: string; Orig, Rest: TPasConst; Flags: TPCCheckFlags); vir…
129 …procedure CheckRestoredProperty(const Path: string; Orig, Rest: TPasProperty; Flags: TPCCheckFlags…
130 …procedure CheckRestoredMethodResolution(const Path: string; Orig, Rest: TPasMethodResolution; Flag…
131 …procedure CheckRestoredProcNameParts(const Path: string; Orig, Rest: TPasProcedure; Flags: TPCChec…
132 …procedure CheckRestoredProcedure(const Path: string; Orig, Rest: TPasProcedure; Flags: TPCCheckFla…
133 …procedure CheckRestoredOperator(const Path: string; Orig, Rest: TPasOperator; Flags: TPCCheckFlags…
134 …procedure CheckRestoredProcedureBody(const Path: string; Orig, Rest: TProcedureBody; Flags: TPCChe…
135 …procedure CheckRestoredAttributes(const Path: string; Orig, Rest: TPasAttributes; Flags: TPCCheckF…
136 …procedure CheckRestoredImplCommand(const Path: string; Orig, Rest: TPasImplCommand; Flags: TPCChec…
137 …procedure CheckRestoredImplBeginBlock(const Path: string; Orig, Rest: TPasImplBeginBlock; Flags: T…
138 …procedure CheckRestoredImplAsmStatement(const Path: string; Orig, Rest: TPasImplAsmStatement; Flag…
139 …procedure CheckRestoredImplRepeatUntil(const Path: string; Orig, Rest: TPasImplRepeatUntil; Flags:…
140 …procedure CheckRestoredImplIfElse(const Path: string; Orig, Rest: TPasImplIfElse; Flags: TPCCheckF…
141 …procedure CheckRestoredImplWhileDo(const Path: string; Orig, Rest: TPasImplWhileDo; Flags: TPCChec…
142 …procedure CheckRestoredImplWithDo(const Path: string; Orig, Rest: TPasImplWithDo; Flags: TPCCheckF…
143 …procedure CheckRestoredImplCaseOf(const Path: string; Orig, Rest: TPasImplCaseOf; Flags: TPCCheckF…
144 …procedure CheckRestoredImplCaseStatement(const Path: string; Orig, Rest: TPasImplCaseStatement; Fl…
145 …procedure CheckRestoredImplCaseElse(const Path: string; Orig, Rest: TPasImplCaseElse; Flags: TPCCh…
146 …procedure CheckRestoredImplForLoop(const Path: string; Orig, Rest: TPasImplForLoop; Flags: TPCChec…
147 …procedure CheckRestoredImplAssign(const Path: string; Orig, Rest: TPasImplAssign; Flags: TPCCheckF…
148 …procedure CheckRestoredImplSimple(const Path: string; Orig, Rest: TPasImplSimple; Flags: TPCCheckF…
149 …procedure CheckRestoredImplTry(const Path: string; Orig, Rest: TPasImplTry; Flags: TPCCheckFlags);…
150 …procedure CheckRestoredImplTryHandler(const Path: string; Orig, Rest: TPasImplTryHandler; Flags: T…
151 …procedure CheckRestoredImplExceptOn(const Path: string; Orig, Rest: TPasImplExceptOn; Flags: TPCCh…
152 …procedure CheckRestoredImplRaise(const Path: string; Orig, Rest: TPasImplRaise; Flags: TPCCheckFla…
532 Rest: TObject): boolean;
536 if Rest<>nil then
537 Fail(Path+': Orig=nil Rest='+GetObjName(Rest));
540 else if Rest=nil then
542 if Orig.ClassType<>Rest.ClassType then
543 Fail(Path+': Orig='+GetObjName(Orig)+' Rest='+GetObjName(Rest));
547 procedure TCustomTestPrecompile.CheckRestoredJS(const Path, Orig, Rest: string);
551 if Orig=Rest then exit;
556 writeln(Rest);
562 RestList.Text:=Rest;
571 Orig, Rest: TStrings);
575 CheckRestoredObject(Path,Orig,Rest);
577 if Orig.Text=Rest.Text then exit;
580 if i>=Rest.Count then
584 if Orig.Count<Rest.Count then
585 Fail(Path+' too much: '+Rest[Orig.Count]);
609 Orig, Rest: TPasDeclarations; Flags: TPCCheckFlags);
618 if i>=Rest.Declarations.Count then
619 AssertEquals(Path+'.Declarations.Count',Orig.Declarations.Count,Rest.Declarations.Count);
620 RestDecl:=TPasElement(Rest.Declarations[i]);
628 AssertEquals(Path+'.Declarations.Count',Orig.Declarations.Count,Rest.Declarations.Count);
632 Rest: TPasSection; Flags: TPCCheckFlags);
636 CheckRestoredDeclarations(Path,Orig,Rest,Flags);
640 Rest: TPasModule; Flags: TPCCheckFlags);
653 CheckRestoredElement(Path+'.InterfaceSection',Orig.InterfaceSection,Rest.InterfaceSection,Flags);
654 …CheckRestoredElement(Path+'.ImplementationSection',Orig.ImplementationSection,Rest.ImplementationS…
656 …CheckRestoredElement(Path+'.ProgramSection',TPasProgram(Orig).ProgramSection,TPasProgram(Rest).Pro…
658 …CheckRestoredElement(Path+'.LibrarySection',TPasLibrary(Orig).LibrarySection,TPasLibrary(Rest).Lib…
660 …CheckInitFinal(Path+'.InitializationSection',Orig.InitializationSection,Rest.InitializationSection…
661 CheckInitFinal(Path+'.FnializationSection',Orig.FinalizationSection,Rest.FinalizationSection);
665 Orig, Rest: TPasScope; Flags: TPCCheckFlags);
667 if not CheckRestoredObject(Path,Orig,Rest) then exit;
668 CheckRestoredReference(Path+'.Element',Orig.Element,Rest.Element);
673 Orig, Rest: TPasElementBase; Flags: TPCCheckFlags);
675 CheckRestoredObject(Path+'.CustomData',Orig.CustomData,Rest.CustomData);
680 Orig, Rest: TResolveData; Flags: TPCCheckFlags);
682 CheckRestoredElementBase(Path,Orig,Rest,Flags);
686 Rest: TPasScope; Flags: TPCCheckFlags);
688 CheckRestoredReference(Path+'.VisibilityContext',Orig.VisibilityContext,Rest.VisibilityContext);
689 CheckRestoredResolveData(Path,Orig,Rest,Flags);
693 Orig, Rest: TPas2JSModuleScope; Flags: TPCCheckFlags);
695 AssertEquals(Path+'.FirstName',Orig.FirstName,Rest.FirstName);
696 if Orig.Flags<>Rest.Flags then
698 if Orig.BoolSwitches<>Rest.BoolSwitches then
700 CheckRestoredReference(Path+'.AssertClass',Orig.AssertClass,Rest.AssertClass);
701 …CheckRestoredReference(Path+'.AssertDefConstructor',Orig.AssertDefConstructor,Rest.AssertDefConstr…
702 …CheckRestoredReference(Path+'.AssertMsgConstructor',Orig.AssertMsgConstructor,Rest.AssertMsgConstr…
703 CheckRestoredReference(Path+'.RangeErrorClass',Orig.RangeErrorClass,Rest.RangeErrorClass);
704 …CheckRestoredReference(Path+'.RangeErrorConstructor',Orig.RangeErrorConstructor,Rest.RangeErrorCon…
705 CheckRestoredReference(Path+'.SystemTVarRec',Orig.SystemTVarRec,Rest.SystemTVarRec);
706 CheckRestoredReference(Path+'.SystemVarRecs',Orig.SystemVarRecs,Rest.SystemVarRecs);
707 CheckRestoredPasScope(Path,Orig,Rest,Flags);
711 const Path: string; Orig, Rest: TPasIdentifierScope; Flags: TPCCheckFlags);
723 RestIdentifier:=Rest.FindLocalIdentifier(OrigIdentifier.Identifier);
750 CheckRestoredPasScope(Path,Orig,Rest,Flags);
754 Orig, Rest: TPas2JSSectionScope; Flags: TPCCheckFlags);
760 if Orig.BoolSwitches<>Rest.BoolSwitches then
761 …witches Orig='+BoolSwitchesToStr(Orig.BoolSwitches)+' Rest='+BoolSwitchesToStr(Rest.BoolSwitches));
762 if Orig.ModeSwitches<>Rest.ModeSwitches then
764 AssertEquals(Path+' UsesScopes.Count',Orig.UsesScopes.Count,Rest.UsesScopes.Count);
768 if not (TObject(Rest.UsesScopes[i]) is TPas2JSSectionScope) then
769 Fail(Path+'.UsesScopes['+IntToStr(i)+'] Rest='+GetObjName(TObject(Rest.UsesScopes[i])));
770 RestUses:=TPas2JSSectionScope(Rest.UsesScopes[i]);
775 AssertEquals(Path+' length(Helpers)',length(Orig.Helpers),length(Rest.Helpers));
779 RestHelperEntry:=TPRHelperEntry(Rest.Helpers[i]);
787 AssertEquals(Path+'.Finished',Orig.Finished,Rest.Finished);
788 CheckRestoredIdentifierScope(Path,Orig,Rest,Flags);
792 const Path: string; Orig, Rest: TPas2JSInitialFinalizationScope;
795 CheckRestoredScopeRefs(Path+'.References',Orig.References,Rest.References,Flags);
796 if Orig.JS<>Rest.JS then
797 CheckRestoredJS(Path+'.JS',Orig.JS,Rest.JS);
801 Orig, Rest: TPasEnumTypeScope; Flags: TPCCheckFlags);
803 CheckRestoredReference(Path+'.CanonicalSet',Orig.CanonicalSet,Rest.CanonicalSet);
804 CheckRestoredIdentifierScope(Path,Orig,Rest,Flags);
808 Orig, Rest: TPas2jsRecordScope; Flags: TPCCheckFlags);
810 CheckRestoredReference(Path+'.DefaultProperty',Orig.DefaultProperty,Rest.DefaultProperty);
811 CheckRestoredIdentifierScope(Path,Orig,Rest,Flags);
815 Orig, Rest: TPas2JSClassScope; Flags: TPCCheckFlags);
822 CheckRestoredScopeReference(Path+'.AncestorScope',Orig.AncestorScope,Rest.AncestorScope,Flags);
823 CheckRestoredElement(Path+'.CanonicalClassOf',Orig.CanonicalClassOf,Rest.CanonicalClassOf,Flags);
824 CheckRestoredReference(Path+'.DirectAncestor',Orig.DirectAncestor,Rest.DirectAncestor);
825 CheckRestoredReference(Path+'.DefaultProperty',Orig.DefaultProperty,Rest.DefaultProperty);
826 if Orig.Flags<>Rest.Flags then
828 AssertEquals(Path+'.AbstractProcs.length',length(Orig.AbstractProcs),length(Rest.AbstractProcs));
830 …CheckRestoredReference(Path+'.AbstractProcs['+IntToStr(i)+']',Orig.AbstractProcs[i],Rest.AbstractP…
832 …CheckRestoredReference(Path+'.NewInstanceFunction',Orig.NewInstanceFunction,Rest.NewInstanceFuncti… in Rest.NewInstanceFunction()
833 AssertEquals(Path+'.GUID',Orig.GUID,Rest.GUID);
834 AssertEquals(Path+'.DispatchField',Orig.DispatchField,Rest.DispatchField);
835 AssertEquals(Path+'.DispatchStrField',Orig.DispatchStrField,Rest.DispatchStrField);
837 CheckRestoredObject('.Interfaces',Orig.Interfaces,Rest.Interfaces);
840 AssertEquals(Path+'.Interfaces.Count',Orig.Interfaces.Count,Rest.Interfaces.Count);
845 RestObj:=TObject(Rest.Interfaces[i]);
884 CheckRestoredIdentifierScope(Path,Orig,Rest,Flags);
888 Orig, Rest: TPas2JSProcedureScope; Flags: TPCCheckFlags);
892 CheckRestoredReference(Path+'.DeclarationProc',Orig.DeclarationProc,Rest.DeclarationProc);
893 CheckRestoredReference(Path+'.ImplProc',Orig.ImplProc,Rest.ImplProc);
894 if Orig.BodyJS<>Rest.BodyJS then
895 CheckRestoredJS(Path+'.BodyJS',Orig.BodyJS,Rest.BodyJS);
897 CheckRestoredStringList(Path+'.GlobalJS',Orig.GlobalJS,Rest.GlobalJS);
899 if Rest.DeclarationProc=nil then
901 DeclProc:=TPasProcedure(Rest.Element);
902 AssertEquals(Path+'.ResultVarName',Orig.ResultVarName,Rest.ResultVarName);
903 CheckRestoredReference(Path+'.OverriddenProc',Orig.OverriddenProc,Rest.OverriddenProc);
905 CheckRestoredScopeReference(Path+'.ClassScope',Orig.ClassRecScope,Rest.ClassRecScope,Flags);
906 CheckRestoredElement(Path+'.SelfArg',Orig.SelfArg,Rest.SelfArg,Flags);
907 if Orig.Flags<>Rest.Flags then
909 if Orig.BoolSwitches<>Rest.BoolSwitches then
911 if Orig.ModeSwitches<>Rest.ModeSwitches then
916 CheckRestoredScopeRefs(Path+'.References',Orig.References,Rest.References,Flags);
927 Orig, Rest: TPasScopeReferences; Flags: TPCCheckFlags);
934 CheckRestoredObject(Path,Orig,Rest);
940 RestList:=Rest.GetList;
967 Orig, Rest: TPasPropertyScope; Flags: TPCCheckFlags);
969 CheckRestoredReference(Path+'.AncestorProp',Orig.AncestorProp,Rest.AncestorProp);
970 CheckRestoredIdentifierScope(Path,Orig,Rest,Flags);
974 const Path: string; Orig, Rest: TPasGenericParamsScope; Flags: TPCCheckFlags);
979 if Rest<>nil then ;
984 const Path: string; Orig, Rest: TPasSpecializeTypeData; Flags: TPCCheckFlags);
987 CheckRestoredReference(Path+'.SpecializedType',Orig.SpecializedType,Rest.SpecializedType);
991 const Path: string; Orig, Rest: TResolvedReference; Flags: TPCCheckFlags);
995 if Orig.Flags<>Rest.Flags then
997 if Orig.Access<>Rest.Access then
998 …uals(Path+'.Access',PCUResolvedRefAccessNames[Orig.Access],PCUResolvedRefAccessNames[Rest.Access]);
999 if not CheckRestoredObject(Path+'.Context',Orig.Context,Rest.Context) then exit;
1006 TResolvedRefCtxConstructor(Rest.Context).Typ);
1008 CheckRestoredScopeReference(Path+'.WithExprScope',Orig.WithExprScope,Rest.WithExprScope,Flags);
1009 CheckRestoredReference(Path+'.Declaration',Orig.Declaration,Rest.Declaration);
1011 CheckRestoredResolveData(Path,Orig,Rest,Flags);
1015 Orig, Rest: TResEvalValue);
1019 if not CheckRestoredObject(Path,Orig,Rest) then exit;
1020 if Orig.Kind<>Rest.Kind then
1022 if not CheckRestoredObject(Path+'.Element',Orig.Element,Rest.Element) then exit;
1023 CheckRestoredReference(Path+'.IdentEl',Orig.IdentEl,Rest.IdentEl);
1028 revkBool: AssertEquals(Path+'.B',TResEvalBool(Orig).B,TResEvalBool(Rest).B);
1029 revkInt: AssertEquals(Path+'.Int',TResEvalInt(Orig).Int,TResEvalInt(Rest).Int);
1031 if TResEvalUInt(Orig).UInt<>TResEvalUInt(Rest).UInt then
1033 …revkFloat: AssertEquals(Path+'.FloatValue',TResEvalFloat(Orig).FloatValue,TResEvalFloat(Rest).Floa…
1034 revkString: AssertEquals(Path+'.S,Raw',TResEvalString(Orig).S,TResEvalString(Rest).S);
1035 …eString: AssertEquals(Path+'.S,UTF16',String(TResEvalUTF16(Orig).S),String(TResEvalUTF16(Rest).S));
1038 AssertEquals(Path+'.Index',TResEvalEnum(Orig).Index,TResEvalEnum(Rest).Index);
1039 CheckRestoredReference(Path+'.ElType',TResEvalEnum(Orig).ElType,TResEvalEnum(Rest).ElType);
1043 if TResEvalRangeInt(Orig).ElKind<>TResEvalRangeInt(Rest).ElKind then
1045 …CheckRestoredReference(Path+'.Int/ElType',TResEvalRangeInt(Orig).ElType,TResEvalRangeInt(Rest).ElT…
1046 …AssertEquals(Path+'.Int/RangeStart',TResEvalRangeInt(Orig).RangeStart,TResEvalRangeInt(Rest).Range…
1047 …AssertEquals(Path+'.Int/RangeEnd',TResEvalRangeInt(Orig).RangeEnd,TResEvalRangeInt(Rest).RangeEnd);
1051 if TResEvalRangeUInt(Orig).RangeStart<>TResEvalRangeUInt(Rest).RangeStart then
1053 if TResEvalRangeUInt(Orig).RangeEnd<>TResEvalRangeUInt(Rest).RangeEnd then
1058 if TResEvalSet(Orig).ElKind<>TResEvalSet(Rest).ElKind then
1060 … CheckRestoredReference(Path+'.SetInt/ElType',TResEvalSet(Orig).ElType,TResEvalSet(Rest).ElType);
1061 … AssertEquals(Path+'.SetInt/RangeStart',TResEvalSet(Orig).RangeStart,TResEvalSet(Rest).RangeStart);
1062 AssertEquals(Path+'.SetInt/RangeEnd',TResEvalSet(Orig).RangeEnd,TResEvalSet(Rest).RangeEnd);
1063 …ls(Path+'.SetInt/length(Items)',length(TResEvalSet(Orig).Ranges),length(TResEvalSet(Rest).Ranges));
1067 TResEvalSet(Orig).Ranges[i].RangeStart,TResEvalSet(Rest).Ranges[i].RangeStart);
1069 TResEvalSet(Orig).Ranges[i].RangeEnd,TResEvalSet(Rest).Ranges[i].RangeEnd);
1076 RestoredEl: TPasElement; Orig, Rest: TObject; Flags: TPCCheckFlags);
1082 if (Rest=nil) and (Orig<>nil) then
1097 if not CheckRestoredObject(Path,Orig,Rest) then exit;
1101 …olvedReference(Path+'[TResolvedReference]',TResolvedReference(Orig),TResolvedReference(Rest),Flags)
1103 …redModuleScope(Path+'[TPas2JSModuleScope]',TPas2JSModuleScope(Orig),TPas2JSModuleScope(Rest),Flags)
1105 …ectionScope(Path+'[TPas2JSSectionScope]',TPas2JSSectionScope(Orig),TPas2JSSectionScope(Rest),Flags)
1107 …alizationScope]',TPas2JSInitialFinalizationScope(Orig),TPas2JSInitialFinalizationScope(Rest),Flags)
1109 …oredEnumTypeScope(Path+'[TPasEnumTypeScope]',TPasEnumTypeScope(Orig),TPasEnumTypeScope(Rest),Flags)
1111 …redRecordScope(Path+'[TPas2jsRecordScope]',TPas2jsRecordScope(Orig),TPas2jsRecordScope(Rest),Flags)
1113 …estoredClassScope(Path+'[TPas2JSClassScope]',TPas2JSClassScope(Orig),TPas2JSClassScope(Rest),Flags)
1115 …Scope(Path+'[TPas2JSProcedureScope]',TPas2JSProcedureScope(Orig),TPas2JSProcedureScope(Rest),Flags)
1117 …oredPropertyScope(Path+'[TPasPropertyScope]',TPasPropertyScope(Orig),TPasPropertyScope(Rest),Flags)
1119 …ope(Path+'[TPasGenericParamScope]',TPasGenericParamsScope(Orig),TPasGenericParamsScope(Rest),Flags)
1121 …ta(Path+'[TPasSpecializeTypeData]',TPasSpecializeTypeData(Orig),TPasSpecializeTypeData(Rest),Flags)
1123 CheckRestoredEvalValue(Path+'['+Orig.ClassName+']',TResEvalValue(Orig),TResEvalValue(Rest))
1129 Orig, Rest: TPasElement);
1131 if not CheckRestoredObject(Path,Orig,Rest) then exit;
1132 AssertEquals(Path+'.Name',Orig.Name,Rest.Name);
1137 CheckRestoredReference(Path+'.Parent',Orig.Parent,Rest.Parent);
1141 OrigProp, Rest, RestProp: TPasElement; Flags: TPCCheckFlags);
1146 if Rest=RestProp.Parent then
1155 const Path: string; Orig, Rest: TPasElement);
1166 RestUsed:=RestAnalyzer.FindUsedElement(Rest);
1172 else if RestAnalyzer.IsUsed(Rest) then
1179 Rest: TPasElement; Flags: TPCCheckFlags);
1185 if not CheckRestoredObject(Path,Orig,Rest) then exit;
1194 if not SameText(Orig.Name,Rest.Name) then
1195 AssertEquals(Path+'.Name',Orig.Name,Rest.Name);
1196 if not CheckRestoredObject(Path+'.CustomData',Orig.CustomData,Rest.CustomData) then exit;
1202 AssertEquals(Path+'.Name',Orig.Name,Rest.Name);
1203 AssertEquals(Path+'.SourceFilename',Orig.SourceFilename,Rest.SourceFilename);
1204 AssertEquals(Path+'.SourceLinenumber',Orig.SourceLinenumber,Rest.SourceLinenumber);
1206 if Orig.Visibility<>Rest.Visibility then
1207 …ibility '+PCUMemberVisibilityNames[Orig.Visibility]+' '+PCUMemberVisibilityNames[Rest.Visibility]);
1208 if Orig.Hints<>Rest.Hints then
1210 AssertEquals(Path+'.HintMessage',Orig.HintMessage,Rest.HintMessage);
1213 CheckRestoredReference(Path+'.Parent',Orig.Parent,Rest.Parent);
1223 else if Rest.CustomData<>nil then
1224 CheckRestoredCustomData(Path+'.CustomData',Rest,Orig.CustomData,Rest.CustomData,Flags);
1227 CheckRestoredCustomData(Path+'.CustomData',Rest,Orig.CustomData,Rest.CustomData,Flags);
1230 CheckRestoredUnaryExpr(Path,TUnaryExpr(Orig),TUnaryExpr(Rest),Flags)
1232 CheckRestoredBinaryExpr(Path,TBinaryExpr(Orig),TBinaryExpr(Rest),Flags)
1234 CheckRestoredPrimitiveExpr(Path,TPrimitiveExpr(Orig),TPrimitiveExpr(Rest),Flags)
1236 CheckRestoredBoolConstExpr(Path,TBoolConstExpr(Orig),TBoolConstExpr(Rest),Flags)
1240 CheckRestoredPasExpr(Path,TPasExpr(Orig),TPasExpr(Rest),Flags)
1242 CheckRestoredParamsExpr(Path,TParamsExpr(Orig),TParamsExpr(Rest),Flags)
1244 CheckRestoredProcedureExpr(Path,TProcedureExpr(Orig),TProcedureExpr(Rest),Flags)
1246 CheckRestoredRecordValues(Path,TRecordValues(Orig),TRecordValues(Rest),Flags)
1248 CheckRestoredArrayValues(Path,TArrayValues(Orig),TArrayValues(Rest),Flags)
1253 CheckRestoredResString(Path,TPasResString(Orig),TPasResString(Rest),Flags)
1258 CheckRestoredAliasType(Path,TPasAliasType(Orig),TPasAliasType(Rest),Flags)
1260 CheckRestoredPointerType(Path,TPasPointerType(Orig),TPasPointerType(Rest),Flags)
1262 CheckRestoredSpecializedType(Path,TPasSpecializeType(Orig),TPasSpecializeType(Rest),Flags)
1264 …CheckRestoredInlineSpecializedExpr(Path,TInlineSpecializeExpr(Orig),TInlineSpecializeExpr(Rest),Fl…
1266 …RestoredGenericTemplateType(Path,TPasGenericTemplateType(Orig),TPasGenericTemplateType(Rest),Flags)
1268 CheckRestoredRangeType(Path,TPasRangeType(Orig),TPasRangeType(Rest),Flags)
1270 CheckRestoredArrayType(Path,TPasArrayType(Orig),TPasArrayType(Rest),Flags)
1272 CheckRestoredFileType(Path,TPasFileType(Orig),TPasFileType(Rest),Flags)
1274 CheckRestoredEnumValue(Path,TPasEnumValue(Orig),TPasEnumValue(Rest),Flags)
1276 CheckRestoredEnumType(Path,TPasEnumType(Orig),TPasEnumType(Rest),Flags)
1278 CheckRestoredSetType(Path,TPasSetType(Orig),TPasSetType(Rest),Flags)
1280 CheckRestoredVariant(Path,TPasVariant(Orig),TPasVariant(Rest),Flags)
1282 CheckRestoredRecordType(Path,TPasRecordType(Orig),TPasRecordType(Rest),Flags)
1284 CheckRestoredClassType(Path,TPasClassType(Orig),TPasClassType(Rest),Flags)
1286 CheckRestoredArgument(Path,TPasArgument(Orig),TPasArgument(Rest),Flags)
1288 CheckRestoredProcedureType(Path,TPasProcedureType(Orig),TPasProcedureType(Rest),Flags)
1290 CheckRestoredResultElement(Path,TPasResultElement(Orig),TPasResultElement(Rest),Flags)
1292 CheckRestoredFunctionType(Path,TPasFunctionType(Orig),TPasFunctionType(Rest),Flags)
1294 CheckRestoredStringType(Path,TPasStringType(Orig),TPasStringType(Rest),Flags)
1296 CheckRestoredVariable(Path,TPasVariable(Orig),TPasVariable(Rest),Flags)
1298 CheckRestoredExportSymbol(Path,TPasExportSymbol(Orig),TPasExportSymbol(Rest),Flags)
1300 CheckRestoredConst(Path,TPasConst(Orig),TPasConst(Rest),Flags)
1302 CheckRestoredProperty(Path,TPasProperty(Orig),TPasProperty(Rest),Flags)
1304 CheckRestoredMethodResolution(Path,TPasMethodResolution(Orig),TPasMethodResolution(Rest),Flags)
1314 CheckRestoredProcedure(Path,TPasProcedure(Orig),TPasProcedure(Rest),Flags)
1317 CheckRestoredOperator(Path,TPasOperator(Orig),TPasOperator(Rest),Flags)
1319 CheckRestoredImplCommand(Path,TPasImplCommand(Orig),TPasImplCommand(Rest),Flags)
1321 CheckRestoredImplBeginBlock(Path,TPasImplBeginBlock(Orig),TPasImplBeginBlock(Rest),Flags)
1323 CheckRestoredImplAsmStatement(Path,TPasImplAsmStatement(Orig),TPasImplAsmStatement(Rest),Flags)
1325 CheckRestoredImplRepeatUntil(Path,TPasImplRepeatUntil(Orig),TPasImplRepeatUntil(Rest),Flags)
1327 CheckRestoredImplIfElse(Path,TPasImplIfElse(Orig),TPasImplIfElse(Rest),Flags)
1329 CheckRestoredImplWhileDo(Path,TPasImplWhileDo(Orig),TPasImplWhileDo(Rest),Flags)
1331 CheckRestoredImplWithDo(Path,TPasImplWithDo(Orig),TPasImplWithDo(Rest),Flags)
1333 CheckRestoredImplCaseOf(Path,TPasImplCaseOf(Orig),TPasImplCaseOf(Rest),Flags)
1335 … CheckRestoredImplCaseStatement(Path,TPasImplCaseStatement(Orig),TPasImplCaseStatement(Rest),Flags)
1337 CheckRestoredImplCaseElse(Path,TPasImplCaseElse(Orig),TPasImplCaseElse(Rest),Flags)
1339 CheckRestoredImplForLoop(Path,TPasImplForLoop(Orig),TPasImplForLoop(Rest),Flags)
1341 CheckRestoredImplAssign(Path,TPasImplAssign(Orig),TPasImplAssign(Rest),Flags)
1343 CheckRestoredImplSimple(Path,TPasImplSimple(Orig),TPasImplSimple(Rest),Flags)
1345 CheckRestoredImplTry(Path,TPasImplTry(Orig),TPasImplTry(Rest),Flags)
1349 CheckRestoredImplTryHandler(Path,TPasImplTryHandler(Orig),TPasImplTryHandler(Rest),Flags)
1351 CheckRestoredImplExceptOn(Path,TPasImplExceptOn(Orig),TPasImplExceptOn(Rest),Flags)
1353 CheckRestoredImplRaise(Path,TPasImplRaise(Orig),TPasImplRaise(Rest),Flags)
1357 CheckRestoredModule(Path,TPasModule(Orig),TPasModule(Rest),Flags)
1359 CheckRestoredSection(Path,TPasSection(Orig),TPasSection(Rest),Flags)
1361 CheckRestoredAttributes(Path,TPasAttributes(Orig),TPasAttributes(Rest),Flags)
1365 CheckRestoredAnalyzerElement(Path,Orig,Rest);
1369 Orig, Rest: TFPList; Flags: TPCCheckFlags);
1375 if not CheckRestoredObject(Path,Orig,Rest) then exit;
1376 AssertEquals(Path+'.Count',Orig.Count,Rest.Count);
1383 RestItem:=TObject(Rest[i]);
1393 Orig, Rest: TPasElementArray; Flags: TPCCheckFlags);
1399 AssertEquals(Path+'.length',length(Orig),length(Rest));
1406 RestItem:=Rest[i];
1417 Rest: TFPList; AllowInSitu: boolean; Flags: TPCCheckFlags);
1423 if not CheckRestoredObject(Path,Orig,Rest) then exit;
1424 AssertEquals(Path+'.Count',Orig.Count,Rest.Count);
1431 RestItem:=TObject(Rest[i]);
1442 Rest: TPasExpr; Flags: TPCCheckFlags);
1444 if Orig.Kind<>Rest.Kind then
1446 if Orig.OpCode<>Rest.OpCode then
1448 CheckRestoredElement(Path+'.Format1',Orig.format1,Rest.format1,Flags);
1449 CheckRestoredElement(Path+'.Format2',Orig.format2,Rest.format2,Flags);
1453 Orig, Rest: TUnaryExpr; Flags: TPCCheckFlags);
1455 CheckRestoredElement(Path+'.Operand',Orig.Operand,Rest.Operand,Flags);
1456 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1460 Orig, Rest: TBinaryExpr; Flags: TPCCheckFlags);
1462 CheckRestoredElement(Path+'.left',Orig.left,Rest.left,Flags);
1463 CheckRestoredElement(Path+'.right',Orig.right,Rest.right,Flags);
1464 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1468 Orig, Rest: TPrimitiveExpr; Flags: TPCCheckFlags);
1470 AssertEquals(Path+'.Value',Orig.Value,Rest.Value);
1471 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1475 Orig, Rest: TBoolConstExpr; Flags: TPCCheckFlags);
1477 AssertEquals(Path+'.Value',Orig.Value,Rest.Value);
1478 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1482 Orig, Rest: TParamsExpr; Flags: TPCCheckFlags);
1484 CheckRestoredElement(Path+'.Value',Orig.Value,Rest.Value,Flags);
1485 CheckRestoredPasExprArray(Path+'.Params',Orig.Params,Rest.Params,Flags);
1486 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1490 Orig, Rest: TProcedureExpr; Flags: TPCCheckFlags);
1492 CheckRestoredProcedure(Path+'$Ano',Orig.Proc,Rest.Proc,Flags);
1493 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1497 Orig, Rest: TRecordValues; Flags: TPCCheckFlags);
1501 AssertEquals(Path+'.Fields.length',length(Orig.Fields),length(Rest.Fields));
1504 AssertEquals(Path+'.Field['+IntToStr(i)+'].Name',Orig.Fields[i].Name,Rest.Fields[i].Name);
1505 …CheckRestoredElement(Path+'.Field['+IntToStr(i)+'].ValueExp',Orig.Fields[i].ValueExp,Rest.Fields[i…
1507 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1511 Orig, Rest: TPasExprArray; Flags: TPCCheckFlags);
1515 AssertEquals(Path+'.length',length(Orig),length(Rest));
1517 CheckRestoredElement(Path+'['+IntToStr(i)+']',Orig[i],Rest[i],Flags);
1521 Orig, Rest: TArrayValues; Flags: TPCCheckFlags);
1523 CheckRestoredPasExprArray(Path+'.Values',Orig.Values,Rest.Values,Flags);
1524 CheckRestoredPasExpr(Path,Orig,Rest,Flags);
1528 Orig, Rest: TPasResString; Flags: TPCCheckFlags);
1530 CheckRestoredElement(Path+'.Expr',Orig.Expr,Rest.Expr,Flags);
1534 Orig, Rest: TPasAliasType; Flags: TPCCheckFlags);
1536 CheckRestoredElOrRef(Path+'.DestType',Orig,Orig.DestType,Rest,Rest.DestType,Flags);
1537 CheckRestoredElement(Path+'.Expr',Orig.Expr,Rest.Expr,Flags);
1541 Orig, Rest: TPasPointerType; Flags: TPCCheckFlags);
1543 CheckRestoredElOrRef(Path+'.DestType',Orig,Orig.DestType,Rest,Rest.DestType,Flags);
1547 const Path: string; Orig, Rest: TPasSpecializeType; Flags: TPCCheckFlags);
1549 CheckRestoredElementList(Path+'.Params',Orig.Params,Rest.Params,Flags);
1550 CheckRestoredElOrRef(Path+'.DestType',Orig,Orig.DestType,Rest,Rest.DestType,Flags);
1554 const Path: string; Orig, Rest: TInlineSpecializeExpr; Flags: TPCCheckFlags);
1556 CheckRestoredElement(Path+'.Name',Orig.NameExpr,Rest.NameExpr,Flags);
1557 CheckRestoredElementList(Path+'.Params',Orig.Params,Rest.Params,Flags);
1561 const Path: string; Orig, Rest: TPasGenericTemplateType; Flags: TPCCheckFlags
1564 CheckRestoredElementArray(Path+'.Constraints',Orig.Constraints,Rest.Constraints,Flags);
1568 Orig, Rest: TPasRangeType; Flags: TPCCheckFlags);
1570 CheckRestoredElement(Path+'.RangeExpr',Orig.RangeExpr,Rest.RangeExpr,Flags);
1574 Orig, Rest: TPasArrayType; Flags: TPCCheckFlags);
1576 CheckRestoredPasExprArray(Path+'.Ranges',Orig.Ranges,Rest.Ranges,Flags);
1577 …CheckRestoredElementList(Path+'.GenericTemplateTypes',Orig.GenericTemplateTypes,Rest.GenericTempla…
1578 if Orig.PackMode<>Rest.PackMode then
1579 …Fail(Path+'.PackMode Orig='+PCUPackModeNames[Orig.PackMode]+' Rest='+PCUPackModeNames[Rest.PackMod…
1580 CheckRestoredElOrRef(Path+'.ElType',Orig,Orig.ElType,Rest,Rest.ElType,Flags);
1584 Rest: TPasFileType; Flags: TPCCheckFlags);
1586 CheckRestoredElOrRef(Path+'.ElType',Orig,Orig.ElType,Rest,Rest.ElType,Flags);
1590 Orig, Rest: TPasEnumValue; Flags: TPCCheckFlags);
1592 CheckRestoredElement(Path+'.Value',Orig.Value,Rest.Value,Flags);
1596 Rest: TPasEnumType; Flags: TPCCheckFlags);
1598 CheckRestoredElementList(Path+'.Values',Orig.Values,Rest.Values,Flags);
1602 Rest: TPasSetType; Flags: TPCCheckFlags);
1604 CheckRestoredElOrRef(Path+'.EnumType',Orig,Orig.EnumType,Rest,Rest.EnumType,Flags);
1605 AssertEquals(Path+'.IsPacked',Orig.IsPacked,Rest.IsPacked);
1609 Rest: TPasVariant; Flags: TPCCheckFlags);
1611 CheckRestoredElementList(Path+'.Values',Orig.Values,Rest.Values,Flags);
1612 CheckRestoredElement(Path+'.Members',Orig.Members,Rest.Members,Flags);
1616 Orig, Rest: TPasRecordType; Flags: TPCCheckFlags);
1618 …CheckRestoredElementList(Path+'.GenericTemplateTypes',Orig.GenericTemplateTypes,Rest.GenericTempla…
1619 if Orig.PackMode<>Rest.PackMode then
1620 …Fail(Path+'.PackMode Orig='+PCUPackModeNames[Orig.PackMode]+' Rest='+PCUPackModeNames[Rest.PackMod…
1621 CheckRestoredElementList(Path+'.Members',Orig.Members,Rest.Members,Flags);
1622 CheckRestoredElOrRef(Path+'.VariantEl',Orig,Orig.VariantEl,Rest,Rest.VariantEl,Flags);
1623 CheckRestoredElementList(Path+'.Variants',Orig.Variants,Rest.Variants,Flags);
1624 …CheckRestoredElementList(Path+'.GenericTemplateTypes',Orig.GenericTemplateTypes,Rest.GenericTempla…
1628 Orig, Rest: TPasClassType; Flags: TPCCheckFlags);
1630 …CheckRestoredElementList(Path+'.GenericTemplateTypes',Orig.GenericTemplateTypes,Rest.GenericTempla…
1631 if Orig.PackMode<>Rest.PackMode then
1632 …Fail(Path+'.PackMode Orig='+PCUPackModeNames[Orig.PackMode]+' Rest='+PCUPackModeNames[Rest.PackMod…
1633 if Orig.ObjKind<>Rest.ObjKind then
1634 … Fail(Path+'.ObjKind Orig='+PCUObjKindNames[Orig.ObjKind]+' Rest='+PCUObjKindNames[Rest.ObjKind]);
1635 if Orig.InterfaceType<>Rest.InterfaceType then
1636 …assInterfaceTypeNames[Orig.InterfaceType]+' Rest='+PCUClassInterfaceTypeNames[Rest.InterfaceType]);
1637 CheckRestoredReference(Path+'.AncestorType',Orig.AncestorType,Rest.AncestorType);
1638 CheckRestoredReference(Path+'.HelperForType',Orig.HelperForType,Rest.HelperForType);
1639 AssertEquals(Path+'.IsForward',Orig.IsForward,Rest.IsForward);
1640 AssertEquals(Path+'.IsExternal',Orig.IsExternal,Rest.IsExternal);
1642 CheckRestoredElement(Path+'.GUIDExpr',Orig.GUIDExpr,Rest.GUIDExpr,Flags);
1643 CheckRestoredElementList(Path+'.Members',Orig.Members,Rest.Members,Flags);
1644 AssertEquals(Path+'.Modifiers',Orig.Modifiers.Text,Rest.Modifiers.Text);
1645 CheckRestoredElRefList(Path+'.Interfaces',Orig,Orig.Interfaces,Rest,Rest.Interfaces,false,Flags);
1646 …CheckRestoredElementList(Path+'.GenericTemplateTypes',Orig.GenericTemplateTypes,Rest.GenericTempla…
1647 AssertEquals(Path+'.ExternalNameSpace',Orig.ExternalNameSpace,Rest.ExternalNameSpace);
1648 AssertEquals(Path+'.ExternalName',Orig.ExternalName,Rest.ExternalName);
1652 Rest: TPasArgument; Flags: TPCCheckFlags);
1654 if Orig.Access<>Rest.Access then
1655 …+'.Access Orig='+PCUArgumentAccessNames[Orig.Access]+' Rest='+PCUArgumentAccessNames[Rest.Access]);
1656 CheckRestoredElOrRef(Path+'.ArgType',Orig,Orig.ArgType,Rest,Rest.ArgType,Flags);
1657 CheckRestoredElement(Path+'.ValueExpr',Orig.ValueExpr,Rest.ValueExpr,Flags);
1661 Orig, Rest: TPasProcedureType; Flags: TPCCheckFlags);
1663 …CheckRestoredElementList(Path+'.GenericTemplateTypes',Orig.GenericTemplateTypes,Rest.GenericTempla…
1664 CheckRestoredElementList(Path+'.Args',Orig.Args,Rest.Args,Flags);
1665 if Orig.CallingConvention<>Rest.CallingConvention then
1666 …onventionNames[Orig.CallingConvention]+' Rest='+PCUCallingConventionNames[Rest.CallingConvention]);
1667 if Orig.Modifiers<>Rest.Modifiers then
1672 Orig, Rest: TPasResultElement; Flags: TPCCheckFlags);
1674 CheckRestoredElOrRef(Path+'.ResultType',Orig,Orig.ResultType,Rest,Rest.ResultType,Flags);
1678 Orig, Rest: TPasFunctionType; Flags: TPCCheckFlags);
1680 CheckRestoredElement(Path+'.ResultEl',Orig.ResultEl,Rest.ResultEl,Flags);
1681 CheckRestoredProcedureType(Path,Orig,Rest,Flags);
1685 Orig, Rest: TPasStringType; Flags: TPCCheckFlags);
1687 AssertEquals(Path+'.LengthExpr',Orig.LengthExpr,Rest.LengthExpr);
1692 Rest: TPasVariable; Flags: TPCCheckFlags);
1694 CheckRestoredElOrRef(Path+'.VarType',Orig,Orig.VarType,Rest,Rest.VarType,Flags);
1695 if Orig.VarModifiers<>Rest.VarModifiers then
1697 CheckRestoredElement(Path+'.LibraryName',Orig.LibraryName,Rest.LibraryName,Flags);
1698 CheckRestoredElement(Path+'.ExportName',Orig.ExportName,Rest.ExportName,Flags);
1699 CheckRestoredElement(Path+'.AbsoluteExpr',Orig.AbsoluteExpr,Rest.AbsoluteExpr,Flags);
1700 CheckRestoredElement(Path+'.Expr',Orig.Expr,Rest.Expr,Flags);
1704 Orig, Rest: TPasExportSymbol; Flags: TPCCheckFlags);
1706 CheckRestoredElement(Path+'.ExportName',Orig.ExportName,Rest.ExportName,Flags);
1707 CheckRestoredElement(Path+'.ExportIndex',Orig.ExportIndex,Rest.ExportIndex,Flags);
1711 Rest: TPasConst; Flags: TPCCheckFlags);
1713 AssertEquals(Path+'.IsConst',Orig.IsConst,Rest.IsConst);
1714 CheckRestoredVariable(Path,Orig,Rest,Flags);
1718 Rest: TPasProperty; Flags: TPCCheckFlags);
1720 CheckRestoredElement(Path+'.IndexExpr',Orig.IndexExpr,Rest.IndexExpr,Flags);
1721 CheckRestoredElement(Path+'.ReadAccessor',Orig.ReadAccessor,Rest.ReadAccessor,Flags);
1722 CheckRestoredElement(Path+'.WriteAccessor',Orig.WriteAccessor,Rest.WriteAccessor,Flags);
1723 CheckRestoredElement(Path+'.DispIDExpr',Orig.DispIDExpr,Rest.DispIDExpr,Flags);
1724 CheckRestoredPasExprArray(Path+'.Implements',Orig.Implements,Rest.Implements,Flags);
1725 CheckRestoredElement(Path+'.StoredAccessor',Orig.StoredAccessor,Rest.StoredAccessor,Flags);
1726 CheckRestoredElement(Path+'.DefaultExpr',Orig.DefaultExpr,Rest.DefaultExpr,Flags);
1727 CheckRestoredElementList(Path+'.Args',Orig.Args,Rest.Args,Flags);
1729 AssertEquals(Path+'.DispIDReadOnly',Orig.DispIDReadOnly,Rest.DispIDReadOnly);
1730 AssertEquals(Path+'.IsDefault',Orig.IsDefault,Rest.IsDefault);
1731 AssertEquals(Path+'.IsNodefault',Orig.IsNodefault,Rest.IsNodefault);
1732 CheckRestoredVariable(Path,Orig,Rest,Flags);
1736 const Path: string; Orig, Rest: TPasMethodResolution; Flags: TPCCheckFlags);
1738 AssertEquals(Path+'.ProcClass',Orig.ProcClass,Rest.ProcClass);
1739 CheckRestoredElement(Path+'.InterfaceName',Orig.InterfaceName,Rest.InterfaceName,Flags);
1740 CheckRestoredElement(Path+'.InterfaceProc',Orig.InterfaceProc,Rest.InterfaceProc,Flags);
1741 …CheckRestoredElement(Path+'.ImplementationProc',Orig.ImplementationProc,Rest.ImplementationProc,Fl…
1745 Orig, Rest: TPasProcedure; Flags: TPCCheckFlags);
1753 RestNameParts:=Rest.NameParts;
1772 Orig, Rest: TPasProcedure; Flags: TPCCheckFlags);
1777 CheckRestoredObject(Path+'.CustomData',Orig.CustomData,Rest.CustomData);
1779 RestScope:=Rest.CustomData as TPas2JSProcedureScope;
1788 DeclProc:=Rest;
1789 CheckRestoredProcNameParts(Path,Orig,Rest,Flags);
1790 CheckRestoredElement(Path+'.ProcType',Orig.ProcType,Rest.ProcType,Flags);
1791 CheckRestoredElement(Path+'.PublicName',Orig.PublicName,Rest.PublicName,Flags);
1792 …CheckRestoredElement(Path+'.LibrarySymbolName',Orig.LibrarySymbolName,Rest.LibrarySymbolName,Flags…
1793 CheckRestoredElement(Path+'.LibraryExpr',Orig.LibraryExpr,Rest.LibraryExpr,Flags);
1794 CheckRestoredElement(Path+'.DispIDExpr',Orig.DispIDExpr,Rest.DispIDExpr,Flags);
1795 AssertEquals(Path+'.AliasName',Orig.AliasName,Rest.AliasName);
1796 if Orig.Modifiers<>Rest.Modifiers then
1798 AssertEquals(Path+'.MessageName',Orig.MessageName,Rest.MessageName);
1799 if Orig.MessageType<>Rest.MessageType then
1800 …ocedureMessageTypeNames[Orig.MessageType]+' Rest='+PCUProcedureMessageTypeNames[Rest.MessageType]);
1805 … if Orig.Modifiers*PCUProcedureModifiersImplProc<>Rest.Modifiers*PCUProcedureModifiersImplProc then
1820 CheckRestoredProcedureBody(Path+'.Body',Orig.Body,Rest.Body,Flags+[PCCGeneric]);
1823 else if Rest.Body<>nil then
1828 Rest: TPasOperator; Flags: TPCCheckFlags);
1830 if Orig.OperatorType<>Rest.OperatorType then
1831 …e Orig='+PCUOperatorTypeNames[Orig.OperatorType]+' Rest='+PCUOperatorTypeNames[Rest.OperatorType]);
1832 AssertEquals(Path+'.TokenBased',Orig.TokenBased,Rest.TokenBased);
1833 CheckRestoredProcedure(Path,Orig,Rest,Flags);
1837 Orig, Rest: TProcedureBody; Flags: TPCCheckFlags);
1839 CheckRestoredObject(Path+'.CustomData',Orig.CustomData,Rest.CustomData);
1840 CheckRestoredDeclarations(Path,Orig,Rest,Flags);
1841 CheckRestoredElement(Path+'.Body',Orig.Body,Rest.Body,Flags);
1845 Orig, Rest: TPasAttributes; Flags: TPCCheckFlags);
1847 CheckRestoredPasExprArray(Path+'.Calls',Orig.Calls,Rest.Calls,Flags);
1851 Orig, Rest: TPasImplCommand; Flags: TPCCheckFlags);
1856 if Rest=nil then ;
1860 Orig, Rest: TPasImplBeginBlock; Flags: TPCCheckFlags);
1862 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1866 const Path: string; Orig, Rest: TPasImplAsmStatement; Flags: TPCCheckFlags);
1868 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1869 CheckRestoredStringList(Path+'.Tokens',Orig.Tokens,Rest.Tokens);
1873 const Path: string; Orig, Rest: TPasImplRepeatUntil; Flags: TPCCheckFlags);
1875 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1876 CheckRestoredElement(Path+'.ConditionExpr',Orig.ConditionExpr,Rest.ConditionExpr,Flags);
1880 Orig, Rest: TPasImplIfElse; Flags: TPCCheckFlags);
1882 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1883 CheckRestoredElement(Path+'.ConditionExpr',Orig.ConditionExpr,Rest.ConditionExpr,Flags);
1884 CheckRestoredElement(Path+'.IfBranch',Orig.IfBranch,Rest.IfBranch,Flags);
1885 CheckRestoredElement(Path+'.ElseBranch',Orig.ElseBranch,Rest.ElseBranch,Flags);
1889 Orig, Rest: TPasImplWhileDo; Flags: TPCCheckFlags);
1891 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1892 CheckRestoredElement(Path+'.ConditionExpr',Orig.ConditionExpr,Rest.ConditionExpr,Flags);
1893 CheckRestoredElement(Path+'.Body',Orig.Body,Rest.Body,Flags);
1897 Orig, Rest: TPasImplWithDo; Flags: TPCCheckFlags);
1899 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1900 CheckRestoredElementList(Path+'.ConditionExpr',Orig.Expressions,Rest.Expressions,Flags);
1901 CheckRestoredElement(Path+'.Body',Orig.Body,Rest.Body,Flags);
1905 Orig, Rest: TPasImplCaseOf; Flags: TPCCheckFlags);
1907 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1908 CheckRestoredElement(Path+'.CaseExpr',Orig.CaseExpr,Rest.CaseExpr,Flags);
1909 CheckRestoredElement(Path+'.ElseBranch',Orig.ElseBranch,Rest.ElseBranch,Flags);
1913 const Path: string; Orig, Rest: TPasImplCaseStatement; Flags: TPCCheckFlags);
1915 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1916 CheckRestoredElementList(Path+'.Expressions',Orig.Expressions,Rest.Expressions,Flags);
1917 CheckRestoredElement(Path+'.Body',Orig.Body,Rest.Body,Flags);
1921 Orig, Rest: TPasImplCaseElse; Flags: TPCCheckFlags);
1923 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1927 Orig, Rest: TPasImplForLoop; Flags: TPCCheckFlags);
1929 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1930 if Orig.LoopType<>Rest.LoopType then
1931 AssertEquals(Path+'.LoopType',PCUForLoopType[Orig.LoopType],PCUForLoopType[Rest.LoopType]);
1932 CheckRestoredElement(Path+'.VariableName',Orig.VariableName,Rest.VariableName,Flags);
1933 CheckRestoredElement(Path+'.StartExpr',Orig.StartExpr,Rest.StartExpr,Flags);
1934 CheckRestoredElement(Path+'.EndExpr',Orig.EndExpr,Rest.EndExpr,Flags);
1935 CheckRestoredElement(Path+'.Body',Orig.Body,Rest.Body,Flags);
1936 CheckRestoredElement(Path+'.Variable',Orig.Variable,Rest.Variable,Flags);
1940 Orig, Rest: TPasImplAssign; Flags: TPCCheckFlags);
1942 CheckRestoredElement(Path+'.left',Orig.left,Rest.left,Flags);
1943 CheckRestoredElement(Path+'.right',Orig.right,Rest.right,Flags);
1947 Orig, Rest: TPasImplSimple; Flags: TPCCheckFlags);
1949 CheckRestoredElement(Path+'.Expr',Orig.Expr,Rest.Expr,Flags);
1953 Rest: TPasImplTry; Flags: TPCCheckFlags);
1955 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1956 CheckRestoredElement(Path+'.FinallyExcept',Orig.FinallyExcept,Rest.FinallyExcept,Flags);
1957 CheckRestoredElement(Path+'.ElseBranch',Orig.ElseBranch,Rest.ElseBranch,Flags);
1961 Orig, Rest: TPasImplTryHandler; Flags: TPCCheckFlags);
1963 CheckRestoredElementList(Path+'.Elements',Orig.Elements,Rest.Elements,Flags);
1967 Orig, Rest: TPasImplExceptOn; Flags: TPCCheckFlags);
1969 CheckRestoredElement(Path+'.VarEl',Orig.VarEl,Rest.VarEl,Flags);
1970 CheckRestoredElOrRef(Path+'.TypeEl',Orig,Orig.TypeEl,Rest,Rest.TypeEl,Flags);
1971 CheckRestoredElement(Path+'.Body',Orig.Body,Rest.Body,Flags);
1975 Orig, Rest: TPasImplRaise; Flags: TPCCheckFlags);
1977 CheckRestoredElement(Path+'.ExceptObject',Orig.ExceptObject,Rest.ExceptObject,Flags);
1978 CheckRestoredElement(Path+'.ExceptAddr',Orig.ExceptAddr,Rest.ExceptAddr,Flags);