import org.simantics.scl.compiler.elaboration.expressions.accessor.FieldAccessor;
import org.simantics.scl.compiler.elaboration.expressions.accessor.IdAccessor;
import org.simantics.scl.compiler.errors.Locations;
-import org.simantics.scl.compiler.internal.elaboration.utils.ExpressionDecorator;
import org.simantics.scl.compiler.internal.header.ModuleHeader;
import org.simantics.scl.compiler.types.Type;
import org.simantics.scl.compiler.types.Types;
((EFieldAccess)parent).lastAccessor = false;
}
- @Override
- public void collectRefs(TObjectIntHashMap<Object> allRefs,
- TIntHashSet refs) {
- parent.collectRefs(allRefs, refs);
- accessor.collectRefs(allRefs, refs);
- }
-
@Override
public void collectVars(TObjectIntHashMap<Variable> allVars,
TIntHashSet vars) {
return null;
List<Constant> accessors = context.getEnvironment().getFieldAccessors(idAccessor.fieldName);
if(accessors == null) {
- context.getErrorLog().log("Couldn't resolve accessor ." + idAccessor.fieldName + ".");
+ context.getErrorLog().log(idAccessor.location, "Couldn't resolve accessor ." + idAccessor.fieldName + ".");
return new EError(location);
}
Expression accessorExpression;
public Type getType() {
return accessors.get(index).getType();
}
+ @Override
+ public String toString() {
+ return accessors.get(index).toString();
+ }
};
}
accessorExpression = new EAmbiguous(alternatives);
+ accessorExpression.location = location;
}
return new EApply(location, accessorExpression, parent).checkType(context, requiredType);
}
return this;
}
- @Override
- public Expression decorate(ExpressionDecorator decorator) {
- return decorator.decorate(this);
- }
-
@Override
public void collectEffects(THashSet<Type> effects) {
// FIXME
public void accept(ExpressionVisitor visitor) {
visitor.visit(this);
}
-
- @Override
- public void forVariables(VariableProcedure procedure) {
- parent.forVariables(procedure);
- accessor.forVariables(procedure);
- }
@Override
public Expression accept(ExpressionTransformer transformer) {