Fix string_type transport, to avoid wasted space

This commit is contained in:
Justin Ethier 2015-10-07 22:33:49 -04:00
parent b3ca496e9a
commit a47869a43f

View file

@ -2065,7 +2065,7 @@ char *transport(x, gcgen) char *x; int gcgen;
dhallocp += len + 1;
}
forward(x) = nx; type_of(x) = forward_tag;
x = (char *) nx; allocp = ((char *) nx)+sizeof(integer_type);
x = (char *) nx; allocp = ((char *) nx)+sizeof(string_type);
return (char *) nx;}
case integer_tag:
{register integer_type *nx = (integer_type *) allocp;