string_type fix

This commit is contained in:
Justin Ethier 2015-10-07 22:35:28 -04:00
parent b3ca496e9a
commit f8c8345a46

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;