develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r33371 - branches/call_conv_redux/src

From:
Whiteknight
Date:
November 30, 2008 08:04
Subject:
[svn:parrot] r33371 - branches/call_conv_redux/src
Message ID:
20081130160354.A1B45CB9AF@x12.develooper.com
Author: Whiteknight
Date: Sun Nov 30 08:03:53 2008
New Revision: 33371

Modified:
   branches/call_conv_redux/src/inter_call.c

Log:
[call_conv_redux] update set_context_sig_params

Modified: branches/call_conv_redux/src/inter_call.c
==============================================================================
--- branches/call_conv_redux/src/inter_call.c	(original)
+++ branches/call_conv_redux/src/inter_call.c	Sun Nov 30 08:03:53 2008
@@ -2263,7 +2263,7 @@
     ARGMOD(opcode_t **indexes), ARGMOD(Parrot_Context *ctx),
     ARGMOD(PMC *sig_obj))
 {
-    /* second loop through signature to build all index and arg_flag
+        /* second loop through signature to build all index and arg_flag
      * loop also assigns args(up to the ->) to registers */
     int index      = -1;
     int seen_arrow =  0;
@@ -2327,6 +2327,7 @@
                 case 's': cur |= PARROT_ARG_SLURPY_ARRAY; break;
                 case 'o': cur |= PARROT_ARG_OPTIONAL;     break;
                 case 'p': cur |= PARROT_ARG_OPT_FLAG;     break;
+                case 'i': cur |= PARROT_ARG_INVOCANT;     break;
                 default:
                     Parrot_ex_throw_from_c_args(interp, NULL,
                         EXCEPTION_INVALID_OPERATION,



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About