globle struct expr *PackExpression(
struct expr *original)
{
struct expr *packPtr;
if (original == NULL) return (NULL);
packPtr = (struct expr *)
gm3((long) sizeof (struct expr) *
(long) ExpressionSize(original));
ListToPacked(original,packPtr,0L);
return(packPtr);
}
static long ListToPacked(
struct expr *original,
struct expr *destination,
long count)
{
long i;
if (original == NULL) { return(count); }
while (original != NULL)
{
i = count;
count++;
destination[i].type = original->type;
destination[i].value = original->value;
if (original->argList == NULL)
{ destination[i].argList = NULL; }
else
{
destination[i].argList =
(struct expr *) &destination[(long) count];
count = ListToPacked(original->argList,destination,count);
}
if (original->nextArg == NULL)
{ destination[i].nextArg = NULL; }
else
{
destination[i].nextArg =
(struct expr *) &destination[(long) count];
}
original = original->nextArg;
}
return(count);
}
