SCI: fix regression of r52565

remove class bit when marking as clone

svn-id: r52584
This commit is contained in:
Martin Kiewitz 2010-09-06 10:39:42 +00:00
parent e3e9bac6f6
commit c342c0e3d8

View file

@ -179,6 +179,8 @@ reg_t kClone(EngineState *s, int argc, reg_t *argv) {
// Mark as clone
writeSelectorValue(s->_segMan, cloneAddr, SELECTOR(_info_), (infoSelector & ~kInfoFlagClass) | kInfoFlagClone);
infoSelector &= ~kInfoFlagClass; // remove class bit
writeSelectorValue(s->_segMan, cloneAddr, SELECTOR(_info_), infoSelector | kInfoFlagClone);
cloneObj->setSpeciesSelector(cloneObj->getPos());
if (parentObj->isClass())