1 %---------------------------------------------------------------*
3 \section{Executable code for random primitives}
5 %---------------------------------------------------------------*
10 I_ __GenSymCounter = 0;
11 I_ __SeqWorldCounter = 0;
16 return(__GenSymCounter++);
19 resetGenSymZh(STG_NO_ARGS) /* it's your funeral */
22 return(__GenSymCounter);
26 byteArrayHasNUL__ (ba, len)
32 for (i = 0; i < len; i++) {
33 if (*(ba + i) == '\0') {
38 return(0); /* false */
42 stg_exit (n) /* can't call regular "exit" from Haskell
43 because it has no return value */
47 return(0); /* GCC warning food */
51 This may not be the right place for this: (ToDo?)
55 _stgAssert (filename, linenum)
60 fprintf(stderr, "ASSERTION FAILED: file %s, line %u\n", filename, linenum);
66 A little helper for the native code generator (it can't stomach
70 newArrZh_init(result, n, init)
77 SET_MUTUPLE_HDR(result,ArrayOfPtrs_info,CCC,MUTUPLE_VHS+n,0)
78 for (p = result+MUTUPLE_HS; p < (result+MUTUPLE_HS+n); p++) {
85 Phantom info table vectors for multiple constructor primitive types that
86 might have to perform a DynamicReturn (just Bool at the moment).
89 ED_RO_(Prelude_False_inregs_info);
90 ED_RO_(Prelude_True_inregs_info);
92 const W_ Prelude_Bool_itblvtbl[] = {
93 (W_) Prelude_False_inregs_info,
94 (W_) Prelude_True_inregs_info