diff options
| author | Adrian Thurston <thurston@complang.org> | 2014-01-23 20:45:50 -0500 |
|---|---|---|
| committer | Adrian Thurston <thurston@complang.org> | 2014-01-23 20:45:50 -0500 |
| commit | 932b09225ca4749230163e5275232b0c47a657b9 (patch) | |
| tree | a0614dd2904bfe96e1384df51db6248d960957da | |
| parent | b5a1f8d2a70bbafd38b2dd49f5f5b8332bb4a8a3 (diff) | |
| download | colm-932b09225ca4749230163e5275232b0c47a657b9.tar.gz | |
can eliminate the contiguous stmt for print, make_tree and make_token
| -rw-r--r-- | src/synthesis.cc | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/synthesis.cc b/src/synthesis.cc index d221557d..afde1688 100644 --- a/src/synthesis.cc +++ b/src/synthesis.cc @@ -1308,8 +1308,6 @@ UniqueType *LangTerm::evaluateParse( Compiler *pd, CodeVect &code, bool stop ) c void LangTerm::evaluateSendStream( Compiler *pd, CodeVect &code ) const { - bool resetContiguous = pd->beginContiguous( code, 3 ); - varRef->evaluate( pd, code ); for ( ConsItemList::Iter item = parserText->list->first(); item.lte(); item++ ) { @@ -1363,9 +1361,6 @@ void LangTerm::evaluateSendStream( Compiler *pd, CodeVect &code ) const * before all the print arguments (which includes the stream, evaluated * last), however we send is part of an expression, and is supposed to * leave the varref on the stack. */ - - pd->endContiguous( code, resetContiguous ); - pd->clearContiguous( code, resetContiguous ); } void LangTerm::evaluateSendParser( Compiler *pd, CodeVect &code ) const @@ -1858,9 +1853,6 @@ void LangVarRef::assignValue( Compiler *pd, CodeVect &code, UniqueType *LangTerm::evaluateMakeToken( Compiler *pd, CodeVect &code ) const { - long stretch = args->length() + 2; - bool resetContiguous = pd->beginContiguous( code, stretch ); - // if ( pd->compileContext != Compiler::CompileTranslation ) // error(loc) << "make_token can be used only in a translation block" << endp; @@ -1884,17 +1876,11 @@ UniqueType *LangTerm::evaluateMakeToken( Compiler *pd, CodeVect &code ) const code.append( IN_MAKE_TOKEN ); code.append( args->length() ); - pd->endContiguous( code, resetContiguous ); - pd->clearContiguous( code, resetContiguous ); - return pd->uniqueTypeAny; } UniqueType *LangTerm::evaluateMakeTree( Compiler *pd, CodeVect &code ) const { - long stretch = args->length() + 2; - bool resetContiguous = pd->beginContiguous( code, stretch ); - // if ( pd->compileContext != Compiler::CompileTranslation ) // error(loc) << "make_tree can be used only in a translation block" << endp; @@ -1915,9 +1901,6 @@ UniqueType *LangTerm::evaluateMakeTree( Compiler *pd, CodeVect &code ) const code.append( IN_MAKE_TREE ); code.append( args->length() ); - pd->endContiguous( code, resetContiguous ); - pd->clearContiguous( code, resetContiguous ); - return pd->uniqueTypeAny; } |