+ more verbose printnode for call nodes

git-svn-id: trunk@4892 -

compiler/ncal.pas

@@ -82,9 +82,9 @@ interface
           { the definition of the procedure to call }
           procdefinition : tabstractprocdef;
           procdefinitionderef : tderef;
-          { tree that contains the pointer to the object for this method }
           methodpointerinit,
           methodpointerdone : tblocknode;
+          { tree that contains the pointer to the object for this method }
           methodpointer  : tnode;
           { varargs parasyms }
           varargsparas : tvarargsparalist;
@@ -92,7 +92,6 @@ interface
           { that return their result in a parameter                      }
           property funcretnode: tnode read _funcretnode write setfuncretnode;
 
-
           { separately specified resulttype for some compilerprocs (e.g. }
           { you can't have a function with an "array of char" resulttype }
           { the RTL) (JM)                                                }
@@ -2681,10 +2680,37 @@ type
             else
               writeln(t,printnodeindention,'proc = <nil>');
           end;
+
+        if assigned(methodpointer) then
+          begin
+            writeln(t,printnodeindention,'methodpointer =');
             printnode(t,methodpointer);
+          end;
+
+        if assigned(methodpointerinit) then
+          begin
+            writeln(t,printnodeindention,'methodpointerinit =');
+            printnode(t,methodpointerinit);
+          end;
+
+        if assigned(methodpointerdone) then
+          begin
+            writeln(t,printnodeindention,'methodpointerdone =');
+            printnode(t,methodpointerdone);
+          end;
+
+        if assigned(right) then
+          begin
+            writeln(t,printnodeindention,'right =');
             printnode(t,right);
+          end;
+
+        if assigned(left) then
+          begin
+            writeln(t,printnodeindention,'left =');
             printnode(t,left);
           end;
+      end;
 
 
 begin