[MLton] cvs commit: fixed strange
Matthew Fluet
fluet@cs.cornell.edu
Wed, 30 Jun 2004 16:51:13 -0400 (EDT)
> | Offset {base, offset, ty} =>
> - M.Operand.Offset {base = translateOperand base,
> - offset = offset,
> - ty = ty}
> + let
> + val base = translateOperand base
> + in
> + if M.Operand.isLocation base
> + then M.Operand.Offset {base = base,
> + offset = offset,
> + ty = ty}
> + else M.Operand.bogus ty
> + end
This doesn't shed much light on why the situation arose or whether or not
something upstream went wrong.