Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /branches/vis12/src/compiler/c-target/fragments/init.in
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1806 - (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 1727 // initialize the input defaults
21 :     InitDefaults (wrld);
22 : jhr 1718
23 : jhr 1727 return wrld;
24 :    
25 : jhr 1718 }

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