Browse Source

* patch from Jonas to pass interface result as parameter

git-svn-id: trunk@3199 -
peter 19 years ago
parent
commit
810a776e10
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/ncnv.pas

+ 3 - 3
compiler/ncnv.pas

@@ -2731,9 +2731,9 @@ implementation
                   procname := 'fpc_class_as_intf'
                 else
                   procname := 'fpc_intf_as';
-                call := ccallnode.createinternres(procname,
-                   ccallparanode.create(right,ccallparanode.create(left,nil)),
-                   resulttype);
+                call := ccallnode.createintern(procname,
+                   ccallparanode.create(right,ccallparanode.create(left,nil)));
+                call := ctypeconvnode.create_internal(call,resulttype);
               end;
             left := nil;
             right := nil;