newLocal :: FieldType -> CodeGen Int
newLocal ft = do
  next <- peekNextLocal
  modify $ \s@CgState { cgNextLocal } ->
             s { cgNextLocal = cgNextLocal + fieldSz}
  return next
  where fieldSz = fieldSize ft
newLocal :: FieldType -> CodeGen Int
newLocal ft = do
  next <- peekNextLocal
  modify $ \s@CgState { cgNextLocal } ->
             s { cgNextLocal = cgNextLocal + fieldSz}
  return next
  where fieldSz = fieldSize ft
newLocal ft = do
  next <- peekNextLocal
  modify $ \s@CgState { cgNextLocal } ->
             s { cgNextLocal = cgNextLocal + fieldSz}
  return next
  where fieldSz = fieldSize ft