4 extern jmp_buf error_handler;
5 extern int instructioncount;
6 extern int failurecount;
10 void * allocate_new(void *, int type);
11 struct ArrayObject * allocate_newarray(void *, int type, int length);
12 struct ___String___ * NewString(void *, const char *str,int length);
14 void * allocate_new(int type);
15 struct ArrayObject * allocate_newarray(int type, int length);
16 struct ___String___ * NewString(const char *str,int length);
19 void initializeexithandler();
20 void failedboundschk();
23 void injectinstructionfailure();
24 void createstartupobject();
27 #define VAR(name) ___params___->name
28 #define CALL00(name) name(struct name ## _params * ___params___)
29 #define CALL01(name, alt) name(struct name ## _params * ___params___)
30 #define CALL02(name, alt1, alt2) name(struct name ## _params * ___params___)
31 #define CALL11(name,rest, alt) name(struct name ## _params * ___params___, rest)
32 #define CALL12(name,rest, alt1, alt2) name(struct name ## _params * ___params___, rest)
33 #define CALL23(name, rest, rest2, alt1, alt2, alt3) name(struct name ## _params * ___params___, rest, rest2)
34 #define CALL24(name, rest, rest2, alt1, alt2, alt3, alt4) name(struct name ## _params * ___params___, rest, rest2)
36 #define VAR(name) name
37 #define CALL00(name) name()
38 #define CALL01(name, alt) name(alt)
39 #define CALL02(name, alt1, alt2) name(alt1, alt2)
40 #define CALL11(name,rest, alt) name(alt)
41 #define CALL12(name,rest, alt1, alt2) name(alt1, alt2)
42 #define CALL23(name, rest, rest2, alt1, alt2, alt3) name(alt1, alt2, alt3)
43 #define CALL24(name, rest, rest2, alt1, alt2, alt3, alt4) name(alt1, alt2, alt3, alt4)
47 #include "SimpleHash.h"
49 void flagorand(void * ptr, int ormask, int andmask);
50 void flagorandinit(void * ptr, int ormask, int andmask);
51 void flagbody(void *ptr, int flag);
55 struct parameterwrapper {
56 struct parameterwrapper *next;
57 struct RuntimeHash * objectset;
60 struct taskdescriptor * task;
63 struct taskparamdescriptor {
64 struct taskdescriptor * task;
66 void ** parameterArray;
70 struct taskparamdescriptor * task;
71 struct tpdlist * next;
74 int hashCodetpd(struct taskparamdescriptor *);
75 int comparetpd(struct taskparamdescriptor *, struct taskparamdescriptor *);