summaryrefslogtreecommitdiff
path: root/src/loadinit.cc
diff options
context:
space:
mode:
authorAdrian Thurston <thurston@complang.org>2015-06-06 11:15:28 -0400
committerAdrian Thurston <thurston@complang.org>2015-06-06 11:15:28 -0400
commit5a5cf0547b01d3c95dfa00b8f36f93a5143e25a7 (patch)
tree7406f2885b5fabb8b7e79a869ea64c0b1d17bf39 /src/loadinit.cc
parent78ee9d0a8cc87c4d8cafae47b966e0bddf8d3021 (diff)
downloadcolm-5a5cf0547b01d3c95dfa00b8f36f93a5143e25a7.tar.gz
replacing list and map with vlist and vmap
Diffstat (limited to 'src/loadinit.cc')
-rw-r--r--src/loadinit.cc8
1 files changed, 3 insertions, 5 deletions
diff --git a/src/loadinit.cc b/src/loadinit.cc
index 34c0b9a0..f8454e3a 100644
--- a/src/loadinit.cc
+++ b/src/loadinit.cc
@@ -288,8 +288,7 @@ void LoadInit::consParseStmt( StmtList *stmtList )
curLocalFrame->rootScope, popQual, String("pop") );
LangExpr *pop = LangExpr::cons( LangTerm::cons( InputLoc(), popRef, popArgs ) );
- NamespaceQual *nspaceQual = NamespaceQual::cons( curNspace() );
- TypeRef *typeRef = TypeRef::cons( internal, nspaceQual, "argv_el", RepeatNone );
+ TypeRef *typeRef = TypeRef::cons( internal, pd->uniqueTypeStr );
ObjectField *objField = ObjectField::cons( internal,
ObjectField::UserLocalType, typeRef, "A" );
@@ -305,9 +304,8 @@ void LoadInit::consParseStmt( StmtList *stmtList )
/* Reference A->value */
QualItemVect *qual = new QualItemVect;
- qual->append( QualItem( QualItem::Arrow, internal, "A" ) );
LangVarRef *varRef = LangVarRef::cons( internal, 0,
- curLocalFrame->rootScope, qual, String("value") );
+ curLocalFrame->rootScope, qual, String("A") );
LangExpr *Avalue = LangExpr::cons( LangTerm::cons( internal,
LangTerm::VarRefType, varRef ) );
@@ -329,7 +327,7 @@ void LoadInit::consParseStmt( StmtList *stmtList )
ObjectField::UserLocalType, 0, String("P") );
/* Ref the start def. */
- nspaceQual = NamespaceQual::cons( curNspace() );
+ NamespaceQual *nspaceQual = NamespaceQual::cons( curNspace() );
typeRef = TypeRef::cons( internal, nspaceQual,
String("start"), RepeatNone );