michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix abuse of operator-> overload

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-09-22 16:41:51 -07:00
parent c847d27763
commit 16a6a54df1
2 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/kernel/metavar.cpp
View file

@ -61,18 +61,18 @@ expr metavar_env::get_subst(unsigned midx) const {
}
expr metavar_env::get_type(unsigned midx, unification_problems & up) {
auto p = m_env[midx];
expr t = p->m_type;
data const & d = m_env[midx];
expr t = d.m_type;
if (t) {
return t;
} else {
t = mk_metavar();
expr s = p->m_subst;
m_env[midx] = data(s, t, p->m_ctx);
expr s = d.m_subst;
m_env[midx] = data(s, t, d.m_ctx);
if (s)
up.add_type_of_eq(p->m_ctx, s, t);
up.add_type_of_eq(d.m_ctx, s, t);
else
up.add_type_of_eq(p->m_ctx, ::lean::mk_metavar(midx), t);
up.add_type_of_eq(d.m_ctx, ::lean::mk_metavar(midx), t);
return t;
}
}
@ -84,8 +84,8 @@ expr metavar_env::get_type(unsigned midx) const {
void metavar_env::assign(unsigned midx, expr const & v) {
inc_timestamp();
lean_assert(!is_assigned(midx));
auto p = m_env[midx];
m_env[midx] = data(v, p->m_type, p->m_ctx);
data const & d = m_env[midx];
m_env[midx] = data(v, d.m_type, d.m_ctx);
}
context const & metavar_env::get_context(unsigned midx) const {

1
src/util/pvector.h
View file

@ -351,7 +351,6 @@ public:
ref(pvector & v, unsigned i):m_vector(v), m_idx(i) {}
ref & operator=(T const & a) { m_vector.set(m_idx, a); return *this; }
operator T const &() const { return m_vector.get(m_idx); }
T const * operator->() const { return &(m_vector.get(m_idx)); }
};
T const & operator[](unsigned i) const { return get(i); }