[svn:parrot] r38306 - branches/pmc_pct/src/dynpmc
bacek at svn.parrot.org
bacek at svn.parrot.org
Fri Apr 24 14:06:50 UTC 2009
Author: bacek
Date: Fri Apr 24 14:06:49 2009
New Revision: 38306
URL: https://trac.parrot.org/parrot/changeset/38306
Log:
[cage] Mark vtable methods with VTABLE in gdbmhash.pmc
Modified:
branches/pmc_pct/src/dynpmc/gdbmhash.pmc
Modified: branches/pmc_pct/src/dynpmc/gdbmhash.pmc
==============================================================================
--- branches/pmc_pct/src/dynpmc/gdbmhash.pmc Fri Apr 24 14:06:32 2009 (r38305)
+++ branches/pmc_pct/src/dynpmc/gdbmhash.pmc Fri Apr 24 14:06:49 2009 (r38306)
@@ -116,11 +116,11 @@
mem_sys_free(PMC_data(SELF));
}
- void* get_pointer() {
+ VTABLE void* get_pointer() {
return PMC_dbfh(SELF);
}
- void set_pointer(void* p) {
+ VTABLE void set_pointer(void* p) {
PMC_dbfh(SELF) = (GDBM_FILE)p;
}
@@ -134,7 +134,7 @@
*/
- void set_string_native(STRING* value) {
+ VTABLE void set_string_native(STRING* value) {
char * const c_db_name = Parrot_str_to_cstring(interp, value);
GDBM_FILE dbf = gdbm_open(c_db_name, 0, GDBM_NEWDB, 0666, 0);
@@ -206,7 +206,7 @@
*/
- void set_string_keyed(PMC* key, STRING* value) {
+ VTABLE void set_string_keyed(PMC* key, STRING* value) {
STRING* keystr;
GDBM_FILE dbf = PMC_dbfh(SELF);
datum key_gdbm, val_gdbm;
@@ -235,7 +235,7 @@
*/
- STRING* get_string_keyed(PMC *key) {
+ VTABLE STRING* get_string_keyed(PMC *key) {
STRING *keystr, *val;
GDBM_FILE dbf = PMC_dbfh(SELF);
datum key_gdbm, val_gdbm;
@@ -269,7 +269,7 @@
*/
- void set_pmc_keyed(PMC* key, PMC* value) {
+ VTABLE void set_pmc_keyed(PMC* key, PMC* value) {
STRING *temp;
temp = VTABLE_get_string(interp, value);
@@ -286,7 +286,7 @@
*/
- PMC* get_pmc_keyed(PMC* key) {
+ VTABLE PMC* get_pmc_keyed(PMC* key) {
STRING * ret_string = SELF.get_string_keyed(key);
PMC *ret_pmc = pmc_new(interp, enum_class_String);
@@ -305,7 +305,7 @@
*/
- void set_integer_keyed(PMC* key, INTVAL value) {
+ VTABLE void set_integer_keyed(PMC* key, INTVAL value) {
PMC *temp;
temp = pmc_new(interp, enum_class_String);
@@ -324,7 +324,7 @@
*/
- void set_number_keyed(PMC* key, FLOATVAL value) {
+ VTABLE void set_number_keyed(PMC* key, FLOATVAL value) {
PMC *temp;
temp = pmc_new(interp, enum_class_String);
@@ -342,7 +342,7 @@
*/
- INTVAL exists_keyed(PMC* key) {
+ VTABLE INTVAL exists_keyed(PMC* key) {
STRING* keystr;
GDBM_FILE dbf = PMC_dbfh(SELF);
datum key_gdbm;
@@ -367,7 +367,7 @@
*/
- void delete_keyed(PMC* key) {
+ VTABLE void delete_keyed(PMC* key) {
STRING* keystr;
GDBM_FILE dbf = PMC_dbfh(SELF);
datum key_gdbm;
More information about the parrot-commits
mailing list