fcl-passrc: comment about AddRef

git-svn-id: trunk@38274 -

packages/fcl-passrc/src/pasresolveeval.pas

@@ -1151,7 +1151,7 @@ begin
         Result:=EvalBinarySymmetricaldifferenceExpr(Expr,LeftValue,RightValue);
       else
         {$IFDEF VerbosePasResolver}
-        writeln('TResExprEvaluator.EvalBinaryExpr Opcode=',OpcodeStrings[Expr.OpCode],' Left=',LeftValue.AsDebugString,' Right=',RightValue.AsDebugString);
+        writeln('TResExprEvaluator.EvalBinaryExpr Kind=',Expr.Kind,' Opcode=',OpcodeStrings[Expr.OpCode],' Left=',LeftValue.AsDebugString,' Right=',RightValue.AsDebugString);
         {$ENDIF}
         RaiseNotYetImplemented(20170530100823,Expr);
       end;

packages/fcl-passrc/src/pasresolver.pp

@@ -5333,7 +5333,7 @@ begin
   CanonicalSelf:=TPasClassOfType.Create('Self',aClass);
   ClassScope.CanonicalClassOf:=CanonicalSelf;
   CanonicalSelf.DestType:=aClass;
-  aClass.AddRef;
+  aClass.AddRef; // for the CanonicalSelf.DestType
   CanonicalSelf.Visibility:=visStrictPrivate;
   CanonicalSelf.SourceFilename:=aClass.SourceFilename;
   CanonicalSelf.SourceLinenumber:=aClass.SourceLinenumber;