From a7fc55efac496ec7cad693b3bc96fd05ba836cbd Mon Sep 17 00:00:00 2001
From: "hyunghwan.chung" <hyunghwan.chung@c9d47f8d-4fed-4a2f-8cad-691f5fbe3904>
Date: Tue, 4 Dec 2018 15:06:56 +0000
Subject: [PATCH] adding MOO_STORE_OOP and MOO_STORE_OOP_TO_ARRAY

---
 moo/lib/dic.c      | 11 ++++++-----
 moo/lib/moo.h      |  8 ++++++++
 moo/lib/pf-basic.c |  2 +-
 3 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/moo/lib/dic.c b/moo/lib/dic.c
index 22c9de6..a5d770d 100644
--- a/moo/lib/dic.c
+++ b/moo/lib/dic.c
@@ -78,7 +78,8 @@ static moo_oop_oop_t expand_bucket (moo_t* moo, moo_oop_oop_t oldbuc)
 
 			index = moo_hashoochars(key->slot, MOO_OBJ_GET_SIZE(key)) % newsz;
 			while (newbuc->slot[index] != moo->_nil) index = (index + 1) % newsz;
-			newbuc->slot[index] = (moo_oop_t)ass;
+
+			MOO_STORE_OOP_TO_ARRAY (moo, newbuc, index, (moo_oop_t)ass); /* newbuc->slot[index] = (moo_oop_t)ass; */
 		}
 	}
 
@@ -176,7 +177,7 @@ static moo_oop_association_t find_or_upsert (moo_t* moo, moo_oop_dic_t dic, moo_
 
 	/* create a new assocation of a key and a value since 
 	 * the key isn't found in the root dictionary */
-	ass = (moo_oop_association_t)moo_instantiate (moo, moo->_association, MOO_NULL, 0);
+	ass = (moo_oop_association_t)moo_instantiate(moo, moo->_association, MOO_NULL, 0);
 	if (!ass) goto oops;
 
 	ass->key = (moo_oop_t)key;
@@ -186,7 +187,7 @@ static moo_oop_association_t find_or_upsert (moo_t* moo, moo_oop_dic_t dic, moo_
 	 * it overflows after increment below */
 	MOO_ASSERT (moo, tally < MOO_SMOOI_MAX);
 	dic->tally = MOO_SMOOI_TO_OOP(tally + 1);
-	dic->bucket->slot[index] = (moo_oop_t)ass;
+	MOO_STORE_OOP_TO_ARRAY (moo, dic->bucket, index, (moo_oop_t)ass); /*dic->bucket->slot[index] = (moo_oop_t)ass;*/
 
 	moo_poptmps (moo, tmp_count);
 	return ass;
@@ -321,12 +322,12 @@ found:
 		if ((y > x && (z <= x || z > y)) ||
 		    (y < x && (z <= x && z > y)))
 		{
-			dic->bucket->slot[x] = dic->bucket->slot[y];
+			MOO_STORE_OOP_TO_ARRAY (moo, dic->bucket, x, dic->bucket->slot[y]); /*dic->bucket->slot[x] = dic->bucket->slot[y];*/
 			x = y;
 		}
 	}
 
-	dic->bucket->slot[x] = moo->_nil;
+	MOO_STORE_OOP_TO_ARRAY (moo, dic->bucket, x, moo->_nil); /*dic->bucket->slot[x] = moo->_nil;*/
 
 	tally--;
 	dic->tally = MOO_SMOOI_TO_OOP(tally);
diff --git a/moo/lib/moo.h b/moo/lib/moo.h
index 48706ac..27b5a75 100644
--- a/moo/lib/moo.h
+++ b/moo/lib/moo.h
@@ -1838,6 +1838,14 @@ typedef struct moo_synerr_t moo_synerr_t;
 extern "C" {
 #endif
 
+#if defined(MOO_HAVE_INLINE)
+	static MOO_INLINE void MOO_STORE_OOP (moo_t* moo, moo_oop_t* rcvaddr, moo_oop_t val) { *rcvaddr = val; }
+	static MOO_INLINE void MOO_STORE_OOP_TO_ARRAY (moo_t* moo, moo_oop_oop_t rcv, moo_oow_t idx, moo_oop_t val) { MOO_STORE_OOP (moo, &rcv->slot[idx], val); }
+#else
+#	define MOO_STORE_OOP(moo,rcvaddr,val) (*(rcvaddr) = val)
+#	define MOO_STORE_OOP_TO_ARRAY(moo,rcv,idx,val) MOO_STORE_OOP(moo, &((moo_oop_oop_t)rcv)->slot[idx], val)
+#endif
+
 MOO_EXPORT moo_t* moo_open (
 	moo_mmgr_t*         mmgr,
 	moo_oow_t           xtnsize,
diff --git a/moo/lib/pf-basic.c b/moo/lib/pf-basic.c
index 8b78b69..8eb07ac 100644
--- a/moo/lib/pf-basic.c
+++ b/moo/lib/pf-basic.c
@@ -441,7 +441,7 @@ moo_pfrc_t moo_pf_basic_at_put (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
 		}
 
 		case MOO_OBJ_TYPE_OOP:
-			((moo_oop_oop_t)rcv)->slot[idx] = val;
+			MOO_STORE_OOP_TO_ARRAY (moo, (moo_oop_oop_t)rcv, idx, val); /*((moo_oop_oop_t)rcv)->slot[idx] = val;*/
 			break;
 
 		default: