/** * Flatten the directive instance. * * @param envelope The envelope we're flattening into. */ void RequiresDirective::flatten(RexxEnvelope *envelope) { setUpFlatten(RequiresDirective) flatten_reference(newThis->nextInstruction, envelope); flatten_reference(newThis->name, envelope); cleanUpFlatten }
void RexxHashTableCollection::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxHashTableCollection) flatten_reference(newThis->contents, envelope); flatten_reference(newThis->objectVariables, envelope); cleanUpFlatten }
void RexxInstructionTrace::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxInstructionTrace) flatten_reference(newThis->nextInstruction, envelope); flatten_reference(newThis->expression, envelope); cleanUpFlatten }
void RexxInstructionThen::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxInstructionThen) flatten_reference(newThis->nextInstruction, envelope); flatten_reference(newThis->parent, envelope); cleanUpFlatten }
void RexxSupplier::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxSupplier) flatten_reference(newThis->values, envelope); flatten_reference(newThis->indexes, envelope); cleanUpFlatten }
void RexxCode::flatten(RexxEnvelope * envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxCode) flatten_reference(newThis->source, envelope); flatten_reference(newThis->start, envelope); flatten_reference(newThis->labels, envelope); cleanUpFlatten }
void RexxVariable::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxVariable) flatten_reference(newThis->variableValue, envelope); flatten_reference(newThis->variable_name, envelope); flatten_reference(newThis->dependents, envelope); cleanUpFlatten }
void RexxInstructionAddress::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxInstructionAddress) flatten_reference(newThis->nextInstruction, envelope); flatten_reference(newThis->expression, envelope); flatten_reference(newThis->environment, envelope); flatten_reference(newThis->command, envelope); cleanUpFlatten }
void RexxInstructionDrop::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { size_t i; /* loop counter */ size_t count; /* argument count */ setUpFlatten(RexxInstructionDrop) flatten_reference(newThis->nextInstruction, envelope); for (i = 0, count = variableCount; i < count; i++) { flatten_reference(newThis->variables[i], envelope); } cleanUpFlatten }
void RexxBehaviour::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an object */ /******************************************************************************/ { setUpFlatten(RexxBehaviour) flatten_reference(newThis->methodDictionary, envelope); flatten_reference(newThis->instanceMethodDictionary, envelope); flatten_reference(newThis->scopes, envelope); flatten_reference(newThis->owningClass, envelope); /* Is this a non-primitive behav */ if (this->isNonPrimitive()) { /* yes, mark that we need to be */ /* resolved on the puff. */ newThis->setNotResolved(); } cleanUpFlatten }
void RexxInstructionForward::flatten(RexxEnvelope *envelope) /******************************************************************************/ /* Function: Flatten an instruction object */ /******************************************************************************/ { setUpFlatten(RexxInstructionForward) flatten_reference(newThis->nextInstruction, envelope); flatten_reference(newThis->target, envelope); flatten_reference(newThis->message, envelope); flatten_reference(newThis->superClass, envelope); flatten_reference(newThis->arguments, envelope); flatten_reference(newThis->array, envelope); cleanUpFlatten }