Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add an OwnedResizablePMCArray, along the same lines as OwnedHash.
  • Loading branch information
@jnthn
jnthn committed May 14, 2012
1 parent 9ddfc35 commit 3ab8ab1
Show file tree
Hide file tree
Showing 2 changed files with 230 additions and 2 deletions.
228 changes: 228 additions & 0 deletions src/pmc/ownedresizablepmcarray.pmc
View file
@@ -0,0 +1,228 @@
/* Represents a ResizablePMCArray that is owned by a serialization context.
* If it gets modified, we need to trigger the SC write barrier. */

#include "../6model/sixmodelobject.h"

pmclass OwnedResizablePMCArray extends ResizablePMCArray auto_attrs dynpmc group nqp {
/* The object that owns this RPA. */
ATTR PMC *owner;

VTABLE void set_integer_keyed(PMC* key, INTVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_integer_keyed_int(INTVAL key, INTVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_integer_keyed_str(STRING* key, INTVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}

VTABLE void set_number_keyed(PMC* key, FLOATVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_number_keyed_int(INTVAL key, FLOATVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_number_keyed_str(STRING* key, FLOATVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}

VTABLE void set_string_keyed(PMC* key, STRING* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_string_keyed_int(INTVAL key, STRING* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_string_keyed_str(STRING* key, STRING* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}

VTABLE void set_pmc_keyed(PMC* key, PMC* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_pmc_keyed_int(INTVAL key, PMC* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}
VTABLE void set_pmc_keyed_str(STRING* key, PMC* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(key, value);
}

VTABLE INTVAL pop_integer() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}
VTABLE FLOATVAL pop_float() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}
VTABLE STRING* pop_string() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}
VTABLE PMC* pop_pmc() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}

VTABLE void push_integer(INTVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}
VTABLE void push_float(FLOATVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}
VTABLE void push_string(STRING* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}
VTABLE void push_pmc(PMC* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}

VTABLE INTVAL shift_integer() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}
VTABLE FLOATVAL shift_float() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}
VTABLE STRING* shift_string() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}
VTABLE PMC* shift_pmc() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
return SUPER();
}

VTABLE void unshift_integer(INTVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}
VTABLE void unshift_float(FLOATVAL value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}
VTABLE void unshift_string(STRING* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}
VTABLE void unshift_pmc(PMC* value) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value);
}

void splice(PMC* value, INTVAL offset, INTVAL count) {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
if (!PMC_IS_NULL(owner))
OBJ_SC_WRITE_BARRIER(owner);
SUPER(value, offset, count);
}

VTABLE void mark() {
PMC *owner;
GET_ATTR_owner(interp, SELF, owner);
Parrot_gc_mark_PMC_alive(INTERP, owner);
SUPER();
}
}
4 changes: 2 additions & 2 deletions tools/build/Makefile.in
View file
@@ -1,4 +1,4 @@
# Copyright (C) 2006-2011, The Perl Foundation.
# Copyright (C) 2006-2012, The Perl Foundation.
# $Id$

PARROT_ARGS =
Expand Down Expand Up @@ -173,7 +173,7 @@ DYNOPS = $(OPS_DIR)/$(OPS)$(LOAD_EXT)
PMC_SOURCES = $(PMC_DIR)/stable.pmc $(PMC_DIR)/sixmodelobject.pmc \
$(PMC_DIR)/dispatchersub.pmc $(PMC_DIR)/nqplexinfo.pmc \
$(PMC_DIR)/nqplexpad.pmc $(PMC_DIR)/serializationcontext.pmc \
$(PMC_DIR)/ownedhash.pmc \
$(PMC_DIR)/ownedhash.pmc $(PMC_DIR)/ownedresizablepmcarray.pmc \

OPS_SOURCE = nqp.ops

Expand Down

0 comments on commit 3ab8ab1

Please sign in to comment.