diff options
Diffstat (limited to 'src/tuplr.hpp')
| -rw-r--r-- | src/tuplr.hpp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/tuplr.hpp b/src/tuplr.hpp index 0385533..787355b 100644 --- a/src/tuplr.hpp +++ b/src/tuplr.hpp @@ -158,7 +158,7 @@ struct Object { inline Tag tag() const { return (Tag)header()->tag; } inline void tag(Tag t) { header()->tag = t; } inline bool marked() const { return header()->mark != 0; } - inline void mark(bool b) const { header()->mark = 1; } + inline void mark(bool b) const { header()->mark = (b ? 1 : 0); } static void* operator new(size_t size) { return pool.alloc(size); } static void operator delete(void* ptr) {} @@ -638,6 +638,8 @@ Subst unify(const Constraints& c); /// Compiler backend struct Engine { + virtual ~Engine() {} + virtual CFunc startFunction( CEnv& cenv, const std::string& name, |