fix bugs in multicore version runtime

[IRC.git] / Robust / src / Runtime / multicoreruntime.c

diff --git a/Robust/src/Runtime/multicoreruntime.c b/Robust/src/Runtime/multicoreruntime.c
index d413383deb9d41a30b69c0ee496bac783ae8e88b..69dfd479f55114a4892ba56e616bf7756c71a206 100644 (file)
--- a/Robust/src/Runtime/multicoreruntime.c
+++ b/Robust/src/Runtime/multicoreruntime.c
@@ -140,6 +140,13 @@ void CALL11(___System______exit____I,int ___status___, int ___status___) {
 #endif
 }
 
+//#ifdef D___Vector______removeElement_____AR_L___Object____I_I
+void CALL23(___Vector______removeElement_____AR_L___Object____I_I, int ___index___, int ___size___, struct ArrayObject * ___array___, int ___index___, int ___size___) {
+  char* offset=((char *)(&VAR(___array___)->___length___))+sizeof(unsigned int)+sizeof(void *)*___index___;
+  memmove(offset, offset+sizeof(void *),(___size___-___index___-1)*sizeof(void *));
+}
+//#endif
+
 void CALL11(___System______printI____I,int ___status___, int ___status___) {
 #ifdef MULTICORE
   BAMBOO_DEBUGPRINT(0x1111);