just two things I forgot to remove
[IRC.git] / Robust / src / Runtime / runtime.h
1 #ifndef RUNTIME
2 #define RUNTIME
3 #include <setjmp.h>
4 extern jmp_buf error_handler;
5 extern int instructioncount;
6 extern int failurecount;
7
8 #define TAGARRAYINTERVAL 10
9 #define OBJECTARRAYINTERVAL 10
10
11 #define ARRAYSET(array, type, index, value) \
12 ((type *)(&(& array->___length___)[1]))[index]=value
13
14 #define ARRAYGET(array, type, index) \
15 ((type *)(&(& array->___length___)[1]))[index]
16
17 #ifdef PRECISE_GC
18 #include "garbage.h"
19 void * allocate_new(void *, int type);
20 struct ArrayObject * allocate_newarray(void *, int type, int length);
21 struct ___String___ * NewString(void *, const char *str,int length);
22 struct ___TagDescriptor___ * allocate_tag(void *ptr, int index);
23 #else
24 void * allocate_new(int type);
25 struct ArrayObject * allocate_newarray(int type, int length);
26 struct ___String___ * NewString(const char *str,int length);
27 struct ___TagDescriptor___ * allocate_tag(int index);
28 #endif
29
30
31
32 void initializeexithandler();
33 void failedboundschk();
34 void failednullptr();
35 void abort_task();
36 void injectinstructionfailure();
37 void createstartupobject();
38
39 #ifdef PRECISE_GC
40 #define VAR(name) ___params___->name
41 #define CALL00(name) name(struct name ## _params * ___params___)
42 #define CALL01(name, alt) name(struct name ## _params * ___params___)
43 #define CALL02(name, alt1, alt2) name(struct name ## _params * ___params___)
44 #define CALL11(name,rest, alt) name(struct name ## _params * ___params___, rest)
45 #define CALL12(name,rest, alt1, alt2) name(struct name ## _params * ___params___, rest)
46 #define CALL23(name, rest, rest2, alt1, alt2, alt3) name(struct name ## _params * ___params___, rest, rest2)
47 #define CALL24(name, rest, rest2, alt1, alt2, alt3, alt4) name(struct name ## _params * ___params___, rest, rest2)
48 #else
49 #define VAR(name) name
50 #define CALL00(name) name()
51 #define CALL01(name, alt) name(alt)
52 #define CALL02(name, alt1, alt2) name(alt1, alt2)
53 #define CALL11(name,rest, alt) name(alt)
54 #define CALL12(name,rest, alt1, alt2) name(alt1, alt2)
55 #define CALL23(name, rest, rest2, alt1, alt2, alt3) name(alt1, alt2, alt3)
56 #define CALL24(name, rest, rest2, alt1, alt2, alt3, alt4) name(alt1, alt2, alt3, alt4)
57 #endif
58
59 #ifdef TASK
60 #include "SimpleHash.h"
61 #include "task.h"
62 #include "structdefs.h"
63 #include "optionalstruct.h"
64
65 void flagorand(void * ptr, int ormask, int andmask);
66 void flagorandinit(void * ptr, int ormask, int andmask);
67 void executetasks();
68 void processtasks();
69
70 struct tagobjectiterator {
71   int istag; /* 0 if object iterator, 1 if tag iterator */
72   struct RuntimeIterator it; /* Object iterator */
73   struct RuntimeHash * objectset;
74   int slot;
75   int tagobjindex; /* Index for tag or object depending on use */
76   /*if tag we have an object binding */
77   int tagid;
78   int tagobjectslot;
79   /*if object, we may have one or more tag bindings */
80   int numtags;
81   int tagbindings[MAXTASKPARAMS-1]; /* list slots */
82 };
83
84 struct parameterwrapper {
85   struct parameterwrapper *next;
86   struct RuntimeHash * objectset;
87   int numberofterms;
88   int * intarray;
89   int numbertags;
90   int * tagarray;
91   struct taskdescriptor * task;
92   int slot;
93   struct tagobjectiterator iterators[MAXTASKPARAMS-1];
94 };
95
96 struct taskparamdescriptor {
97   struct taskdescriptor * task;
98   int numParameters;
99   void ** parameterArray;
100 };
101
102 int hashCodetpd(struct taskparamdescriptor *);
103 int comparetpd(struct taskparamdescriptor *, struct taskparamdescriptor *);
104
105 void toiReset(struct tagobjectiterator * it);
106 int toiHasNext(struct tagobjectiterator *it, void ** objectarray);
107 void toiNext(struct tagobjectiterator *it , void ** objectarray);
108 void processobject(struct parameterwrapper *parameter, int index, struct parameterdescriptor *pd, int *iteratorcount, int * statusarray, int numparams);
109 void processtags(struct parameterdescriptor *pd, int index, struct parameterwrapper *parameter, int * iteratorcount, int *statusarray, int numparams);
110 void builditerators(struct taskdescriptor * task, int index, struct parameterwrapper * parameter);
111 void enqueuetasks(struct parameterwrapper *parameter, struct parameterwrapper *prevptr, struct ___Object___ *ptr);
112
113 #endif
114
115 #endif