diff options
| author | Adrian Thurston <thurston@complang.org> | 2014-12-25 16:02:14 -0500 |
|---|---|---|
| committer | Adrian Thurston <thurston@complang.org> | 2014-12-25 16:02:14 -0500 |
| commit | e9a6e75710c42ab1a80c3cf54c5131e2bc4329e1 (patch) | |
| tree | 1037ec581e8d9e88b46a3dd26812512cdc44bb48 /src/consinit.cc | |
| parent | 4bd915e48b6b6278ed8c4b7be95781535f2ce10a (diff) | |
| download | colm-e9a6e75710c42ab1a80c3cf54c5131e2bc4329e1.tar.gz | |
converted the global object to a struct
Diffstat (limited to 'src/consinit.cc')
| -rw-r--r-- | src/consinit.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/consinit.cc b/src/consinit.cc index cf1e83c4..0f63ab84 100644 --- a/src/consinit.cc +++ b/src/consinit.cc @@ -766,12 +766,14 @@ void ConsInit::parseInput( StmtList *stmtList ) void ConsInit::exportTree( StmtList *stmtList ) { + /* reference P */ QualItemVect *qual = new QualItemVect; LangVarRef *varRef = LangVarRef::cons( internal, 0, curLocalFrame->rootScope, qual, String("P") ); LangExpr *expr = LangExpr::cons( LangTerm::cons( internal, LangTerm::VarRefType, varRef ) ); + /* Assign P to ColmTree */ NamespaceQual *nspaceQual = NamespaceQual::cons( curNspace() ); TypeRef *typeRef = TypeRef::cons( internal, nspaceQual, String("start"), RepeatNone ); ObjectField *program = ObjectField::cons( internal, |