-cell factor_vm::allot_alien(cell delegate_, cell displacement)
-{
- if(displacement == 0)
- return delegate_;
-
- data_root<object> delegate(delegate_,this);
- data_root<alien> new_alien(allot<alien>(sizeof(alien)),this);
-
- if(delegate.type_p(ALIEN_TYPE))
- {
- tagged<alien> delegate_alien = delegate.as<alien>();
- displacement += delegate_alien->displacement;
- new_alien->base = delegate_alien->base;
- }
- else
- new_alien->base = delegate.value();
-
- new_alien->displacement = displacement;
- new_alien->expired = false_object;
- new_alien->update_address();
-
- return new_alien.value();
+cell factor_vm::allot_alien(cell delegate_, cell displacement) {
+ if (displacement == 0)
+ return delegate_;
+
+ data_root<object> delegate(delegate_, this);
+ data_root<alien> new_alien(allot<alien>(sizeof(alien)), this);
+
+ if (delegate.type_p(ALIEN_TYPE)) {
+ tagged<alien> delegate_alien = delegate.as<alien>();
+ displacement += delegate_alien->displacement;
+ new_alien->base = delegate_alien->base;
+ } else
+ new_alien->base = delegate.value();
+
+ new_alien->displacement = displacement;
+ new_alien->expired = false_object;
+ new_alien->update_address();
+
+ return new_alien.value();