Skip to content

Commit

Permalink
Fix copy-paste error.
Browse files Browse the repository at this point in the history 
git-svn-id: https://svn.parrot.org/parrot/branches/pcc_megrecells@45021 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information
bacek committed Mar 18, 2010
1 parent c09e61c commit 4f5290d
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions src/pmc/callcontext.pmc
View file
Expand Up @@ -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) {
Expand All @@ -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) {
Expand All @@ -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);
}

/*
Expand Down

0 comments on commit 4f5290d

Please sign in to comment.