2 #include "structdefs.h"
9 #include "methodheaders.h"
12 #include "DSTM/interface_recovery/dstm.h"
13 #include "DSTM/interface_recovery/altprelookup.h"
16 extern int numRecovery;
17 extern unsigned int deadMachine[8];
18 extern unsigned int sizeOfRedupedData[8];
19 extern double elapsedTime[8];
23 #include "DSTM/interface/dstm.h"
24 #include "DSTM/interface/altprelookup.h"
25 #include "DSTM/interface/prefetch.h"
33 #define ARRAY_LENGTH 700003
35 __thread int event[ARRAY_LENGTH];
36 __thread unsigned long long clkticks[ARRAY_LENGTH];
37 unsigned long long beginClock=0;
38 #define FILENAME "log"
42 __thread int objcount=0;
43 #define ASSIGNUID(x) { \
44 int number=((objcount++)<<EVTHREADSHIFT)|threadnum; \
51 #if defined(THREADS)||defined(STM)
52 /* Global barrier for STM */
53 pthread_barrier_t barrier;
54 pthread_barrierattr_t attr;
59 extern int classsize[];
60 extern int typearray[];
61 extern int typearray2[];
62 jmp_buf error_handler;
67 float failurechance=0;
70 int injectinstructionfailures;
72 float instfailurechance=0;
75 typedef unsigned long long ticks;
80 int instanceof(struct ___Object___ *ptr, int type) {
92 i=typearray2[i-NUMCLASSES];
98 void exithandler(int sig, siginfo_t *info, void * uap) {
102 void initializeexithandler() {
103 struct sigaction sig;
104 sig.sa_sigaction=&exithandler;
105 sig.sa_flags=SA_SIGINFO;
106 sigemptyset(&sig.sa_mask);
107 sigaction(SIGUSR2, &sig, 0);
111 /* This function inject failures */
113 void injectinstructionfailure() {
115 if (injectinstructionfailures) {
118 instructioncount=failurecount;
119 instaccum+=failurecount;
120 if ((((double)random())/RAND_MAX)<instfailurechance) {
123 printf("FAILURE!!! %d\n",numfailures);
124 longjmp(error_handler,11);
129 if (injectinstructionfailures) {
132 instaccum+=failurecount;
133 if ((((double)random())/RAND_MAX)<instfailurechance) {
136 printf("FAILURE!!! %d\n",numfailures);
144 #ifdef D___Double______nativeparsedouble____L___String___
145 double CALL01(___Double______nativeparsedouble____L___String___,struct ___String___ * ___str___) {
146 int length=VAR(___str___)->___count___;
147 int maxlength=(length>60)?60:length;
148 char str[maxlength+1];
149 struct ArrayObject * chararray=VAR(___str___)->___value___;
151 int offset=VAR(___str___)->___offset___;
152 for(i=0; i<maxlength; i++) {
153 str[i]=((short *)(((char *)&chararray->___length___)+sizeof(int)))[i+offset];
161 #ifdef D___Double______nativeparsedouble_____AR_B_I_I
162 double CALL23(___Double______nativeparsedouble_____AR_B_I_I, int start, int length,int start,int length,struct ArrayObject * ___str___) {
163 int maxlength=(length>60)?60:length;
164 char str[maxlength+1];
165 struct ArrayObject * bytearray=VAR(___str___);
167 for(i=0; i<maxlength; i++) {
168 str[i]=(((char *)&bytearray->___length___)+sizeof(int))[i+start];
176 #ifdef D___String______convertdoubletochar____D__AR_C
177 int CALL12(___String______convertdoubletochar____D__AR_C, double ___val___, double ___val___, struct ArrayObject ___chararray___) {
178 int length=VAR(___chararray___)->___length___;
181 int num=snprintf(str, length, "%f",___val___);
184 for(i=0; i<length; i++) {
185 ((short *)(((char *)&VAR(___chararray___)->___length___)+sizeof(int)))[i]=(short)str[i];
190 #ifdef D___System______deepArrayCopy____L___Object____L___Object___
191 void deepArrayCopy(struct ___Object___ * dst, struct ___Object___ * src) {
192 int dsttype=((int *)dst)[0];
193 int srctype=((int *)src)[0];
195 src=src->___objlocation___;
197 if (dsttype<NUMCLASSES||srctype<NUMCLASSES||srctype!=dsttype)
199 struct ArrayObject *aodst=(struct ArrayObject *)dst;
200 struct ArrayObject *aosrc=(struct ArrayObject *)src;
201 int dstlength=aodst->___length___;
202 int srclength=aosrc->___length___;
203 if (dstlength!=srclength)
205 unsigned INTPTR *pointer=pointerarray[srctype];
207 int elementsize=classsize[srctype];
208 int size=srclength*elementsize;
210 memcpy(((char *)&aodst->___length___)+sizeof(int) , ((char *)&aosrc->___length___)+sizeof(int), size);
214 for(i=0;i<srclength;i++) {
215 struct ___Object___ * ptr=((struct ___Object___**)(((char*) &aosrc->___length___)+sizeof(int)))[i];
216 int ptrtype=((int *)ptr)[0];
217 if (ptrtype>=NUMCLASSES) {
218 struct ___Object___ * dstptr=((struct ___Object___**)(((char*) &aodst->___length___)+sizeof(int)))[i];
219 deepArrayCopy(dstptr,ptr);
222 ((struct ___Object___ **)(((char*) &aodst->___length___)+sizeof(int)))[i]=ptr;
228 void CALL02(___System______deepArrayCopy____L___Object____L___Object___, struct ___Object___ * ___dst___, struct ___Object___ * ___src___) {
229 deepArrayCopy(VAR(___dst___), VAR(___src___));
233 #ifdef D___System______arraycopy____L___Object____I_L___Object____I_I
234 void arraycopy(struct ___Object___ *src, int srcPos, struct ___Object___ *dst, int destPos, int length) {
235 int dsttype=((int *)dst)[0];
236 int srctype=((int *)src)[0];
238 //not an array or type mismatch
239 if (dsttype<NUMCLASSES||srctype<NUMCLASSES||srctype!=dsttype)
242 struct ArrayObject *aodst=(struct ArrayObject *)dst;
243 struct ArrayObject *aosrc=(struct ArrayObject *)src;
244 int dstlength=aodst->___length___;
245 int srclength=aosrc->___length___;
249 if (srcPos+length>srclength)
251 if (destPos+length>dstlength)
254 unsigned INTPTR *pointer=pointerarray[srctype];
256 int elementsize=classsize[srctype];
257 int size=length*elementsize;
259 memcpy(((char *)&aodst->___length___)+sizeof(int)+destPos*elementsize, ((char *)&aosrc->___length___)+sizeof(int)+srcPos*elementsize, size);
263 for(i=0;i<length;i++) {
264 struct ___Object___ * ptr=((struct ___Object___**)(((char*) &aosrc->___length___)+sizeof(int)))[i+srcPos];
265 int ptrtype=((int *)ptr)[0];
267 ((struct ___Object___ **)(((char*) &aodst->___length___)+sizeof(int)))[i+destPos]=ptr;
272 void CALL35(___System______arraycopy____L___Object____I_L___Object____I_I, int ___srcPos___, int ___destPos___, int ___length___, struct ___Object___ * ___src___, int ___srcPos___, struct ___Object___ * ___dst___, int ___destPos___, int ___length___) {
273 arraycopy(VAR(___src___), ___srcPos___, VAR(___dst___), ___destPos___, ___length___);
277 void CALL11(___System______exit____I,int ___status___, int ___status___) {
280 printf("numTransCommit = %d\n", numTransCommit);
281 printf("numTransAbort = %d\n", numTransAbort);
282 printf("nSoftAbort = %d\n", nSoftAbort);
285 printf("nSoftAbortCommit = %d\n", nSoftAbortCommit);
286 printf("nSoftAbortAbort = %d\n", nSoftAbortAbort);
289 for(i=0; i<TOTALNUMCLASSANDARRAY; i++) {
290 printf("typesCausingAbort[%2d] numaccess= %5d numabort= %3d\n", i, typesCausingAbort[i].numaccess, typesCausingAbort[i].numabort);
301 void CALL11(___System______logevent____I,int ___event___, int ___event___) {
303 event[counter] = ___event___;
304 clkticks[counter] = rdtsc();
310 void CALL00(___System______logevent____) {
317 void CALL11(___System______flushToFile____I, int ___threadid___, int ___threadid___) {
322 memset(filename, 0, 20);
323 sprintf(filename, "%s_%d", FILENAME, ___threadid___);
324 if ((fp = fopen(filename, "w+")) == NULL) {
329 for (i = 0; i < counter-1; i++) {
330 fprintf(fp, "%d %lld %lld\n", event[i], clkticks[i]-beginClock, clkticks[i+1]-beginClock);
332 fprintf(fp, "%d %lld\n", event[i], clkticks[i]-beginClock);
339 void CALL00(___System______initLog____) {
343 for(i=0; i<ARRAY_LENGTH; i++) {
352 #ifdef D___Vector______removeElement_____AR_L___Object____I_I
353 void CALL23(___Vector______removeElement_____AR_L___Object____I_I, int ___index___, int ___size___, struct ArrayObject * ___array___, int ___index___, int ___size___) {
354 char* offset=((char *)(&VAR(___array___)->___length___))+sizeof(unsigned int)+sizeof(void *)*___index___;
355 memmove(offset, offset+sizeof(void *),(___size___-___index___-1)*sizeof(void *));
359 void CALL11(___System______printI____I,int ___status___, int ___status___) {
360 printf("%d\n",___status___);
363 long long CALL00(___System______currentTimeMillis____) {
364 struct timeval tv; long long retval;
365 gettimeofday(&tv, NULL);
366 retval = tv.tv_sec; /* seconds */
367 retval*=1000; /* milliseconds */
368 retval+= (tv.tv_usec/1000); /* adjust milliseconds & add them in */
372 long long CALL00(___System______microTimes____) {
375 gettimeofday(&tv, NULL);
376 retval = tv.tv_sec; /* seconds */
377 retval*=1000000; /* microsecs */
378 retval+= (tv.tv_usec); /* adjust microseconds & add them in */
382 long long CALL00(___System______getticks____) {
385 asm volatile("rdtsc" : "=a" (a), "=d" (d));
386 return (((ticks)a) | (((ticks)d) << 32));
389 void CALL01(___System______printString____L___String___,struct ___String___ * ___s___) {
390 struct ArrayObject * chararray=VAR(___s___)->___value___;
392 int offset=VAR(___s___)->___offset___;
393 for(i=0; i<VAR(___s___)->___count___; i++) {
394 short sc=((short *)(((char *)&chararray->___length___)+sizeof(int)))[i+offset];
403 #ifdef D___RecoveryStat______printRecoveryStat____
405 void CALL00(___RecoveryStat______printRecoveryStat____) {
409 void CALL00(___RecoveryStat______printRecoveryStat____) {
417 void CALL00(___System______clearPrefetchCache____) {
422 void CALL02(___System______rangePrefetch____L___Object_____AR_S, struct ___Object___ * ___o___, struct ArrayObject * ___offsets___) {
423 /* Manual Prefetches to be inserted */
424 //printf("DEBUG-> %s() ___Object___ * ___o___ = %x\n", __func__, VAR(___o___));
425 //printf("DEBUG-> %s() ArrayObject * = %x\n", __func__, VAR(___offsets___));
426 int numoffset=VAR(___offsets___)->___length___;
428 short offArry[numoffset+2];
431 for(i = 2; i<(numoffset+2); i++) {
432 offArry[i] = *((short *)(((char *)&VAR(___offsets___)->___length___) + sizeof(int) + (i-2) * sizeof(short)));
433 //printf("DEBUG-> offArry[%d] = %d\n", i, offArry[i]);
436 if(((unsigned int)(VAR(___o___)) & 1) != 0) { //odd
437 oid = (unsigned int) VAR(___o___); //outside transaction therefore just an oid
439 oid = (unsigned int) COMPOID(VAR(___o___)); //inside transaction therefore a pointer to oid
441 rangePrefetch(oid, (short)(numoffset+2), offArry);
444 void CALL02(___System______rangePrefetch____L___Object_____AR_S, struct ___Object___ * ___o___, struct ArrayObject * ___offsets___) {
449 #ifdef D___Task______execution____
450 extern void* virtualtable[];
451 // associated with Task.execution(). finds proper execute method and call it
452 void CALL01(___Task______execution____,struct ___Task___ * ___this___)
455 oid = (unsigned int) VAR(___this___); // object id
456 int type = getObjType(oid); // object type
459 int p[] = {1,0 , oid};
460 ((void(*) (void *))virtualtable[type*MAXCOUNT + EXECUTEMETHOD])(p);
462 // call the proper execute method
463 ((void(*) (void *))virtualtable[type*MAXCOUNT + EXECUTEMETHOD])(oid);
470 /* STM Barrier constructs */
471 #ifdef D___Barrier______setBarrier____I
472 void CALL11(___Barrier______setBarrier____I, int nthreads, int nthreads) {
473 // Barrier initialization
475 if((ret = pthread_barrier_init(&barrier, NULL, nthreads)) != 0) {
476 printf("%s() Could not create a barrier: numthreads = 0 in %s\n", __func__, __FILE__);
482 #ifdef D___Barrier______enterBarrier____
483 void CALL00(___Barrier______enterBarrier____) {
484 // Synchronization point
487 EVLOGEVENT(EV_ENTERBARRIER);
490 stopforgc((struct garbagelist *)___params___);
492 ret = pthread_barrier_wait(&barrier);
496 if(ret != 0 && ret != PTHREAD_BARRIER_SERIAL_THREAD) {
497 printf("%s() Could not wait on barrier: error %d in %s\n", __func__, errno, __FILE__);
501 EVLOGEVENT(EV_EXITBARRIER);
506 /* Object allocation function */
509 __attribute__((malloc)) void * allocate_newglobal(int type) {
510 struct ___Object___ * v=(struct ___Object___ *) transCreateObj(classsize[type]);
512 //printf("DEBUG %s(), type= %x\n", __func__, type);
521 /* Array allocation function */
523 __attribute__((malloc)) struct ArrayObject * allocate_newarrayglobal(int type, int length) {
524 struct ArrayObject * v=(struct ArrayObject *)transCreateObj(sizeof(struct ArrayObject)+length*classsize[type]);
526 printf("ERROR: negative array\n");
530 v->___length___=length;
542 // STM Versions of allocation functions
544 /* Object allocation function */
545 __attribute__((malloc)) void * allocate_newtrans(void * ptr, int type) {
547 struct ___Object___ * v=(struct ___Object___ *) transCreateObj(ptr, classsize[type], 0);
549 struct ___Object___ * v=(struct ___Object___ *) transCreateObj(ptr, classsize[type]);
553 v->___objlocation___=v;
557 /* Array allocation function */
558 __attribute__((malloc)) struct ArrayObject * allocate_newarraytrans(void * ptr, int type, int length) {
560 int basesize=length*classsize[type];
561 //round the base size up
562 basesize=(basesize+LOWMASK)&HIGHMASK;
563 int numlocks=basesize>>INDEXSHIFT;
564 int bookkeepsize=numlocks*2*sizeof(int);
565 struct ArrayObject * v=(struct ArrayObject *)transCreateObj(ptr, sizeof(struct ArrayObject)+basesize+bookkeepsize, bookkeepsize);
566 unsigned int *intptr=(unsigned int *)(((char *)v)-sizeof(objheader_t));
567 for(;numlocks>0;numlocks--) {
572 v->lowindex=MAXARRAYSIZE;
574 struct ArrayObject * v=(struct ArrayObject *)transCreateObj(ptr, sizeof(struct ArrayObject)+length*classsize[type]);
578 printf("ERROR: negative array\n");
581 v->___objlocation___=(struct ___Object___*)v;
583 v->___length___=length;
587 __attribute__((malloc)) void * allocate_new(void * ptr, int type) {
588 objheader_t *tmp=mygcmalloc((struct garbagelist *) ptr, classsize[type]+sizeof(objheader_t));
589 struct ___Object___ * v=(struct ___Object___ *) &tmp[1];
591 initdsmlocks(&tmp->lock);
593 v->___objlocation___=v;
598 /* Array allocation function */
600 __attribute__((malloc)) struct ArrayObject * allocate_newarray(void * ptr, int type, int length) {
602 int basesize=length*classsize[type];
603 //round the base size up
604 basesize=(basesize+LOWMASK)&HIGHMASK;
605 int numlocks=basesize>>INDEXSHIFT;
606 int bookkeepsize=(numlocks)*2*sizeof(int);
607 int *tmpint=mygcmalloc((struct garbagelist *) ptr, sizeof(struct ArrayObject)+basesize+sizeof(objheader_t)+bookkeepsize);
608 for(;numlocks>0;numlocks--) {
612 objheader_t *tmp=(objheader_t *)tmpint;
613 struct ArrayObject * v=(struct ArrayObject *) &tmp[1];
615 v->lowindex=MAXARRAYSIZE;
617 objheader_t *tmp=mygcmalloc((struct garbagelist *) ptr, sizeof(struct ArrayObject)+length*classsize[type]+sizeof(objheader_t));
618 struct ArrayObject * v=(struct ArrayObject *) &tmp[1];
621 tmp->lock=RW_LOCK_BIAS;
623 initdsmlocks(&tmp->lock);
629 printf("ERROR: negative array %d\n", length);
632 v->___objlocation___=(struct ___Object___ *)v;
633 v->___length___=length;
639 #if defined(PRECISE_GC)
641 __attribute__((malloc)) void * allocate_new(void * ptr, int type) {
642 return allocate_new_oid(ptr, type, 0);
644 __attribute__((malloc)) void * allocate_new_oid(void * ptr, int type, int oid) {
646 __attribute__((malloc)) void * allocate_new(void * ptr, int type) {
648 struct ___Object___ * v=(struct ___Object___ *) mygcmalloc((struct garbagelist *) ptr, classsize[type]);
664 /* Array allocation function */
666 __attribute__((malloc)) struct ArrayObject * allocate_newarray(void * ptr, int type, int length) {
667 return allocate_newarray_oid(ptr, type, length, 0);
669 __attribute__((malloc)) struct ArrayObject * allocate_newarray_oid(void * ptr, int type, int length, int oid) {
671 __attribute__((malloc)) struct ArrayObject * allocate_newarray(void * ptr, int type, int length) {
673 struct ArrayObject * v=mygcmalloc((struct garbagelist *) ptr, sizeof(struct ArrayObject)+length*classsize[type]);
676 printf("ERROR: negative array\n");
679 v->___length___=length;
695 __attribute__((malloc)) void * allocate_new(int type) {
696 struct ___Object___ * v=FREEMALLOC(classsize[type]);
704 /* Array allocation function */
706 __attribute__((malloc)) struct ArrayObject * allocate_newarray(int type, int length) {
707 __attribute__((malloc)) struct ArrayObject * v=FREEMALLOC(sizeof(struct ArrayObject)+length*classsize[type]);
709 v->___length___=length;
718 /* Converts C character arrays into Java strings */
720 __attribute__((malloc)) struct ___String___ * NewString(void * ptr, const char *str,int length) {
722 __attribute__((malloc)) struct ___String___ * NewString(const char *str,int length) {
726 struct ArrayObject * chararray=allocate_newarray((struct garbagelist *)ptr, CHARARRAYTYPE, length);
727 INTPTR ptrarray[]={1, (INTPTR) ptr, (INTPTR) chararray};
728 struct ___String___ * strobj=allocate_new((struct garbagelist *) &ptrarray, STRINGTYPE);
729 chararray=(struct ArrayObject *) ptrarray[2];
731 struct ArrayObject * chararray=allocate_newarray(CHARARRAYTYPE, length);
732 struct ___String___ * strobj=allocate_new(STRINGTYPE);
734 strobj->___value___=chararray;
735 strobj->___count___=length;
736 strobj->___offset___=0;
738 for(i=0; i<length; i++) {
739 ((short *)(((char *)&chararray->___length___)+sizeof(int)))[i]=(short)str[i];
744 /* Generated code calls this if we fail a bounds check */
746 void failedboundschk() {
748 printf("Array out of bounds\n");
755 longjmp(error_handler,2);
759 /* Abort task call */
762 longjmp(error_handler,4);
764 printf("Aborting\n");
770 #ifdef D___System______Assert____Z
771 void CALL11(___System______Assert____Z, int ___status___, int ___status___) {
773 printf("Assertion violation\n");
774 *((int *)(NULL)); //force stack trace error