Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix copy-paste error.

git-svn-id: https://svn.parrot.org/parrot/branches/pcc_megrecells@45021 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
commit 4f5290d786e3ea06e960b613f73028f4a1b01f4b 1 parent c09e61c
bacek authored
Showing with 10 additions and 10 deletions.
  1. +10 −10 src/pmc/callcontext.pmc
View
20 src/pmc/callcontext.pmc
@@ -827,10 +827,10 @@ return current Namespace
GET_ATTR_num_positionals(INTERP, SELF, num_pos);
ensure_positionals_storage(INTERP, SELF, num_pos + 1);
- Pcc_cell *cell = get_cell_at(INTERP, SELF, pos);
- cell->u.n = value;
- cell->type = FLOATCELL;
- SET_ATTR_num_positionals(INTERP, SELF, pos + 1);
+ GET_ATTR_positionals(INTERP, SELF, cells);
+ cells[num_pos].u.n = value;
+ cells[num_pos].type = FLOATCELL;
+ SET_ATTR_num_positionals(INTERP, SELF, num_pos + 1);
}
VTABLE void push_string(STRING *value) {
@@ -841,9 +841,9 @@ return current Namespace
ensure_positionals_storage(INTERP, SELF, num_pos + 1);
GET_ATTR_positionals(INTERP, SELF, cells);
- cell->u.s = value;
- cell->type = STRINGCELL;
- SET_ATTR_num_positionals(INTERP, SELF, pos + 1);
+ cells[num_pos].u.s = value;
+ cells[num_pos].type = STRINGCELL;
+ SET_ATTR_num_positionals(INTERP, SELF, num_pos + 1);
}
VTABLE void push_pmc(PMC *value) {
@@ -854,9 +854,9 @@ return current Namespace
ensure_positionals_storage(INTERP, SELF, num_pos + 1);
GET_ATTR_positionals(INTERP, SELF, cells);
- cell->u.p = value;
- cell->type = PMCCELL;
- SET_ATTR_num_positionals(INTERP, SELF, pos + 1);
+ cells[num_pos].u.p = value;
+ cells[num_pos].type = PMCCELL;
+ SET_ATTR_num_positionals(INTERP, SELF, num_pos + 1);
}
/*
Please sign in to comment.
Something went wrong with that request. Please try again.