[patch]changed addrregistry.pmc to use GET_ATTR syntax

[jimmy]

changed addrregistry.pmc to use GET_ATTR syntax

Index: src/pmc/addrregistry.pmc
===================================================================
--- src/pmc/addrregistry.pmc	(版本 42868)
+++ src/pmc/addrregistry.pmc	(工作副本)
@@ -73,8 +73,11 @@
 */
 
     VTABLE INTVAL get_integer_keyed(PMC *key) {
-        Hash   *hash  = (Hash *)SELF.get_pointer();
-        void   *value = parrot_hash_get(INTERP, hash, key);
+        Hash       *hash;
+        const void *value;
+	
+        GET_ATTR_hash(interp, SELF, hash);
+        value = parrot_hash_get(INTERP, hash, key);
 
         if (value)
             return (INTVAL)value;
@@ -83,11 +86,19 @@
     }
 
     VTABLE INTVAL elements() {
-        return parrot_hash_size(INTERP, (Hash *)SELF.get_pointer());
+        const Hash *hash;
+
+        GET_ATTR_hash(interp, SELF, hash);
+
+        return parrot_hash_size(INTERP, hash);
     }
 
     VTABLE INTVAL get_bool() {
-        return parrot_hash_size(INTERP, (Hash *)SELF.get_pointer()) != 0;
+        const Hash *hash;
+
+        GET_ATTR_hash(interp, SELF, hash);
+
+        return parrot_hash_size(INTERP, hash) != 0;
     }
 /*
 
@@ -111,11 +122,15 @@
 */
 
     VTABLE void set_pmc_keyed(PMC *key, PMC *value) {
-        Hash       * const hash = (Hash *)SELF.get_pointer();
-        void       *oldval      = parrot_hash_get(INTERP, hash, key);
-        long        newval      = 1;
+        const void *oldval;
+	long        newval = 1;
+	Hash       *hash;
         UNUSED(value);
 
+        GET_ATTR_hash(interp, SELF, hash);
+
+        oldval = parrot_hash_get(INTERP, hash, key);
+
         if (oldval)
             newval += (long)oldval;
 
@@ -123,14 +138,18 @@
     }
 
     VTABLE void set_integer_keyed(PMC *key, INTVAL value) {
-        Hash *hash = (Hash *)SELF.get_pointer();
+        Hash *hash;
+        GET_ATTR_hash(interp, SELF, hash);
         parrot_hash_put(INTERP, hash, key, (void *)value);
     }
 
     VTABLE void delete_keyed(PMC *key) {
-        Hash       * const hash  = (Hash *)SELF.get_pointer();
-        void              *value = parrot_hash_get(INTERP, hash, key);
+        Hash       *hash;
+        void       *value;
 
+        GET_ATTR_hash(interp, SELF, hash);
+        value = parrot_hash_get(INTERP, hash, key);
+
         /* these casts look bad, but they avoid type punning warnings with -O */
         if (value) {
             long val = (long)value;

[jkeenan]

Thank you for the 8 patches. I recognize that that represents a considerable amount of work.

I decided to live dangerously and apply all 8 patches at once. make failed. I then reverted all patches except that to lib/Parrot/Vtable.pm (TT #1354); make succeeded.

I than applied both patches that affect src/pmc/addrregistry.pmc (TT #1347 and this one, TT #1348). make failed in the same way that it did when I applied all 8 patches. Please see attachment.

Thank you very much.

kid51

[jkeenan]

'make' failures (Linux/i386) with patches in TT 1347, 1348 and 1354 applied

[jimmy]

Replying to jkeenan:

Thank you for the 8 patches. I recognize that that represents a considerable amount of work. I decided to live dangerously and apply all 8 patches at once. make failed. I then reverted all patches except that to lib/Parrot/Vtable.pm (TT #1354); make succeeded. I than applied both patches that affect src/pmc/addrregistry.pmc (TT #1347 and this one, TT #1348). make failed in the same way that it did when I applied all 8 patches. Please see attachment. Thank you very much. kid51

Thank you for testing. I had already uploaded 11 patches, including #886, #896, #1280. chromatic suggested me to segregate them into small patches, so I segregated them. Could you applied which maked succeeded? Though I have tested them and all maked succeded, I think there just were some small compiling bugs. I will fix the failed patches.

[cotto]

Thanks for taking the time to submit this patch. I applied it as r42954.