[Dotgnu-pnet-commits] CVS: pnet/cscc/c c_grammar.y,1.48,1.49

[Rhys Weatherley <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnet/cscc/c
In directory subversions:/tmp/cvs-serv11801/cscc/c

Modified Files:
        c_grammar.y 
Log Message:


Permit "register" to be used in a formal parameter list.


Index: c_grammar.y
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/cscc/c/c_grammar.y,v
retrieving revision 1.48
retrieving revision 1.49
diff -C2 -r1.48 -r1.49
*** c_grammar.y 25 Jun 2003 05:30:57 -0000      1.48
--- c_grammar.y 25 Jun 2003 09:59:21 -0000      1.49
***************
*** 2332,2335 ****
--- 2332,2351 ----
                                         ILNode_MarkType_create(0, type), 
nameNode);
                        }
+       | K_REGISTER TypeSpecifierList Declarator               {
+                               ILType *type;
+                               ILNode *nameNode;
+                               CDeclSpec spec;
+                               spec = CDeclSpecFinalize
+                                       ($2, $3.node, $3.name, 
C_KIND_PARAMETER_NAME);
+                               type = CDeclFinalize(&CCCodeGen, spec, $3, 0, 
0);
+                               nameNode = $3.node;
+                               if(!nameNode && $3.name != 0)
+                               {
+                                       nameNode = ILQualIdentSimple($3.name);
+                               }
+                               $$ = ILNode_FormalParameter_create
+                                       (0, ILParamMod_empty,
+                                        ILNode_MarkType_create(0, type), 
nameNode);
+                       }
        | TypeName                                                      {
                                $$ = ILNode_FormalParameter_create