Changes in src/GenPoly/Lvalue.cc [1a4bef3:e3e16bc]

File:

• src/GenPoly/Lvalue.cc (modified) (7 diffs)

src/GenPoly/Lvalue.cc

@@ -47 +47 @@
                         if ( SymTab::dereferenceOperator ) {
                                 VariableExpr * deref = new VariableExpr( SymTab::dereferenceOperator );
-                                deref->result = new PointerType( Type::Qualifiers(), deref->result );
-                                Type * base = InitTweak::getPointerBase( arg->result );
-                                assertf( base, "expected pointer type in dereference (type was %s)", toString( arg->result ).c_str() );
+                                deref->set_result( new PointerType( Type::Qualifiers(), deref->get_result() ) );
+                                Type * base = InitTweak::getPointerBase( arg->get_result() );
+                                assertf( base, "expected pointer type in dereference (type was %s)", toString( arg->get_result() ).c_str() );
                                 ApplicationExpr * ret = new ApplicationExpr( deref, { arg } );
-                                delete ret->result;
-                                ret->result = base->clone();
-                                ret->result->set_lvalue( true );
+                                delete ret->get_result();
+                                ret->set_result( base->clone() );
+                                ret->get_result()->set_lvalue( true );
                                 return ret;
                         } else {
@@ -308 +308 @@
                                         int diff = depth1-depth2;
                                         if ( diff == 0 ) {
-                                                // conversion between references of the same depth
                                                 assertf( depth1 == depth2, "non-intrinsic reference with cast of reference to reference not yet supported: %d %d %s", depth1, depth2, toString( castExpr ).c_str() );
                                                 PRINT( std::cerr << castExpr << std::endl; )
                                                 return castExpr;
                                         } else if ( diff < 0 ) {
-                                                // conversion from reference to reference with less depth (e.g. int && -> int &): add dereferences
-                                                Expression * ret = castExpr->arg;
+                                                Expression * ret = castExpr->get_arg();
                                                 for ( int i = 0; i < diff; ++i ) {
                                                         ret = mkDeref( ret );
                                                 }
-                                                ret->env = castExpr->env;
-                                                delete ret->result;
-                                                ret->result = castExpr->result;
-                                                ret->result->set_lvalue( true ); // ensure result is lvalue
-                                                castExpr->env = nullptr;
-                                                castExpr->arg = nullptr;
-                                                castExpr->result = nullptr;
+                                                ret->set_env( castExpr->get_env() );
+                                                delete ret->get_result();
+                                                ret->set_result( castExpr->get_result() );
+                                                castExpr->set_env( nullptr );
+                                                castExpr->set_arg( nullptr );
+                                                castExpr->set_result( nullptr );
                                                 delete castExpr;
                                                 return ret;
                                         } else if ( diff > 0 ) {
-                                                // conversion from reference to reference with more depth (e.g. int & -> int &&): add address-of
-                                                Expression * ret = castExpr->arg;
+                                                Expression * ret = castExpr->get_arg();
                                                 for ( int i = 0; i < diff; ++i ) {
                                                         ret = new AddressExpr( ret );
                                                 }
-                                                ret->env = castExpr->env;
-                                                delete ret->result;
-                                                ret->result = castExpr->result;
-                                                castExpr->env = nullptr;
-                                                castExpr->arg = nullptr;
-                                                castExpr->result = nullptr;
+                                                ret->set_env( castExpr->get_env() );
+                                                delete ret->get_result();
+                                                ret->set_result( castExpr->get_result() );
+                                                castExpr->set_env( nullptr );
+                                                castExpr->set_arg( nullptr );
+                                                castExpr->set_result( nullptr );
                                                 delete castExpr;
                                                 return ret;
@@ -346 +342 @@
                                         PRINT( std::cerr << castExpr << std::endl; )
                                         return castExpr;
-                                } else if ( castExpr->arg->result->get_lvalue() ) {
+                                } else if ( castExpr->get_arg()->get_result()->get_lvalue() ) {
                                         // conversion from lvalue to reference
                                         // xxx - keep cast, but turn into pointer cast??
@@ -352 +348 @@
                                         PRINT(
                                                 std::cerr << "convert lvalue to reference -- &" << std::endl;
-                                                std::cerr << castExpr->arg << std::endl;
+                                                std::cerr << castExpr->get_arg() << std::endl;
                                         )
-                                        AddressExpr * ret = new AddressExpr( castExpr->arg );
-                                        if ( refType->base->get_qualifiers() != castExpr->arg->result->get_qualifiers() ) {
+                                        AddressExpr * ret = new AddressExpr( castExpr->get_arg() );
+                                        if ( refType->get_base()->get_qualifiers() != castExpr->get_arg()->get_result()->get_qualifiers() ) {
                                                 // must keep cast if cast-to type is different from the actual type
-                                                castExpr->arg = ret;
+                                                castExpr->set_arg( ret );
                                                 return castExpr;
                                         }
-                                        ret->env = castExpr->env;
-                                        delete ret->result;
-                                        ret->result = castExpr->result;
-                                        castExpr->env = nullptr;
-                                        castExpr->arg = nullptr;
-                                        castExpr->result = nullptr;
+                                        ret->set_env( castExpr->get_env() );
+                                        delete ret->get_result();
+                                        ret->set_result( castExpr->get_result() );
+                                        castExpr->set_env( nullptr );
+                                        castExpr->set_arg( nullptr );
+                                        castExpr->set_result( nullptr );
                                         delete castExpr;
                                         return ret;
@@ -372 +368 @@
                                 }
                                 assertf( false, "Only conversions to reference from lvalue are currently supported: %s", toString( castExpr ).c_str() );
-                        } else if ( ReferenceType * refType = dynamic_cast< ReferenceType * >( castExpr->arg->result ) ) {
+                        } else if ( ReferenceType * refType = dynamic_cast< ReferenceType * >( castExpr->get_arg()->get_result() ) ) {
                                 (void)refType;
                                 // conversion from reference to rvalue
@@ -379 +375 @@
                                         std::cerr << "was = " << castExpr << std::endl;
                                 )
-                                Expression * ret = castExpr->arg;
-                                TypeSubstitution * env = castExpr->env;
+                                Expression * ret = castExpr->get_arg();
+                                TypeSubstitution * env = castExpr->get_env();
                                 castExpr->set_env( nullptr );
                                 if ( ! isIntrinsicReference( ret ) ) {
@@ -386 +382 @@
                                         ret = mkDeref( ret );
                                 }
-                                if ( ResolvExpr::typesCompatibleIgnoreQualifiers( castExpr->result, castExpr->arg->result->stripReferences(), SymTab::Indexer() ) ) {
+                                if ( ResolvExpr::typesCompatibleIgnoreQualifiers( castExpr->get_result(), castExpr->get_arg()->get_result()->stripReferences(), SymTab::Indexer() ) ) {
                                         // can remove cast if types are compatible, changing expression type to value type
-                                        ret->result = castExpr->result->clone();
-                                        ret->result->set_lvalue( true );  // ensure result is lvalue
-                                        castExpr->arg = nullptr;
+                                        ret->set_result( castExpr->get_result()->clone() );
+                                        castExpr->set_arg( nullptr );
                                         delete castExpr;
                                 } else {
                                         // must keep cast if types are different
-                                        castExpr->arg = ret;
+                                        castExpr->set_arg( ret );
                                         ret = castExpr;
                                 }