Annotation of /branches/vis12/src/compiler/c-target/fragments/init.in

Parent Directory | Revision Log

---

Revision 1829 - (view) (download)

1 :	jhr	1718	//! Create and allocate the program's world
2 :			@PREFIX@World_t *@PREFIX@Init ()
3 :			{
4 :			@PREFIX@World_t *wrld = NEW(@PREFIX@World_t);
5 :			if (wrld == 0)
6 :			return 0;
7 :
8 :			wrld->name = ProgramName;
9 :			wrld->err = 0;
10 :			wrld->verboseFlg = false;
11 :			wrld->nStrandTys = 1; /* FIXME */
12 :			wrld->strandDesc = &Strand_@STRAND@;
13 :	jhr	1806	wrld->globals = NEW(@PREFIX@Globals_t);
14 :	jhr	1718
15 :	jhr	1806	if (wrld->globals == 0) {
16 :			FREE(wrld);
17 :			return 0;
18 :			}
19 :
20 :	jhr	1829	#ifdef DIDEROT_TARGET_PARALLEL
21 :			wrld->sched = NEW(Diderot_Sched_t);
22 :
23 :			if ((wrld->sched == 0)
24 :			|| (pthread_mutex_init (&(wrld->sched->lock), 0) != 0)
25 :			|| (pthread_cond_init (&(wrld->sched->barrier), 0) != 0)
26 :			|| (pthread_cond_init (&(wrld->sched->runWait), 0) != 0)) {
27 :			if (wrld->sched != 0) FREE(wrld->sched);
28 :			FREE(wrld);
29 :			return 0;
30 :			}
31 :			/* TODO: initialize sched->numWorkers */
32 :			#endif
33 :
34 :	jhr	1727	// initialize the input defaults
35 :			InitDefaults (wrld);
36 :	jhr	1718
37 :	jhr	1727	return wrld;
38 :
39 :	jhr	1718	}

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0