[Dotgnu-pnet-commits] CVS: pnet/cscc/csharp cs_decls.tc,1.32,1.33

[Rhys Weatherley <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnet/cscc/csharp
In directory subversions:/tmp/cvs-serv32663/cscc/csharp

Modified Files:
        cs_decls.tc 
Log Message:


Add the correct marshalling information to delegate parameters.


Index: cs_decls.tc
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/cscc/csharp/cs_decls.tc,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -r1.32 -r1.33
*** cs_decls.tc 14 Feb 2003 14:06:48 -0000      1.32
--- cs_decls.tc 17 Feb 2003 06:04:26 -0000      1.33
***************
*** 1217,1224 ****
--- 1217,1246 ----
  ILNode_SemAnalysis(ILNode_DelegateMemberDeclaration)
  {
+       unsigned long argNum;
+       unsigned long argIndex;
+       ILNode_ListIter iter;
+       ILNode_FormalParameter *param;
+ 
+       /* Bail out if compiling to the JVM */
        if(info->outputIsJava)
        {
                CCErrorOnLine(yygetfilename(node), yygetlinenum(node),
                          "delegate definitions are not permitted with Java 
output");
+               return CSSemValueDefault;
+       }
+ 
+       /* Process attributes on the parameters */
+       argNum = 1;
+       argIndex = 1;
+       ILNode_ListIter_Init(&iter, node->params);
+       while((param = (ILNode_FormalParameter *)ILNode_ListIter_Next(&iter)) 
!= 0)
+       {
+               if(param->pmod != ILParamMod_arglist)
+               {
+                       CSProcessAttrsForParam(info, node->invokeMethod,
+                                                                  argIndex, 
param->attributes);
+               }
+               ++argNum;
+               ++argIndex;
        }
        return CSSemValueDefault;