[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