[svn:parrot] r42116 - branches/context_unify/include/parrot
bacek at svn.parrot.org
bacek at svn.parrot.org
Mon Oct 26 19:32:13 UTC 2009
Author: bacek
Date: Mon Oct 26 19:32:12 2009
New Revision: 42116
URL: https://trac.parrot.org/parrot/changeset/42116
Log:
Add optimised Context accessors
Modified:
branches/context_unify/include/parrot/context.h
Modified: branches/context_unify/include/parrot/context.h
==============================================================================
--- branches/context_unify/include/parrot/context.h Mon Oct 26 19:09:07 2009 (r42115)
+++ branches/context_unify/include/parrot/context.h Mon Oct 26 19:32:12 2009 (r42116)
@@ -667,8 +667,8 @@
# define Parrot_pcc_get_continuation(i, c) (__C(c)->current_cont)
# define Parrot_pcc_set_continuation(i, c, value) (__C(c)->current_cont = (value))
-# define Parrot_pcc_get_results(i, c) (__C(c)->current_results)
-# define Parrot_pcc_set_results(i, c, value) (__C(c)->current_results = (value))
+# define Parrot_pcc_get_results(i, c) (__C(c)->results)
+# define Parrot_pcc_set_results(i, c, value) (__C(c)->results = (value))
# define Parrot_pcc_get_caller_ctx(i, c) (__C(c)->caller_ctx)
# define Parrot_pcc_set_caller_ctx(i, c, value) (__C(c)->caller_ctx = (value))
@@ -700,8 +700,17 @@
# define Parrot_pcc_get_outer_ctx(i, c) (__C(c)->outer_ctx)
# define Parrot_pcc_set_outer_ctx(i, c, value) (__C(c)->outer_ctx = (value))
-# define Parrot_pcc_get_signature(i, c) (__C(c)->current_sig)
-# define Parrot_pcc_set_signature(i, c, value) (__C(c)->current_sig = (value))
+# define Parrot_pcc_get_type_tuple(i, c) (__C(c)->type_tuple)
+# define Parrot_pcc_set_type_tuple(i, c, value) (__C(c)->type_tuple = (value))
+
+# define Parrot_pcc_get_short_sig(i, c) (__C(c)->short_sig)
+# define Parrot_pcc_set_short_sig(i, c, value) (__C(c)->short_sig = (value))
+
+# define Parrot_pcc_get_arg_flags(i, c) (__C(c)->arg_flags)
+# define Parrot_pcc_set_arg_flags(i, c, value) (__C(c)->arg_flags = (value))
+
+# define Parrot_pcc_get_return_flags(i, c) (__C(c)->return_flags)
+# define Parrot_pcc_set_return_flags(i, c, value) (__C(c)->return_flags = (value))
# define Parrot_pcc_get_int_constant(i, c, idx) (__C(c)->constants[(idx)]->u.integer)
# define Parrot_pcc_get_num_constant(i, c, idx) (__C(c)->constants[(idx)]->u.number)
More information about the parrot-commits
mailing list