[svn:parrot] r42995 - branches/context_unify3/src/pmc
bacek at svn.parrot.org
bacek at svn.parrot.org
Fri Dec 11 21:30:18 UTC 2009
Author: bacek
Date: Fri Dec 11 21:30:18 2009
New Revision: 42995
URL: https://trac.parrot.org/parrot/changeset/42995
Log:
Update accessors in CallContext.
Modified:
branches/context_unify3/src/pmc/callcontext.pmc
Modified: branches/context_unify3/src/pmc/callcontext.pmc
==============================================================================
--- branches/context_unify3/src/pmc/callcontext.pmc Fri Dec 11 21:29:58 2009 (r42994)
+++ branches/context_unify3/src/pmc/callcontext.pmc Fri Dec 11 21:30:18 2009 (r42995)
@@ -81,9 +81,9 @@
do { \
INTVAL num_positionals; \
Pcc_cell *positionals; \
- GETATTR_CallSignature_num_positionals((i), (obj), num_positionals); \
- GETATTR_CallSignature_positionals((i), (obj), positionals); \
- SETATTR_CallSignature_num_positionals((i), (obj), num_positionals+1); \
+ GETATTR_CallContext_num_positionals((i), (obj), num_positionals); \
+ GETATTR_CallContext_positionals((i), (obj), positionals); \
+ SETATTR_CallContext_num_positionals((i), (obj), num_positionals+1); \
NEXT_CELL(cell) = NULL; \
if (positionals) { \
while (NEXT_CELL(positionals)) { \
@@ -92,18 +92,18 @@
NEXT_CELL(positionals) = (cell); \
} \
else \
- SETATTR_CallSignature_positionals((i), (obj), (cell)); \
+ SETATTR_CallContext_positionals((i), (obj), (cell)); \
} while (0)
#define PREPEND_CELL(i, obj, cell) \
do { \
INTVAL num_positionals; \
Pcc_cell *positionals; \
- GETATTR_CallSignature_num_positionals((i), (obj), num_positionals); \
- GETATTR_CallSignature_positionals((i), (obj), positionals); \
- SETATTR_CallSignature_num_positionals((i), (obj), num_positionals+1); \
+ GETATTR_CallContext_num_positionals((i), (obj), num_positionals); \
+ GETATTR_CallContext_positionals((i), (obj), positionals); \
+ SETATTR_CallContext_num_positionals((i), (obj), num_positionals+1); \
NEXT_CELL(cell) = positionals; \
- SETATTR_CallSignature_positionals((i), (obj), (cell)); \
+ SETATTR_CallContext_positionals((i), (obj), (cell)); \
} while (0)
#define HLL_TYPE(i) Parrot_get_ctx_HLL_type(interp, (i))
@@ -116,18 +116,18 @@
Pcc_cell *cell;
Pcc_cell *prev = NULL;
- GETATTR_CallSignature_positionals(interp, SELF, cell);
+ GETATTR_CallContext_positionals(interp, SELF, cell);
/* no cells */
if (!cell)
return NULL;
- GETATTR_CallSignature_num_positionals(interp, SELF, num_positionals);
- SETATTR_CallSignature_num_positionals(interp, SELF, num_positionals-1);
+ GETATTR_CallContext_num_positionals(interp, SELF, num_positionals);
+ SETATTR_CallContext_num_positionals(interp, SELF, num_positionals-1);
/* one cell */
if (!NEXT_CELL(cell)) {
- SETATTR_CallSignature_positionals(interp, SELF, NULL);
+ SETATTR_CallContext_positionals(interp, SELF, NULL);
return cell;
}
@@ -142,7 +142,7 @@
}
/* should abort here */
- SETATTR_CallSignature_num_positionals(interp, SELF, num_positionals+1);
+ SETATTR_CallContext_num_positionals(interp, SELF, num_positionals+1);
return NULL;
}
@@ -152,20 +152,20 @@
INTVAL num_positionals;
Pcc_cell *cell;
- GETATTR_CallSignature_positionals(interp, SELF, cell);
+ GETATTR_CallContext_positionals(interp, SELF, cell);
/* no cells */
if (!cell)
return NULL;
- GETATTR_CallSignature_num_positionals(interp, SELF, num_positionals);
- SETATTR_CallSignature_num_positionals(interp, SELF, num_positionals-1);
+ GETATTR_CallContext_num_positionals(interp, SELF, num_positionals);
+ SETATTR_CallContext_num_positionals(interp, SELF, num_positionals-1);
/* one cell */
if (!NEXT_CELL(cell))
- SETATTR_CallSignature_positionals(interp, SELF, NULL);
+ SETATTR_CallContext_positionals(interp, SELF, NULL);
else
- SETATTR_CallSignature_positionals(interp, SELF, NEXT_CELL(cell));
+ SETATTR_CallContext_positionals(interp, SELF, NEXT_CELL(cell));
return cell;
}
@@ -176,12 +176,12 @@
INTVAL i, num_positionals;
Pcc_cell *cell;
- GETATTR_CallSignature_num_positionals(interp, SELF, num_positionals);
+ GETATTR_CallContext_num_positionals(interp, SELF, num_positionals);
if (key > num_positionals)
return NULL;
- GETATTR_CallSignature_positionals(interp, SELF, cell);
+ GETATTR_CallContext_positionals(interp, SELF, cell);
while (key) {
/* XXX: shouldn't happen */
@@ -295,7 +295,7 @@
{
Hash *hash;
- GETATTR_CallSignature_hash(interp, SELF, hash);
+ GETATTR_CallContext_hash(interp, SELF, hash);
if (!hash) {
hash = parrot_create_hash(interp,
@@ -304,7 +304,7 @@
STRING_compare,
(hash_hash_key_fn)key_hash_STRING);
- SETATTR_CallSignature_hash(interp, SELF, hash);
+ SETATTR_CallContext_hash(interp, SELF, hash);
}
return hash;
@@ -358,7 +358,7 @@
Hash *hash;
PMC *result = PMCNULL;
- GETATTR_CallSignature_hash(interp, SELF, hash);
+ GETATTR_CallContext_hash(interp, SELF, hash);
/* yes, this *looks* risky, but it's a Parrot STRING hash internally */
if (hash && hash->entries) {
@@ -398,7 +398,7 @@
=item C<void init()>
-Initializes a newly created CallSignature object.
+Initializes a newly created CallContext object.
=cut
@@ -510,7 +510,7 @@
=item C<void set_string_native(STRING *value)>
-Sets the short signature for the CallSignature.
+Sets the short signature for the CallContext.
=cut
@@ -524,7 +524,7 @@
=item C<STRING *get_string()>
-Returns the short signature for the CallSignature.
+Returns the short signature for the CallContext.
=cut
@@ -577,7 +577,7 @@
=item C<void set_pmc(PMC *value)>
-Sets a fixed-size array of integer types (a type tuple) for the CallSignature.
+Sets a fixed-size array of integer types (a type tuple) for the CallContext.
=cut
@@ -592,7 +592,7 @@
=item C<PMC *get_pmc()>
Returns a fixed-size array of integer types (a type tuple) for the
-CallSignature.
+CallContext.
=cut
More information about the parrot-commits
mailing list