paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Jonas to pass interface result as parameter

Browse Source 
git-svn-id: trunk@3199 -
This commit is contained in:
peter 2006-04-13 07:04:48 +00:00
parent 74f9acd0d8
commit 810a776e10
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncnv.pas
View File

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